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.