Merhaba. Ekteki dosyadaki frm_AnaForm üzerinde bulunan "Düzenle" butonuna direkt tıklandığında aşağıdaki hata mesajı,



"Dosyayı Aç" butonuna basıldığında ise aşağıdaki hata mesajı ekrana geliyor.

Bu hata mesajları ile karşılaşmamak için veritabanında hangi düzeltmeleri yapmalıyım?

sn. mmert06 ekteki örneğinizi inceleyeniz istediğiniz olmuşmudur.

sayın 1tk örneğinizi inceledim anacak örneğinizde listeden herhangi bir iş seçilmeden Düzenle butonuna basıldığında frm_yeni formu açılıyor. ve Dosyayı Aç butonuna basıldığında ilk mesajımdaki hata pencerisi yine ekrana geliyor.

(23/12/2017, 20:15)mmert06 yazdı: sayın 1tk örneğinizi inceledim anacak örneğinizde listeden herhangi bir iş seçilmeden Düzenle butonuna basıldığında frm_yeni formu açılıyor. ve Dosyayı Aç butonuna basıldığında ilk mesajımdaki hata pencerisi yine ekrana geliyor.

sn. mmert06 bende ki uygulamanız da bir sıkıntı gözükmüyor şuan. düzenleye tıkladığımda yeni formu açıyor ve kaydet dediğimde kaydediyor.acaba diye düşünüyorum sizde programsal bir durum olabilirmi.

Sayin 1tk, sizin orneginizde liste kutusundaki bir isin uzerine tiklanmadan direkt Duzenle butonuna basildiginda ilk isin bilgileri yeni form ile aciliyor oysaki liste kutusundaki herhangi bir ise tiklanmadan Duzenle butonuna basildiginda yeni formunun acilmamasi ve birinci mesajimdaki ilk hatanin ekrana gelmemesi lazim. Ayrica orneginizde ikinci hata penceresi halen ekrana geliyor.

Merhaba;
Düzenle butonunu aşağıdaki kod ile;

On Error GoTo hata

 DoCmd.OpenForm "frm_yeni", , , "[is_no]=" & [Liste0]



Exit_Komut3_Click:

Exit Sub



hata:

MsgBox " Önceli listeden malzeme seçin..!"

Resume Exit_Komut3_Click

Dosya aç butonundaki kodları da aşağıdaki ile değiştirip denermisiniz.

On Error GoTo Err_Komut5_Click

 

    Dim stDocName As String

    Dim kriter As String

    kriter = Me.Liste0

    

    stDocName = "frm_malzemeler"

    DoCmd.OpenForm stDocName, , , "is_no=" & kriter

 

Exit_Komut5_Click:

    Exit Sub

 

Err_Komut5_Click:

    MsgBox "Önce listeden malzeme seç..!"

    Resume Exit_Komut5_Click

İyi çalışmalar.