Butonlara Basıldığında Ekrana Gelen Hata Mesajları

1 2
23/12/2017, 18:24

mmert06

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?
23/12/2017, 20:11

1tk

sn. mmert06 ekteki örneğinizi inceleyeniz istediğiniz olmuşmudur.
23/12/2017, 20:15

mmert06

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.
24/12/2017, 13:25

1tk

(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.
24/12/2017, 16:09

mmert06

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.
25/12/2017, 23:26

direnist

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.
1 2