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.