اظهار رسالة عند فتح نموذج واختفاءها تلقائي

[hh88]

السلام عليكم ورحمة الله وبركاتة

كيف اظهر رسالة للمستخدم عند ضغط زر لفتح نموذج تظهر رساله ( الرجاء الانتظار ) وتختفي الرسالة بمجرد فتح النموذج

ياليت تفيدوني

ولكم الشكر

 

 

 

تم تعديل سبتمبر 10, 2018 بواسطه hh88

[Shivan Kurdi - شڤان کوردی]

2 ساعات مضت, hh88 said:

كيف اظهر رسالة للمستخدم عند ضغط زر لفتح نموذج تظهر رساله ( الرجاء الانتظار ) وتختفي الرسالة بمجرد فتح النموذج

اليك هذه الوحدة النمطية ... في الحقيقة لا اعرف من هو صاحب الكود
 

Private Const NV_CLOSEMSGBOX = &H5000&

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, _
    ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long

Private mTitle As String
Private mPause As Long
Private mHandle As Long


Public Function MsgBoxPause(ByVal hwnd As Long, ByVal inPrompt As String, _
        ByVal inTitle As String, ByVal inButtons As Long, _
        ByVal inPause As Integer) As Integer
     mTitle = inTitle: mPause = inPause * 1000
     SetTimer hwnd, NV_CLOSEMSGBOX, mPause, AddressOf NewTimerProc
     MsgBoxPause = MessageBox(hwnd, inPrompt, inTitle, inButtons)
End Function

Public Function NewTimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wparam As Long, _
        ByVal lparam As Long) As Long
    KillTimer hwnd, wparam
    If wparam = NV_CLOSEMSGBOX Then
             mHandle = FindWindow("#32770", mTitle)
             If mHandle <> 0 Then
                  SetForegroundWindow mHandle
                  SendKeys "{enter}"
             End If
            
       End If
End Function

وفي النموذج تكتب هكذا او تقدر تعمل زر لهذا الامر 

Option Compare Database

Private Sub Form_Load()
    Dim s As Integer
    s = 5 ' عدد الثواني
    mResult = MsgBoxPause(hwnd, "الرجاء انتظار " & s & " ثواني . ", _
         "العنوان", vbOKCancel + vbExclamation + vbDefaultButton2 + vbMsgBoxRight + vbMsgBoxRtlReading, s)
End Sub

اليك القاعدة 

 

اخفاء الرسالة بعد ثواني محددة.accdb

[hh88]

منذ ساعه, Shivan Rekany said:

اليك هذه الوحدة النمطية ... في الحقيقة لا اعرف من هو صاحب الكود
 

Private Const NV_CLOSEMSGBOX = &H5000&

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, _
    ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
    ByVal nIDEvent As Long) As Long

Private mTitle As String
Private mPause As Long
Private mHandle As Long


Public Function MsgBoxPause(ByVal hwnd As Long, ByVal inPrompt As String, _
        ByVal inTitle As String, ByVal inButtons As Long, _
        ByVal inPause As Integer) As Integer
     mTitle = inTitle: mPause = inPause * 1000
     SetTimer hwnd, NV_CLOSEMSGBOX, mPause, AddressOf NewTimerProc
     MsgBoxPause = MessageBox(hwnd, inPrompt, inTitle, inButtons)
End Function

Public Function NewTimerProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wparam As Long, _
        ByVal lparam As Long) As Long
    KillTimer hwnd, wparam
    If wparam = NV_CLOSEMSGBOX Then
             mHandle = FindWindow("#32770", mTitle)
             If mHandle <> 0 Then
                  SetForegroundWindow mHandle
                  SendKeys "{enter}"
             End If
            
       End If
End Function

وفي النموذج تكتب هكذا او تقدر تعمل زر لهذا الامر 

Option Compare Database

Private Sub Form_Load()
    Dim s As Integer
    s = 5 ' عدد الثواني
    mResult = MsgBoxPause(hwnd, "الرجاء انتظار " & s & " ثواني . ", _
         "العنوان", vbOKCancel + vbExclamation + vbDefaultButton2 + vbMsgBoxRight + vbMsgBoxRtlReading, s)
End Sub

اليك القاعدة 

 

اخفاء الرسالة بعد ثواني محددة.accdb

الف شكر اخي العزيز شفان فعلا معلومة قيمة

 

ولكن كنت اتسال بعض الاحيان عند فتح نموذج ما يكون ثقيل مايفتح بسرعة والعميل مايدري هل النموذج شغال بيفتح والا معلق , فاقترحت اني احط زي الرساله او الايقونة متحركة تدل انه جاري فتح النموذج او سهم متحرك او اي حركة

 

فهل لديك اي اقتراح ياعسل

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

منذ ساعه, hh88 said:

 

فهل لديك اي اقتراح ياعسل

راجع هذا لعله كما طلبك

https://www.officena.net/ib/topic/85516-مؤشر-تحميل-لاستخدمه-بفتح-التقارير/

[Shivan Kurdi - شڤان کوردی]

1 ساعه مضت, hh88 said:

ولكن كنت اتسال بعض الاحيان عند فتح نموذج ما يكون ثقيل مايفتح بسرعة والعميل مايدري هل النموذج شغال بيفتح والا معلق , فاقترحت اني احط زي الرساله او الايقونة متحركة تدل انه جاري فتح النموذج او سهم متحرك او اي حركة

 

فهل لديك اي اقتراح ياعسل

كما تفضل استاذ @ابو ياسين المشولي تقدر تستخدم شريط تقدمي
و دورت على جهازي
وتم الحصول الى هذا و اهديك
لكن لا اعرف من هو صاحبه ,,,, الله يحفظه

شريط تقدمي.mdb

تم تعديل سبتمبر 10, 2018 بواسطه Shivan Rekany

[vork056]

مثال بسيط ان شاء الله يكون هذا اللي تبيه... اقبل تحياتي 

mohmdngah.accdb

[alialawi]

في ١١‏/٩‏/٢٠١٨ at 04:02, vork056 said:

مثال بسيط ان شاء الله يكون هذا اللي تبيه... اقبل تحياتي 

mohmdngah.accdb

 

السلام عليكم 

في ١١‏/٩‏/٢٠١٨ at 04:02, vork056 said:

مثال بسيط ان شاء الله يكون هذا اللي تبيه... اقبل تحياتي 

mohmdngah.accdb

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

[hh88]

في ‏١٠‏/‏٠٩‏/‏٢٠١٨ at 17:10, Shivan Rekany said:

كما تفضل استاذ @ابو ياسين المشولي تقدر تستخدم شريط تقدمي
و دورت على جهازي
وتم الحصول الى هذا و اهديك
لكن لا اعرف من هو صاحبه ,,,, الله يحفظه

شريط تقدمي.mdb

شكرا من القلب اخي شفان رائع انت

[vork056]

في ١٢‏/٩‏/٢٠١٨ at 08:57, alialawi said:

 

السلام عليكم

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

وضح اكثر طلبك جزاك الله خير اخي الكريم ....