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

[hh88]

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

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

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

ولكم الشكر

 

 

 

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

[Shivan Rekany]

  في 10‏/9‏/2018 at 08:56, hh88 said:

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

Expand  

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

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]

  في 10‏/9‏/2018 at 11:09, 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

اليك القاعدة 

 

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

Expand  

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

 

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

 

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

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

  في 10‏/9‏/2018 at 12:12, hh88 said:

 

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

Expand  

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

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

[Shivan Rekany]

  في 10‏/9‏/2018 at 12:12, hh88 said:

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

 

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

Expand  

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

شريط تقدمي.mdbFetching info...

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

[vork056]

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

mohmdngah.accdb

[alialawi]

  في 11‏/9‏/2018 at 01:02, vork056 said:

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

mohmdngah.accdbFetching info...

Expand  

 

السلام عليكم 

  في 11‏/9‏/2018 at 01:02, vork056 said:

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

mohmdngah.accdbFetching info...

Expand  

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

[hh88]

  في 10‏/9‏/2018 at 14:10, Shivan Rekany said:

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

شريط تقدمي.mdbFetching info...

Expand  

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

[vork056]

  في 12‏/9‏/2018 at 05:57, alialawi said:

 

السلام عليكم

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

Expand  

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