السلام عليكم ورحمة الله اسعد الله صباحكم وجميع أوقاتكم بكل خير
سؤالي :
في حال نقل سجل من جدول الى جدول أخر ( استعلام الحاق ) هل من حل لايقاف رسالة الاستعلام العادية واستبدالها برسالة مختصرة تفيد أن (( السجل تم منقلة مسبقا ))
إن شاء الله القى الجواب عندكم ............ (( ملف مرفق ))
dbQ1.rar
وعليكم السلام
هذه 6 طرق ، برسائل وبدون ،
وانا اخترت لك آخر واحدة منها ، وهي تعطيك شريط في اسفل شاشة الاكسس:
.
Option Compare Database
Private Sub أمر10_Click()
On Error GoTo Err_أمر10_Click
'Dim stDocName As String
'stDocName = "q1"
'DoCmd.OpenQuery stDocName, acNormal, acEdit
'1 العمل بصمت وبدون اشعارات
' CurrentDb.Execute ("q1")
'2 العمل بصمت وبدون اشعارات
' DoCmd.SetWarnings False
' DoCmd.OpenQuery "q1"
' DoCmd.SetWarnin