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

[jjafferr]

السلام عليكم

 

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

 

 

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

[Shivan Rekany]

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

 

[النجاشي]

منذ ساعه, jjafferr said:

السلام عليكم

 

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

 

 

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

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

[kaser906]

رائع يعطيك العافيه استاذ 

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

[Shivan Rekany]

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

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

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

    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 باسم المربع اللي تريد ان يظهر فيها كود برمجي

تقبل تحياتي

[kaser906]

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 باسم المربع اللي تريد ان يظهر فيها كود برمجي

تقبل تحياتي

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

هذا حل 

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

[صالح حمادي]

فكرة ممتازة شكرا أستاذ جعفر

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

الاستاذ جعفر متميز الله يعطيك العافية

[Amr Ashraf]

جزاك الله خير استاذ جعفر