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.