สอบถามโค้ดจากกระทู้เก่าใช้ไม่ได้กับ Access ปัจจุบัน

[001Jetnipit]

https://www.thai-access.com/yeadram_view.php?topic_id=3316

นั้นี้เป็นกระทู้เก่าครับ ผมลองก็อปโค้ดของอาจารย์ TTT มาใส่แต่ว่ามันเป็นสีแดง ไม่ทราบว่ามันต้องปรับหน้าตาตรงไหนให้มันใช้ได้กับ Access ปัจจุบันหรอครับ


เบื้องลองแก้เองตามนี้ แต่ก็ติดปัญหาตรงนี้ครับ

[PNR]

ต้องดูว่า MS Office ใช้กี่ Bit

ครับ ถ้า 32bit ไม่น่าจะมีปัญหาอะไร
แต่ถ้า 64 bit ต้องมีคำว่า prtSafe ด้วย เช่น

Private declare prtsafe function ...........................

[001Jetnipit]

ต้องดูว่า MS Office ใช้กี่ Bit

ครับ ถ้า 32bit ไม่น่าจะมีปัญหาอะไร
แต่ถ้า 64 bit ต้องมีคำว่า prtSafe ด้วย เช่น

Private declare prtsafe function ...........................

แดงแบบเดิมเลยครับ





ผม 64 บิทครับ

[PNR]

ต้องดูว่า MS Office ใช้กี่ Bit

ครับ ถ้า 32bit ไม่น่าจะมีปัญหาอะไร
แต่ถ้า 64 bit ต้องมีคำว่า prtSafe ด้วย เช่น

Private declare prtsafe function ...........................

แดงแบบเดิมเลยครับ





ผม 64 บิทครับ

Copy codeมาหน่อยครับ
เอาเป็นตัวอักษรไม่เอาเป็นรูปนะครับ
ผมจะได้ copy มาแก้ให้ได้

[001Jetnipit]

'----------------Declarations Section----------------

โค๊ด: [Select]

Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOMOVE = &H2

Private Const SWP_NOSIZE = &H1

 

Public Sub On_Top(ByVal lhWnd As Long)

  SetWindowPos lhWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

 

Public Sub NotOn_Top(ByVal lhWnd As Long)

  SetWindowPos lhWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub
อันนี้เห็นอาจารย์ TTT บอกเอาไว้ในโมลดูลครับ

[PNR]

ลองแบบนี้ครับ

โค๊ด: [Select]

Option Explicit

Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long



Private Const HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

Private Const SWP_NOMOVE = &H2

Private Const SWP_NOSIZE = &H1

 

Public Sub On_Top(ByVal lhWnd As Long)

  SetWindowPos lhWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

 

Public Sub NotOn_Top(ByVal lhWnd As Long)

  SetWindowPos lhWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

[nonc31]

#If Win64 Or VBA7 Then
   Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
   Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if

ทำโค๊ดแบบนี้  เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย

[001Jetnipit]

ขอบคุณทุกท่านมากครับ โค้ดไม่ Error แล้วครับ แต่มันยังไม่ตรงจุดประสงค์ครับ ผมก็ไม่ทราบว่าทำไม อาจจะเป็นเพราะคำสั่งเก่าใช้งานไม่ได้