عملت لك جدول اخر للسندات منتهية المدة
وعملت استعلامين الاول ترحيل والثاني حذف
واستخدمت هذه الاكواد في نموذج فرعي
Private Sub Form_Current()
Me.Text62 = Me.رقم_السند
End Sub
Private Sub mstagra_Click()
If Me.mstagra = False Then
If MsgBox("ھل تريد ترحيل ھذا السند الى جدول سند عقد منتهية ؟", vbYesNo, "ترحيل") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "terhil"
DoCmd.OpenQuery "deletesened"
DoCmd.SetWarnings True
MsgBox "تم ترحيل"
Else
Me.mstagra = True
End If
End If
Me.Requery
End Sub
واليك ملف بعد تعديل
واذا هذا ليس يكون طلبك وضح لي بالتفصيل
ترحيل 55 (1).rar