استبدال رسالة تشغيل استعلام الحاق

[AboSaad17]

السلام عليكم ورحمة الله اسعد الله صباحكم وجميع أوقاتكم بكل خير
سؤالي :

في حال نقل سجل من جدول الى جدول أخر ( استعلام الحاق ) هل من حل  لايقاف رسالة الاستعلام العادية واستبدالها برسالة مختصرة تفيد أن ((  السجل تم منقلة مسبقا )) 
إن شاء الله القى الجواب عندكم ............  (( ملف مرفق ))

dbQ1.rar

[ابو ياسين المشولي]

اتفضل اخي

هذا طلبك

dbQ1.rar

[طاهر الوليدي]

الملف المرفق معطوب ممكن ارساله مرة ثانية اخي العزيز ابو ياسين

[ابو ياسين المشولي]

1 دقيقه مضت, طاهر الوليدي said:

الملف المرفق معطوب ممكن ارساله مرة ثانية اخي العزيز ابو ياسين

اخي الفاضل ليس معطوب نزل اخر اصدار winrar

 

هذة الرساله

DoCmd.Beep
If MsgBox(" هــل  تـريـد  نــســخ  الاسـمـاء  إلـى   قـاعـدة الـعـمـلاء  " & vbCrLf & "", vbYesNo, "           بـرنـامـج الـخـيـاط      ") = vbYes Then

 Dim strSQL As String
DoCmd.SetWarnings False

DoCmd.OpenQuery "q1"

 
DoCmd.SetWarnings True
Beep
MsgBox "  تـم  نــســخ الاسـمـاء   إلـى   قـاعـدة الـعـمـلاء بـنـجـاح", vbInformation, "           بـرنـامـج الـخـيـاط     "
 

[AboSaad17]

الف شكر اخي الفاضل ( ابو ياسين ) 

وللفائدة هل يمكنك إعطاء مثال أخر لا ستبدال رسالة 
1- استعلام تحديث حقل 
2- حذف سجل 

مثال مرفق

dbQ2.rar

[ابو ياسين المشولي]

اخي الفاضل بارك الله فيك

هي نفس الطريقه

فقط قم بتغير اسم الاستعلام

ونص الرساله

DoCmd.OpenQuery "q1"

[jjafferr]

وعليكم السلام

 

هذه 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.SetWarnings True


'3  العمل بصمت وبدون اشعارات ، ولكن بوجود ساعة ترابية تشير الى وجود عمل
'    DoCmd.Hourglass True
'    DoCmd.OpenQuery "q1"
'    DoCmd.Hourglass False


'4  عمل اشعار ثابت لمدة 3 ثوان في اسفل الشاشة
'    Application.SetOption "Show Status Bar", True
'    Application.Echo True
'    Application.Echo False, "الاستعلام يقوم بالتحديث"
'
'    DoCmd.SetWarnings False
'    DoCmd.OpenQuery "q1"
'    DoCmd.SetWarnings True
'
'    PauseTime = 3: Start = Timer
'    Do While Timer < Start + PauseTime
'        DoEvents
'    Loop
'
'    Application.SetOption "Show Status Bar", False
'    Application.Echo True


'5  عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة
'    Application.SetOption "Show Status Bar", True
'    SysCmd acSysCmdSetStatus, "الاستعلام يقوم بالتحديث"

'    DoCmd.SetWarnings False
'    DoCmd.OpenQuery "q1"
'    DoCmd.SetWarnings True
'
'    PauseTime = 3: Start = Timer
'    Do While Timer < Start + PauseTime
'        DoEvents
'        A = A + 1
'        If A / 50 = Int(A / 50) Then B = B & " . "
'        SysCmd acSysCmdSetStatus, B & "الاستعلام يقوم بالتحديث"
'    Loop
    
'    Application.SetOption "Show Status Bar", False
'    SysCmd acSysCmdClearStatus


'6  عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة
    Application.SetOption "Show Status Bar", True
    SysCmd acSysCmdInitMeter, "الاستعلام يقوم بالتحديث", 5000

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "q1"
    DoCmd.SetWarnings True

    PauseTime = 3: Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
        A = A + 1
        SysCmd acSysCmdUpdateMeter, A
    Loop
      
    Application.SetOption "Show Status Bar", False
    SysCmd acSysCmdClearStatus

    
    
Exit_أمر10_Click:
    Exit Sub

Err_أمر10_Click:
    MsgBox Err.Description
    Resume Exit_أمر10_Click
    
End Sub

.

وهذا الرابط فيه البرنامج المرفق ، يعني خذ منه الكود وخليه في برنامجك :

http://www.access-programmers.co.uk/forums/attachment.php?attachmentid=32438&stc=1&d=1275923825

.

.

والنتيجة Notification بطريقة البرامج المحترفة ، فوق ساعة الكمبيوتر

.

 

جعفر

876.msg styles.mdb.zip

BalloonToolTipSample.mdb.zip

[AboSaad17]

اسعد الله صباحكم وجميع اوقاتكم 
شكرا جزيلا لك ابو ياسين

والشكر موصول لك يا استاذ جعفر  .... فانت دائما متابع معي أكرر شكري لك ولكل من في هذا المنتدى الرائع 
هذا المنتدى يتميز بتعاون وتجاوب سريع من جميع الاساتذة ماشاء الله لا قوة الا بالله 
نور الله بصائركم وزادكم من فضله