Skip to main content

#EvdeKal


Access Pencere Gizleme Hk.

Access Pencere Gizleme Hk.

Çözüldü #1
Merhaba arkadaşlar;
Aşağıda belirttiğim kod ile başarılı bir şekilde Access penceresini gizliyorum. formların açılır ve kalıcı olması konusunda da problemim yok. Fakat Veri sayfası salt okunur modda bir liste, tablo veya rapor görüntülemeye çalıştığımda hata vermiyor ama görünürde de birşey açılmıyor. Sanki arkaplanda açık ama ekrana yansımıyor şeklinde bir problemim var. Yüklendiğinde kısmında bir kod düzeltmesiyle mi aşacağım bu sorunu? Yardımlarınızı bekliyorum.



Visual Basic Code
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
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

Cevapla
#2
Merhaba, test edebilmemiz için uygulamanızı ekleyebilir misiniz?
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Elbette. Aktivasyon sorunu yaşadığım için örneği harici kaynaktan yükledim.
.rar Database11.rar (Dosya Boyutu: 51,21 KB | İndirme Sayısı: 9)
Cevapla
#4
Rapor sorunu için, raporun açıldığında olayına docmd.maximize kodu eklemeniz gerekiyor.  Penceresi gizlenen uygulamada tablo açamazsınız.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da