Skip to main content

AccessTr.neT


Ana Menüden 2.Form Açtığımda Formu Görev çubuğuna Inmiyor. 32 den 64 e geçiş hatası

Oğuz Türkyılmaz
Oğuz Türkyılmaz
7
505

Ana Menüden 2.Form Açtığımda Formu Görev çubuğuna Inmiyor. 32 den 64 e geçiş hatası

#2
Option Compare Database
Option Explicit

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const tr = 3
Global Const SW_SHOWMAXIMIZED = 3

#If Win64 Then
Private Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#Else
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
#End If

Function gizle(nCmdShow As Long)

Dim loX As Long
Dim loForm As Form
On Error Resume Next

Set loForm = Screen.ActiveForm
If Err <> 0 Then
If nCmdShow = SW_HIDE Then
MsgBox "deneme" & "a form is on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
If nCmdShow = tr And loForm.Modal = True Then
MsgBox "deneme" & (loForm.Caption + " ") & "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "deneme" & (loForm.Caption + " ") & "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
End If
gizle = (loX <> 0)
End Function

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Ana Menüden 2.Form Açtığımda Formu Görev çubuğuna Inmiyor. 32 den 64 e geçiş hatası - Yazar: feraz - 12/04/2023, 01:09
Task