Option Compare Database
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
loX = apiShowWindow(hWndAccessApp, nCmdShow)
fSetAccessWindow = (loX <> 0)
End Function
Merhaba Arkadaşlar yukarıdaki kodu bir module içine yazıyorum ve ilk açılan formun da yüklendiğinde olay yordamına aşağıdaki kodu yazıyorum.
fSetAccessWindow (SW_HIDE)
Access penceresi yok oluyor ve formlar arasında dolaşırken hiçbir sorun olmuyor, ancak daha sonra bu formdan bağımsız bir raporu açmak için ya da yazdırmak için butona bastığımda program donuyor ve hiçbir şekilde müdahale edemiyorum, bilgisayarı kapatmak zorunda kalıyorum. Kodu kendim yazmadım, başka bir dosyadan aldım, acaba sorunun ne olduğunu anlayan ve ne yapmam gerektiğini söyleyebilecek olan var mı? :yardim: Yardımınız için şimdiden çok teşekkürler.
Global Const SW_HIDE = 0
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
loX = apiShowWindow(hWndAccessApp, nCmdShow)
fSetAccessWindow = (loX <> 0)
End Function
Merhaba Arkadaşlar yukarıdaki kodu bir module içine yazıyorum ve ilk açılan formun da yüklendiğinde olay yordamına aşağıdaki kodu yazıyorum.
fSetAccessWindow (SW_HIDE)
Access penceresi yok oluyor ve formlar arasında dolaşırken hiçbir sorun olmuyor, ancak daha sonra bu formdan bağımsız bir raporu açmak için ya da yazdırmak için butona bastığımda program donuyor ve hiçbir şekilde müdahale edemiyorum, bilgisayarı kapatmak zorunda kalıyorum. Kodu kendim yazmadım, başka bir dosyadan aldım, acaba sorunun ne olduğunu anlayan ve ne yapmam gerektiğini söyleyebilecek olan var mı? :yardim: Yardımınız için şimdiden çok teşekkürler.