Bu şekilde yaptım. İlk gönderdiğinizde. Ama hata mesajı alıyorum.

Private Sub Komut3_Click()

On Error GoTo hata

Forms("frm_ihale").Controls ("Komut8_Click")



DoCmd.OpenForm "frm_ihale", , , "[ihale_id]=" & [Liste0]

Exit_Komut3_Click:

Exit Sub

hata:

MsgBox "Düzenlemek istediğiniz işi seçin..!"

Resume Exit_Komut3_Click

End Sub