Yeni gerekli olan bir alan daha var.
Kayıt varmı kontrolünde NERDEN diye bir alanı daha kontrol ettirmek istiyorum. bunu aşağıdaki gibi ekledim. çalışmadı.
KayitVarMi = Nz(DLookup("GUNID", "T_GUNLER", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & "" And [NERDEN] = " & rs2!NERDEN & """), 0)
sayın kadirdursun,
bahsettiğiniz talebinize yönelik olarak;
NERDEN adlı alanın Metin (String) veri türünde olsa gerek.bu nedenle ilgili kod satırını
Kod:
KayitVarMi =Nz(DLookup("GUNID", "T_GUNLER", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & " And [NERDEN] ='" & rs2!NERDEN & "'"), 0)
olarak değiştirerek deneyiniz.
Hatırlatmak adına;
Metin (String) veri türündeki alanlar için kod satırlarında TEK TIRNAK (') işaretini eklemelisiniz.SAYI veri türündeki alanlar için bu tek tırnak ekleme işlemi olmayacak.
son olarak;
12.mesajda sayın ozan bey tarafından eklenen örnek uygulama konu başlığındaki sorunuzun çözümünü sağladıysa,lütfen bunu belirtiniz ki (her ne kadar 13.mesajda farklı bir duruma değinmeniz neticesinde bu çözümün sağlandığı anlaşılsa bile,sizin buradan talepte bulunmanız daha geçerli olacaktır),konunuzu Cevaplanmış Sorular kategorisi'ne taşınması sağlansın.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Verdiğiniz kodu yazınca hata verdi. Örneğimi ekledim vaktiniz olunca ilgilenebilir misiniz?
sayın kadirdursun,
uygulamanız kısa süreli imkan dahilinde incelenmesi sonucunda,
bahsettiğiniz talebinize yönelik olarak;
Kod:
KayitVarMi = Nz(DLookup("GUNID", "T_GUNLER", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & " And [NERDEN] ='" & rs2!NERDEN & "'"), 0)
kod satırının yazılması yeterli görülmüştür.
fakat,bu kodun dahil olduğu kod bloğunda IF Fonksiyonu satırında yazılı şart gerçekleşmediğinde ELSE olarak yapılacak işlemlerinde yazılması gerekmektedir ki şart uygun değilse bunlar da sağlanabilsin.
bilginize...iyi çalışmalar,saygılar
"Öğe bu derlemede bulunamadı."
hatası verdi.
KayitVarMi = Nz(DLookup("GUNID", "T_GUNLER", "TARIH= #" & Format(GYemekTarihi, "mm\/dd\/yyyy") & "# And [PERSONELID]= " & rs2!PERSONEID & " And [NERDEN] ='" & rs2!NERDEN & "'"), 0)
sayın kadirdursun,
eğer tanımlı alan adlarında uyumsuzluk söz konusu ise (ya da mevcut olmama gibi),bu hatayı verebilir.
örneğin;
rs2!NERDEN gibi
kontrol etmek gerekmektedir.
bunun yerine bu kısmı
Kod:
And [NERDEN] ='" & "NORMAL & "'
diye de yazabilirsiniz.bilginize...iyi çalışmalar,saygılar.