DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_no]=" & [Liste0]kodu hatalı, kriter olarak liste0'daki veriyi belirtmişsiniz. Liste0'ın ilk sütununda klasor_no değil, klasor_id alanı mevcut.
Kodun
DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_id]=" & [Liste0]şeklinde değiştirilmesi gerekli,
Ayrıca hata tanımı da hatalı, kodun tamamı aşağıdaki gibi olmalıdır.
Private Sub Komut3_Click()
On Error GoTo Hata
If IsNull(Liste0) Or Me.Liste0 = "" Then
MsgBox "Düzenlemek istediğiniz klasörü seçin!", vbInformation, "Klasör Düzenleme Uyarısı"
Exit Sub
Else
DoCmd.OpenForm "frm_yeniklasor", , , "[klasor_id]=" & [Liste0]
End If
Exit_Komut3_Click:
Exit Sub
Hata:
MsgBox Err.Number
Resume Exit_Komut3_Click
End Sub
liste0 boş ise uyarı, değil ise kod çalıştır.
