Private Sub ÃãÑ0_Click()
Dim DelDetails As String
Dim DelDetails2 As String
DelDetails = "DELETE m_stufdent.schoolnumd FROM m_stufdent WHERE (((m_stufdent.schoolnumd)=" & Me.schoolnumd & "));"
DelDetails2 "DELETE m_school.schoolnumd FROM m_school WHERE (((m_school.schoolnumd)=" & Me.schoolnumd & "));"
DoCmd.SetWarnings (0)
DoCmd.RunSQL (DelDetails)
DoCmd.RunSQL (DelDetails2)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (1)
End Sub
وضعت الكود المذكور اعطاني رسالة خطأ وهي
methode or data not be found