Sayın Hulsen, yeni bir modül oluşturun ve aşağıdaki kodları yapıştırıp kaydedin.
Option Compare Database
Option Explicit
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)
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
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function
Daha sonra açılışta çağrılan formun "Açıldığında" kısmına aşağıdaki kodu yazın.
Call fSetAccessWindow(0)
Access penceresi gizlenecektir. Kolay gelsin.
Access De Üst Şeridi Gizlemek
Bu Konudaki Yorumlar |
Access De Üst Şeridi Gizlemek - Yazar: hulsen - 09/05/2017, 09:11
Cvp: Access De Üst Şeridi Gizlemek - Yazar: atoz112 - 09/05/2017, 09:35
Cvp: Access De Üst Şeridi Gizlemek - Yazar: hulsen - 09/05/2017, 10:12
Cvp: Access De Üst Şeridi Gizlemek - Yazar: atoz112 - 10/05/2017, 12:02
Cvp: Access De Üst Şeridi Gizlemek - Yazar: biberli33 - 10/05/2017, 12:02
Cvp: Access De Üst Şeridi Gizlemek - Yazar: atoz112 - 28/05/2017, 17:15
|
Konuyu Okuyanlar: 1 Ziyaretçi