اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رسالة بتوقيت معين Msgbox Timer


jjafferr

الردود الموصى بها

السلام عليكم:smile:

 

قد نريد ان نجعل الرسالة تبقى لمدة معينة ، واذا لم يقوم المستخدم بعمل شيء ، تقوم الرسالة بإختيار "لا" وتغلق نفسها ،

Msgbox_Timer.gif.7dbf429f980ca7df007d792426278197.gif

 

 


Private Sub cmd_Timer_msgbox_Click()


    Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object

    PauseTime = 5  'Seconds
    Msg = "هل تريد الاستمرار"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان"
    
    Set Sh_Msgbox = CreateObject("WScript.Shell")
    
    Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style)
    If Response = vbYes Then
        MsgBox "تم اختيار نعم"
    Else
        MsgBox "تم اختيار لا ، او انتهى الوقت"
    End If

End Sub

 

جعفر

Msgbox Timer.MDB.zip

  • Like 6
  • Thanks 1
رابط هذا التعليق
شارك

ماشاء الله عليك
1 / هل ممكن ان تفتح موضوع به شروحات عامة عن WScript 
2 / هل يمكن ان نستخدم تايمر خارجي لاغلاق نموذج مثلا بدون استخدام تايمر الداخلي للنماذج ؟

 

  • Like 1
رابط هذا التعليق
شارك

منذ ساعه, jjafferr said:

السلام عليكم:smile:

 

قد نريد ان نجعل الرسالة تبقى لمدة معينة ، واذا لم يقوم المستخدم بعمل شيء ، تقوم الرسالة بإختيار "لا" وتغلق نفسها ،

Msgbox_Timer.gif.7dbf429f980ca7df007d792426278197.gif

 

 



Private Sub cmd_Timer_msgbox_Click()


    Dim Msg, Style, Title, Response, PauseTime
    Dim Sh_Msgbox As Object

    PauseTime = 5  'Seconds
    Msg = "هل تريد الاستمرار"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "الشاشة ستغلق تلقائيا بعد 5 ثوان"
    
    Set Sh_Msgbox = CreateObject("WScript.Shell")
    
    Response = Sh_Msgbox.PopUp(Msg, PauseTime, Title, Style)
    If Response = vbYes Then
        MsgBox "تم اختيار نعم"
    Else
        MsgBox "تم اختيار لا ، او انتهى الوقت"
    End If

End Sub

 

جعفر

Msgbox Timer.MDB.zip

الله يعطيك العافيه ما شاء الله عليك استاذنا ابو الجعافر

رابط هذا التعليق
شارك

18 دقائق مضت, kaser906 said:

لا زلت انتظر شرح تحويل جملة sql إلى كود :rol:

هذا هو كود التحويل 

    Dim strSql As String
    'Purpose:   Convert a SQL statement into a string to paste into VBA code.
    Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"
    
    If IsNull(Me.txtSQL) Then
        Beep
    Else
        strSql = Me.txtSQL
        strSql = Replace(strSql, """", """""")  'Double up any quotes.
        strSql = Replace(strSql, vbCrLf, strcLineEnd)
        strSql = "strSql = """ & strSql & """"
        Me.txtVBA = strSql
        Me.txtVBA.SetFocus
        RunCommand acCmdCopy
    End If

فقط غير اسم المربع TxtSql  باسم المربع عندك اللي تكتب فيه جملة سكويليتي

وغير اسم المربع txtVBA باسم المربع اللي تريد ان يظهر فيها كود برمجي

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

1 ساعه مضت, Shivan Rekany said:

هذا هو كود التحويل 


    Dim strSql As String
    'Purpose:   Convert a SQL statement into a string to paste into VBA code.
    Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"
    
    If IsNull(Me.txtSQL) Then
        Beep
    Else
        strSql = Me.txtSQL
        strSql = Replace(strSql, """", """""")  'Double up any quotes.
        strSql = Replace(strSql, vbCrLf, strcLineEnd)
        strSql = "strSql = """ & strSql & """"
        Me.txtVBA = strSql
        Me.txtVBA.SetFocus
        RunCommand acCmdCopy
    End If

فقط غير اسم المربع TxtSql  باسم المربع عندك اللي تكتب فيه جملة سكويليتي

وغير اسم المربع txtVBA باسم المربع اللي تريد ان يظهر فيها كود برمجي

تقبل تحياتي

يعطيك العافيه استاذ شفان

هذا حل 

وأريد ايضا تعلم طريقة الاستاذ جعفر في تفكيك الجملة 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information