يصبح الكود ...
Private Sub Command24_DblClick(Cancel As Integer)
If MsgBox(" åá ÊÑíÏ ÍÜÜÜÐÝ ÇáÓÌá ÇáÍÇáì ¿ ", vbYesNo, " ÊäÈíÉ ") = vbNo Then
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Cheqtran.id, Cheqtran.accunt_id, Cheqtran.accunt_name, Cheqtran.date, Cheqtran.debt, Cheqtran.credit, Cheqtran.entryn, Cheqtran.entryexpln FROM Cheqtran WHERE (((Cheqtran.id)=Forms!Chequevocher!CheSubform.Form!IDD) And ((Cheqtran.accunt_id)=Forms!Chequevocher!CheSubform.Form!No_account) And ((Cheqtran.accunt_name)=Forms!Chequevocher!CheSubform.Form!Account_name) And ((Cheqtran.date)=Forms!Chequevocher!CheSubform.Form!Datetrans) And ((Cheqtran.debt)=Forms!Chequevocher!CheSubform.Form!Ammount) And ((Cheqtran.credit)=Forms!Chequevocher!CheSubform.Form!Credit) And ((Cheqtran.entryn)=Forms!Chequevocher!CheSubform.Form!no_entry) And ((Cheqtran.entryexpln)=Forms!Chequevocher!CheSubform.Form!details))"
DoCmd.SetWarnings True
Me.Requery
End If
End Sub
انت نسيت Else ...
و مكان End If كان خطأ ...