السلام عليكم
عملت رسالة تحذيرية بالشكل ده
If Me.Type.Value = "RFM" Then
If MsgBox(" لديك طلبات شراء خارجي مطلوب الرد عليها " & _
" هل تريد معينتها الآن؟ " & _
" ", vbYesNo Or vbExclamation Or vbDefaultButton1, _
"تنبيـــــــــــــــــــــــــه") = vbYes Then
'DoCmd.Close acForm, "المخزون"
DoCmd.OpenReport "Wared_from_date3", acViewPreview
Else
Exit Sub
End If
End If
End Sub
والمطلوب هو اضافة كود ليعمل مفتاح ECS في حال الظغط عليه تغلق الرسالة ؟
وجزاكم الله خير
