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
Visual Basic Code
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


Visual Basic Code
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


Visual Basic Code
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.

Visual Basic Code
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
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
Konunuz taşınmıştır.

(06/07/2009 23:57)AccessTr.neT Adlı Kullanıcıdan Alıntı: 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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da