Her ne kadar çözüm elde ettiğinizi beyan etmiş olsanız da,konunuzun 9.mesajında eklediğiniz örnek uygulama incelendiğinde,aşağıdaki hususlara dair açıklamaların yapılması uygun görülmüştür.
1) Pencere (arka planda Access) gizleme işlemi için üst menüden ARAÇLAR-BAŞLANGIÇ sekmesinde yer alan
- UYGULAMA SEÇENEKLERİ başlığı altındaki Access ÖZEL TUŞLARINI KULLAN
- ŞERİT ARAÇ ÇUBUĞU SEÇENEKLERİ altındaki TAM MENÜLERE İZİN VERME,VARSAYILAN KISAYOL MENÜ İZNİ ve YERLEŞİK ARAÇ ÇUBUKLARI İZNİ seçeneklerinin işaretli olduğu fark edilmiştir.
Yukarıda bahsi geçen ifadelerinin olduğu checkbox kutuları İŞARETSİZ olması gerekmektedir ki,bu işlemlere zemin hazırlansın.
2) frm_1 adlı formun Açıldığında olay yordamındaki
Kod:
Call fSetAccessWindow(0)a) mdl_access_gizleme adlı modülün içeriğini tamamen siliniz ve aşağıdaki kodları dahil ediniz.
Kod:
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
#If VBA7 And 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 fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm
If Err <> 0 Then
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If
If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End FunctionKod:
fSetAccessWindow (SW_HIDE)EK'te;
Yukarıda bahsi yapılan tüm açıklamaların uygulandığı hali ile düzenlenerek hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bu paylaşımın faydalı olması temennisi ile.bilginize…iyi çalışmalar,saygılar.
