Application Alerts
กระทู้เก่าบอร์ด อ.Yeadram

 1,718   3
URL.หัวข้อ / URL
Application Alerts

เวลาเราย่อ Application มาอยู่ที่ Taka BAR (ไม่รู้เรียกถูกเปล่า)
ด้านล่างสุดของจอ แล้วต้องการให้ Active อีกครั้งเราต้อง Click
ผมกำลังหา CODE ที่ทำให้มัน เปิดเลย โดยไม่ต้องคลิ๊กครับ
คือเมื่อ Run CODE ชุดหนึ่งจบ
ต่อด้วยให้ ACTIVE   ต่อด้วย MAXIMIZE
ไปค้นใน Help เจอเรื่องนี้ ไม่รู้ว่าเกี่ยวไหม
   
With Assistant
    .AssistWithAlerts = True
   End With

แต่ก็ยังใช้ไม่เป็นอยู่ดี หากใครใช้เป็น หรือมีวิธีอื่น ขอรบกวนด้วยครับ

3 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R00206
เอ่อ ได้แล้วครับ เป็นเรื่องของ ที่ อ.BATMAN ทำไว้ ผมประยุกต์ได้แล้วครับ

ption Compare Database
Option Explicit

'************ Code Start **********
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'       ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'       ?fSetAccessWindow(SW_HIDE)
'Normal window:
'       ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If ERR <> 0 Then 'no Activeform
      If nCmdShow = SW_HIDE Then
        MsgBox "Cannot hide Access unless " _
                    & "a form is on screen"
      Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        ERR.Clear
      End If
    Else
        If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
            MsgBox "Cannot minimize Access with " _
                    & (loForm.Caption + " ") _
                    & "form on screen"
        ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
            MsgBox "Cannot hide Access with " _
                    & (loForm.Caption + " ") _
                    & "form on screen"
        Else
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
        End If
    End If
    fSetAccessWindow = (loX <> 0)
End Function

'************ Code End **********

2 @R00207
ผมคิดว่าใช้คำสั่งนี้ก็ได้ครับ

Application.RunCommand acCmdAppMinimize

กับ

Application.RunCommand acCmdAppMaximize
3 @R00217
เห็นด้วยครับ...
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2844s