تمت الفائدة
If MsgBox(" هل تريد ترحيل البيانات الآن؟? ", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "upT"
DoCmd.OpenQuery "upB"
DoCmd.OpenQuery "upC"
DoCmd.OpenQuery "upD"
DoCmd.OpenQuery "upE"
DoCmd.OpenQuery "upEX"
DoCmd.OpenQuery "delT"
DoCmd.OpenQuery "delB"
DoCmd.OpenQuery "delC"
DoCmd.OpenQuery "delD"
DoCmd.OpenQuery "delE"
DoCmd.OpenQuery "delEX"
DoCmd.SetWarnings True
End If
شكرا ........