*.mdb dosyamı açtığımda sadece FORM açılsın

[murbal]

Merhaba Arkadaşlar,

Access dosyamı açtığımda sadece yapmış olduğum form açılsın ve arkada çalışan query, table ve macrolara ulaşılmamasını istiyorum nasıl yapabilirim.

Teşekkür ederim,

 

[murbal]

Yardim Edecek Kİmse Yok Mu Bana

lütfen yardıma ihtiyacım var...

 

[shogan]

bunu başlangıç menüsünden yapabilirsin sanırım. ha veritabanı ile oynanmasın dersen mde de yapabilirsin. ama daha başka çözümü olanlar vardır mutlaka.biraz sabret.

 

[hozzeybek]

formda aradığın şey var acces penceresini gizlemek olarak arat bulamazsan yaz yardımcı olayım

 

[murbal]

link açılmıyo

Arkadaşlar,

Öncelikle yardımlarınız için teşekkür ederim, ilk açılışta form u açabiliyorum, önceden cevaplanan aynı soruda link var fakat açılmıyor, rica etsem yardımcı olurmusunuz.

tşk,

 

[hozzeybek]

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 Function

Yukarıdaki kodu modül olarak kaydet
sonra yeni bir makro oluştur eylemi kod çalıştır seç ve işlev kutusuna da fAccessWindow ("Hide", False, False) yaz.
programın ilk açılan formun özeliklerinde açıldıgında kısmına makro adını yaz tüm form ve raporlarının açık ve kalıcı özeliklerini de evet e ayarla. Ayrıca Raporları tam ekran açılacak şekilde ayarla
Not: Kodlar gülsüm1 den alıntı
Kolay gelsin.

 

[tebessum2003]

cevap

arkadaşım araçlardan form ve sayfa görüntüle sekmesinden başlangıçta hangi formun görünmesini istiyorsan onu seç ve tamam de istediğin gerçekleşecektir..