Hazırladığım programda verileri

DoCmd.RunCommand acCmdSaveRecord

ile ana tabloya ve ilişkili olan alt tabloya kayıt yaptırıyorum yaptırdıktan sonra

yapılan kayıtı WORD e göndermek için komuta basıyorum ve önce kayıt varmı diye altta ki komut ile sorgulardan kontrol ettiriyorum

If IsNull(DLookup("Sphl_Adı_Soyadı", "Teklif_Formu_Word")) Then



    MsgBox "Dosyada Teklif Hazırlanacak Kişilere Ait Kayıt Bulunamadı... ", , "UYARI"

    GoTo Tklf_formu_Word_Çıkış

End If

bazen kayıt olsa dahi KAYIT BULUNAMADI mesajı alıyorum Programdan çıkmadan formu kapatıp tekrar açsam da kayıdı bulamıyor sadece programı kapatıp açtıktan (çıkıp girdikten) sonra kayıtı görüyor ve çalışıyor bazen hiç sıkıntı çıkartmadan çalışıyor.

Kayıt Bulunamadı mesajı aldığımda tabloyu kontrol ettiğimde verileri görebiliyorum

Teklif_Formu_Word = Sorgu dosyası



Dim qdf, rs As Object



Set qdf = CurrentDb.QueryDefs("Teklif_Formu_Word")

qdf![Forms!Kayıt_Giriş!SM_Rpr_Kontrol] = [Forms]![Kayıt_Giriş]![SM_Rpr_Kontrol]



    Set rs = qdf.OpenRecordset()

ile dosyadan okutarak worde gönderime işlemleri yaptırıyorum


Bu neden oluyor ve nasıl düzeltebilirim

Yardımcı olursanız çok sevinirim

DLookup("Sphl_Adı_Soyadı", "Teklif_Formu_Word",??) burada kriter de olması gerekmez miydi?
ayrıca isnull()=true..?

@berduşun cevabına ek olarak,

DLookup("Sphl_Adı_Soyadı", "Teklif_Formu_Word") kodu yerine

Dcount("Sphl_Adı_Soyadı", "Teklif_Formu_Word")

kodunu kullanarak kayıt sayısını saydırmak daha doğru olacaktır. Tabi kod bloğuna kriter eklemek gerekli. Sphl_Adı_Soyadı alanındaki veriyi kontrol ediyorsanız bunu kritere de yazmalısınız.

Dim VarMi As Integer



VarMi = DCount("ruhsattc", "tbl_ruhsatnotlari", "[ruhsattc]='" & [tc] & "'")



if VarMi = 0 Then



' kayıt yok ise çalışacak kod



else

'kayıt var ise çalışacak kod

end if

Konunuz taşınmıştır.

(06/07/2009, 23:57)AccessTr.neT yazdı: 2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
Bu maddenin sürekli ihlalde uyarı puanı verilecektir.