On Error GoTo hata



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

Call Forms.frm_ihale.Komut8_Click



Exit_Komut3_Click:



Exit Sub

hata:

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

Resume Exit_Komut3_Click

yada

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

şeklinde dener misiniz?