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.