+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Açılışta Form Un Açılması (/konu-acilista-form-un-acilmasi.html)
Sayfalar:
1
2
Açılışta Form Un Açılması - derzulya - 24/05/2017
Merhaba arkadaşlar.
Gerek forumda gerekse diğer sayfalarda ve hatta youtube da aramalarıma ve bulduklarımı uygulamama rağmen yinede sonuca ulaştıramadım. Açılışta sadece form un açılması olayını yapamadım bir türlü.
https://accesstr.net/konu-access-penceresini-gizleme.html?pid=67732#pid67732
https://accesstr.net/konu-access-2007-pencere-gizleme-ve-baslangicta-formu-gosterme-olayi.html
https://accesstr.net/konu-formu-otomatik-acmak.html
buradaki yazılar denediklerimin sadece bazıları. Eklerindeki uygulamalardaki kodları dahi denedim ama biyerde hata yaptığıma eminim.
son olarak denediğim kod şu şekilde;
Kod:
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean
If Procedure = "Hide" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
End If
If Procedure = "Show" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
If Procedure = "Minimize" Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED)
End If
If SwitchStatus = True Then
If IsWindowVisible(hWndAccessApp) = 1 Then
dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE)
Else
dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED)
End If
End If
If StatusCheck = True Then
If IsWindowVisible(hWndAccessApp) = 0 Then
fAccessWindow = False
End If
If IsWindowVisible(hWndAccessApp) = 1 Then
fAccessWindow = True
End If
End If
End FunctionCvp: Açılışta Form Un Açılması - C*e*l*o*y*c*e - 24/05/2017
örneği incelegin lütfen
Cvp: Açılışta Form Un Açılması - derzulya - 24/05/2017
hata verdi. ayrıca Access görünmeden sadece popup form olmazmı
![[Resim: do.php?imgf=14956062565861.png]](https://accesstr.net/resim/do.php?imgf=14956062565861.png)
Cvp: Açılışta Form Un Açılması - C*e*l*o*y*c*e - 24/05/2017
sizin pc 64 bit değil sanırım bundan hata verdi
hatada belirtilen "Ptresafe" kelimesini silip tekrar deneyin
Cvp: Açılışta Form Un Açılması - derzulya - 24/05/2017
Yok olmadı. Ptrsafe silince de hiç açılmıyor donup kaldı access.. Diğer Access dosyalarını açıyor.
![[Resim: do.php?imgf=149560668537031.png]](https://accesstr.net/resim/do.php?imgf=149560668537031.png)
Cvp: Açılışta Form Un Açılması - C*e*l*o*y*c*e - 24/05/2017
o zaman muhtemelen ofis sürümüm farkı var
referansları aç ve orada MiSSİNG yazan yerdeki "microsoft Access ....(bende 14.0) object library" yazan yeri önce kaldır,sonra kendindeki (1,2,15 vb ) hangisi varsa seçip tekrar işaretle