Klasor Aç butonun tıklanma olayını

Private Sub Komut5_Click()

On Error GoTo Hata





If IsNull(Liste0) Or Me.Liste0 = "" Then



    MsgBox "Açmak istediğiniz klasörü listeden seçin!", vbInformation, "Klasör Açma Uyarısı"

    Exit Sub



Else



DoCmd.OpenForm "frm_klasor", , , "[klasor_id]=" & [Liste0]



End If



Exit_Komut5_Click:

Exit Sub

Hata:



MsgBox Err.Number



Resume Exit_Komut5_Click

End Sub

şeklinde değiştirince ve Klasor Sil butonun tıklanma olayındaki klasor_no yazan yerleri klasor_id olarak düzeltince sorun giderildi. Teşekkürler ozan bey.