رسالة تنبيه

السلام عليكم

تفضل اخي لك ما طلبت

    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

تحيااااتي

رائع مثل ماطلبت بالضبط شكرا لك