+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Runtime error 2475 (/konu-runtime-error-2475.html)
Runtime error 2475 - hknct - 11/02/2017
yaptığım programda Access penceresini gizleyen makro nedeniyle program hata veriyor. şöyleki ilk açılışta "Runtime Eror 2475"hatası veriyor hata sonrasu Debug bastığım zaman " Set loForm = Screen.ActiveForm" hata veriyor. programda ayar mı yapmam gerekiyor. siteden indirdiğin diğer programlarda da aynı hatayı veriyor.
Cvp: Runtime error 2475 - hknct - 11/02/2017
sorunu aşağıdaki kod ile değiştirerek çözdüm.
Kod:
Option Explicit
Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
ByVal Y3 As Long) As Long
Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, _
ByVal nCombineMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Const RGN_AND = 1
Public Const RGN_COPY = 5
Public Const RGN_DIFF = 4
Public Const RGN_OR = 2
Public Const RGN_XOR = 3
Public Function fSetAccessWindow()
Dim rgn1 As Long, rgn2 As Long
rgn1 = CreateRectRgn(0, 0, 1, 1)
CombineRgn rgn1, rgn1, rgn2, RGN_OR
SetWindowRgn Application.hWndAccessApp, rgn1, True
End FunctionKod:
Call fSetAccessWindow