Access Penceresini Gizleme Hakkında Her Şey

Taruz · 04-01-2012, 03:49

Merhaba arkadaşlar..

Bu konuda hazırlanmış videolu bir anlatım olsa da yazıya dökmek ve olayı detaylandırmak sanırım en iyisi.. Bunun devamındaki birkaç mesajda da karşılaşabileceğimiz sorunlar ve de ilave seçenekleri soru cevap şeklinde açıklamaya çalışacağım..

Hazırladığımız uygulamaların bir windows programı gibi açılmasını, görünmesini isteyebiliriz.. Access'e ait hiç bir şey görünmesin, sadece bizim hazırladığımız formlar, raporlar görünsün bencilliği içimizi kasıp kavurabilir..

İşte bu durumda yapmamız gerekenler..

Öncelikle uygulamamıza bir başlangıç formu, yani ilk açılışta ekrana gelmesini istediğimiz formu belirlememiz gerekiyor.. Bunun için;

2003 sürümünde: Araçlar / Başlangıç / Form-Sayfa Görüntüle
2007 sürümünde: Office Simgesi / Access Seçenekleri / Geçerli Veritabanı / Form Görüntüle
2010 sürümünde: Dosya / Seçenekler / Geçerli Veritabanı / Form Görüntüle

kısmından istediğimiz formu seçelim..

Sonra tüm formlarımızı ve varsa raporlarımızı tek tek tasarım görünümünde açıp Özellikler / Diğer Sekmesinde bulunan Açılan ve Kalıcı kısımlarını Evet yapalım..

[Resim: pencere1.jpg]

Şimdi Access penceresini (ve tüm menülerini) gizlemek için bir prosedüre ihtiyacımız var.. Aşağıdaki kodları yeni modül oluşturup Option Compare Database altına yapıştıralım..:

Visual Basic
Option Explicit
 
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
 
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
 
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

Devam ediyoruz.. Şimdi açılış formumuzu tasarım görünümünde tekrardan açalım ve Özellikler / Olay / Açıldığında satırına imleci yerleştirim kenarda beliren üç noktalı düğmeye tıklayalım.. Seçeneklerden Kod Oluşturucuyu seçelim ve açılan kod sayfasında bu komutu yapıştıralım..:

[Resim: pencere2.jpg]

Visual Basic
Call fSetAccessWindow(0)

Sonra, varsa raporlarımızı tasarım görünümünde açıyoruz ve yine Özellikler / Olay / Açıldığında kod sayfasına bu komutu yapıştırıyoruz..

Visual Basic
DoCmd.Maximize

Bu komut raporlarımızı tam ekran görünümünde açar.. Diğer türlü raporumuz formun altında ve çok küçük bir şekilde durur..

Şimdi uygulamayı kapatıp tekrardan açalım.. Göreceğiniz gibi Access penceresi artık yok ve sadece formumuz ekranda..:

[Resim: pencere5.jpg]

Taruz · 04-01-2012, 03:51

Soru:

"Uygulamayı kapatmak için formun sağ köşesindeki kapat düğmesini kullanıyorum. Uygulama kapandı gibi görünüyor ama tekrar açmak istediğimde açılmıyor. Görev yöneticisinde dosyanın halen açık olduğunu görüyorum.. Ne yapabilirim?"

Cevap:

Unutmayalım, yukarıda yaptığımız işlem Access penceresini gizler. Biz tüm formları veya diğer objeleri kapatmış bile olsak Access'i kapatmış sayılmayız..

Sorunu aşmak için; uygulamayı kapatacağınız formunuzun üstüne bir düğme yerleştirin ve tıklandığında olayına bunu komutu yazın..:

Visual Basic
DoCmd.Quit

Köşedeki kapat düğmesinden çıkışı engellemek içinse formunuzun Özellikler / Biçim / Kapat Düğmesi seçeneğini Hayır olarak değiştirin..

Sabit bir ana form kullanıyorsanız ve çıkışı bu formdan yapacaksanız yukarıdaki komutu biçim detaylarıyla uğraşmadan formunuzun kapandığında olayına da yazabilirsiniz..

Taruz · 04-01-2012, 04:09

Soru:

"Her şey iyi güzel de raporları önizlemede menü yok. Raporu nasıl yazdıracağız?"

Cevap:

Pencereyle birlikte menülerimiz de gitti..

Dolayısıyla raporlardaki görünümlerde kullandığımız seçenekler de artık yok..

Bunu aşmanın bir kaç yolu var..

En kolayı, raporu önizleme için bir düğme, yazdırmak için ayrı bir düğme kullanmak.. Araç kutusundan bir düğmeyi forma koyup ekrana gelen denetim sihirbazında bulunan rapor seçeneklerinden önizlemeyi değil de yazdırı seçersek rapor direkt yazdırılır..

Raporu önizlemede sağ tıkla yazdırayım derseniz öncelikle en başta her sürüme göre yerlerini belirttiğim, açılışta ekrana gelecek formu belirlemek için kullandığımız seçenekler sayfasına gidelim.. Araç Çubuğu kısmında, pasif ettiğimiz seçenekler varsa aktifleştirelim..

[Resim: pencere3.jpg]

Sonra aşağıdaki fonksiyonları ilk modülün altına yerleştirelim..:

Visual Basic
Public Function MenuGizle()
'Menü ve Araç çubuklarınız gizler..
 
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i
 
End Function
 
Public Function MenuGoster()
'Menü ve Araç çubuklarınız gösterir..
 
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i
 
End Function

Peşinden raporun açıldığında olayına daha önce yazdığımız DoCmd.Maximize komutunun altına bunu yazalım.:

Visual Basic
MenuGoster

Raporun kapandığında olayına da bunu yazalım ki rapor kapandıktan sonra formlarda sağ tıklama ile açılan kısayol menüsü yeniden pasif olsun..:

Visual Basic
MenuGizle

Bir üstteki komutu başlangıç formumuzun açıldığında olayına yazdığımız Call fSetAccessWindow(0) ifadesinin altına da yazalım..

Artık rapor önizlemesinde sağ tıklarsak yazdırma ve diğer seçeneklere kavuşmuş oluruz..:

[Resim: pencere4.jpg]

Taruz · 04-01-2012, 04:12

Soru:

Office sürümüm 64 bit ve yukarıdaki işlemleri tam olarak yapmama rağmen açılışta hata alıyorum.. Nasıl aşabiliriz?

Cevap:

64 Bit sistemlerde deklarasyon farklı olduğundan bu sistemde kullanacaklar ilgili kısmı bu şekilde değiştirsinler..

Visual Basic
Private Declare PtrSafe Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

"Ben uygulamayı hem 32 hem de 64 bit olan farklı makinelerde de kullanıyorum / kullanmak istiyorum" diyenler bu deklarasyonu bu şekilde değiştirsinler..:

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

Taruz · 04-01-2012, 04:16

Soru:

"Açılışta, form ekrana gelene kadar pencere görünüyor. Ne yaparız?"

Cevap:

Yeni bir makro oluşturun ve Kod Çalıştır'ı seçin İşlev Adı kısmına da fSetAccessWindow(0) yazıp makroyu autoexec adıyla kaydedin..

Gerekirse açılışta yaptığımız başlangıç formu ayarını boşaltıp formu bu radaki makroya ekleyeceğimiz Form Aç seçeneği ile de açılışta istediğimiz formu açtırabiliriz..:

[Resim: pencere6.jpg]

Bu yöntem açılışta görünen pencereyi nispeten ilk uyguladığımız yöntemden daha hızlı gizler..

Konuyu ayrıntısıyla anlatmaya çalıştım.. Anlatımda kullandığım dosya ilk mesajıma eklidir.. Shift tuşuna basılı olarak açarsanız normal içeriğe ulaşabilirsiniz.. Konu hakkında daha farklı soru veya sorunlarınız olursa yanıtlamaya çalışırım..

Taruz..

relaxim · 04-01-2012, 06:35

Elinize sağlık. Çok yararlı bir çalışma olmuş. Teşekkürler....

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL