Access penceresinin görünmemesini nasıl sağlıyoruz

[ender_66]

MErhaba arkadaşlar access penceresinin görünmemesini nasıl sağlıyoruz...Yani sadece form açılsın istiyorum...

 

[BG]

Sayın ender_66

MErhaba arkadaşlar access penceresinin görünmemesini nasıl sağlıyoruz...Yani sadece form açılsın istiyorum...

Access dosyanızı açın, Araçlar/Başlangıç

açılan pencerede;

Form/Sayfa Görüntüleme: dosyayı açtığınızda ekrana gelmesini istediğiniz formu seçin ve bu penceredeki tüm kutuları boşaltın "TAMAM" butonuna tıklayın.

Not: Tekrar veritabanı penceresindeki (tablolar,formlar,sorgular vb..) alanların görüntülenmesi için dosyayı açarken Shift tuşuna basınız.

 

[ender_66]

Çok teşekkür ederim...

 

[ender_66]

Arkadaşım bu forum da rastladğım bir telefon rehberinde tablo ekrana sanki kurulu bir program gibi geliyor peki bunu nasıl yapabiliriz

 

[PLTNAZR]

ACCESS GÖRÜNÜMÜNDEN KURTARMA

Bir makro oluşturun eylem e kod çalıştır secin işlev kutusuna da fAccessWindow ("Hide", False, False) yazın
programın ilk açılan formun özeliklerinde açıldıgında yerine de makro adını yazın tüm from ve raporlarının açıl ve kalıcı özeliklerini de evet e ayarlayın yeni bir modül oluşturun içinede
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

Ayrıca Raporlarınızın özelliklerden "Açıldığında" olay yordamına aşağıdaki kodu yazın. Bunun sebebi rapor açılıyor ama minimize oluyor bunu engellemek için yazıyoruz.
Kod:
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

Not;Formlarınızın Üstteki Kapatma komutlarını Pasif yapmanızı tavsiye ederim.Aksi halde bu butonu kullananlar program kapandı zanneder ancak Arka plan da çalışmaya devam eder..Onun Yerine Programınız tamamen kapatan bir komut yazmanızı tavsiye ederim...

 

[ender_66]

Teşekkür ederim ilginiz için...

 

[PLTNAZR]

Rica Ederim
İşinize yaradıysa..
Ne mutlu....

 

[koCHEro]

Programı tamamen kapatma kodu

Not;Formlarınızın Üstteki Kapatma komutlarını Pasif yapmanızı tavsiye ederim.Aksi halde bu butonu kullananlar program kapandı zanneder ancak Arka plan da çalışmaya devam eder..Onun Yerine Programınız tamamen kapatan bir komut yazmanızı tavsiye ederim...[/QUOTE]

Sevgili dostum verdiğin bilgiler için teşekkür ederim. benim de bir sorum olacak.
program kapanıyor ama arka planda çalışmaya devam ediyor. kapatma kodu hakkında yardımınıza ihtiyacım var.

 

[modalı]

Sayın koCHEro,

Aşağıdaki kodları kullanabilirsiniz:

On Error GoTo Err_Komut0_Click


    DoCmd.Quit

Exit_Komut0_Click:
    Exit Sub

Err_Komut0_Click:
    MsgBox Err.Description
    Resume Exit_Komut0_Click

Esas işi yapan kısım: DoCmd.Quit

İyi çalışmalar