AccessTr.neT
Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi (/konu-form-ekraninda-yapila-kayitin-sorgudan-cagrildiginda-kayit-yok-olarak-gormesi.html)



Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi - bibib - 10/05/2021

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


RE: Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi - berduş - 10/05/2021

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


RE: Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi - ozanakkaya - 11/05/2021

@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



RE: Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi - ozanakkaya - 30/05/2021

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.