حذف سجل من جدولين متشابهين

[SAYEDaly]

ما هو الخطا فى هذا الكود

 

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

Database10.rar

[sandanet]

قارن بهذا الكود

DoCmd.RunSQL "DELETE emp_vacation.ID, emp_vacation.name, emp_vacation.from, emp_vacation.to FROM emp_vacation WHERE ((emp_vacation.name)=[forms]![off]![Text26])"

 

[SAYEDaly]

لم يفلح الكود

ارجو التعديل عل المثال المرفق

[كرار صبري _ أبو جنى]

18 ساعات مضت, SAYEDaly said:

ما هو الخطا فى هذا الكود

يصبح الكود ... 

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 كان خطأ ...