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