Skip to main content

AccessTr.neT


Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi

Form Ekranında Yapıla Kayıtın Sorgudan Çağrıldığında Kayıt Yok Olarak Görmesi

Çözüldü #1
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
Değişimde gelişimde beyinlerin değişmesi ve gelişmesi ile olur. By Bibib
Son Düzenleme: 10/05/2021, 01:54, Düzenleyen: bibib.
Cevapla
#2
DLookup("Sphl_Adı_Soyadı", "Teklif_Formu_Word",??) burada kriter de olması gerekmez miydi?
ayrıca isnull()=true..?
Cevapla
#3
@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
Cevapla
#4
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task