Access Penceresini Gizleme
Tarih
07/11/2008 00:13
Konu Sahibi
ozanakkaya
Yorumlar
138
Okunma
67418
Konuyu Oyla:
  • Derecelendirme: 5/5 - 2 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 2 oy



ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,01:03
1. YOL

Access Penceresini gizlemek için uygulamanızda yeni bir modül oluşturun ve içerisine aşağıdaki kodları yazın.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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


Başlangıçta ilk açılan formun "Yüklendiğinde" olayına

Kod:
Call fAccessWindow("Hide", False, False)

yazın

veya

yeni bir makro oluşturun. makronun "Eylem" alanına "Kod Çalıştır", "Eylem Değişkenleri" bölümündeki "İşlev Adı" alanına

Alıntı:fAccessWindow ("Hide", False, False)
yazın ve "Autoexec" adıyla kaydedin.


Uygulamanızdaki tüm formların ve raporların özelliklerinden "Açılan" ve "Kalıcı" alanlarındaki değerleri "Evet" olarak belirleyin.



Uygulamanızdaki tüm raporların Açıldığında olayına aşağıdaki kodu yazın

Kod:
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub



2. YOL

Access Penceresini gizlemek için uygulamanızda yeni bir modül oluşturun ve içerisine aşağıdaki kodları yazın.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
loX = apiShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
End If

If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
MsgBox "Cannot minimize Access with " _
& (loForm.Caption + " ") _
& "form on screen"
ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
MsgBox "Cannot hide Access with " _
& (loForm.Caption + " ") _
& "form on screen"
Else
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End If
fSetAccessWindow = (loX <> 0)
End Function




Başlangıçta ilk açılan formun "Yüklendiğinde" olayına

Kod:
fSetAccessWindow (SW_HIDE)

yazın

Uygulamanızdaki tüm formların ve raporların özelliklerindeki "Açılan" ve "Kalıcı" alanlarındaki değerleri "Evet" olarak belirleyin.


Uygulamanızdaki tüm raporların Açıldığında olayına aşağıdaki kodu yazın

Visual Basic Code
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub





3. YOL (Tavsiye Edilen)


Access Penceresini gizlemek için uygulamanızda yeni bir modül oluşturun ve içerisine aşağıdaki kodları yazın.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Compare Database
Option Explicit

Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, _
    ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
    ByVal Y3 As Long) As Long
Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, _
    ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, _
    ByVal nCombineMode As Long) As Long
Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _
    ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Public Const RGN_AND = 1
Public Const RGN_COPY = 5
Public Const RGN_DIFF = 4
Public Const RGN_OR = 2
Public Const RGN_XOR = 3

Public Function degistir()
Dim rgn1 As Long, rgn2 As Long
  
   rgn1 = CreateRectRgn(0, 0, 1, 1)
   CombineRgn rgn1, rgn1, rgn2, RGN_OR
   SetWindowRgn Application.hWndAccessApp, rgn1, True
End Function
Public Function degistir2()
Dim rgn1 As Long, rgn2 As Long
  
   rgn1 = CreateRectRgn(0, 0, 1500, 1500)
   CombineRgn rgn1, rgn1, rgn2, RGN_OR
   SetWindowRgn Application.hWndAccessApp, rgn1, True
End Function


Başlangıçta ilk açılan formun "Yüklendiğinde" veya "açıldığında" olayına

Kod:
Modul1.degistir

yazın (Modul1, modülün adı)



Uygulamanızdaki tüm formların ve raporların özelliklerinden "Açılan" ve "Kalıcı" alanlarındaki değerleri "Evet" olarak belirleyin.



Uygulamanızdaki tüm raporların Açıldığında olayına aşağıdaki kodu yazın

Visual Basic Code
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub


3. yolda belirtilen işlemler uygulandığında pencere gizlenmiyorsa aşağıdaki örneği inceleyiniz.

Ek Dosyalar
yol3örnek.rar


Access 2007 ile hazır yapılmış örnek için lütfen 85 numaralı mesaj  daki örnek dosyayı inceleyiniz.
Cevapla


askaskeri
Aktif Üye
Kullanici Avatari
Aktif Üye
88
30/10/2008
0
Ordu
Ofis 2003
19/10/2015,18:20
paylaşım için teşekkürler
Cevapla


accessAE
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
92
02/11/2008
Bartın
Ofis 2003
21/11/2014,01:14
paylaşımınız için teşekkürler.
Cevapla


triopas
Üye
Kullanici Avatari
Üye
6
0
06/11/2008
0
Antalya
Ofis XP
12/11/2009,13:39
yazınızdakilerin hepsini uyguladım. sorunsuz olarak çalıştı. ancak formu kapatıp yeniden açmaya çalıştığımda açılmıyor.. ancak bilgisayarı kapatıp açarsam yeniden açabiliyorum bunun nedeni ne olabilir düzeltmek için ne yapmalıyım bu konuda yardımcı olursanız çok sevinirim
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,01:03
Bu uygulamayı kullanacaksan her zaman bir form açık kalmalı, programı tamamen kapatacağında butona "docmd.quit" kodu yerine "application.quit" kodunu kullanmalısın.
Cevapla


triopas
Üye
Kullanici Avatari
Üye
6
0
06/11/2008
0
Antalya
Ofis XP
12/11/2009,13:39
programcılık konusunda çok acemiyim. kısaca birşey bilmiyorum diyelim. hazırladığım form'u kapatmak için herhangi bir buton eklemediğim için normal pencere kapatmadaki sağ üstteki çarpıyı kullanıyorum bu durum için komutun nasıl olması gerek? birde accessi gizleyince düzenleme moduna geçemiyorum. yardımcı olursanız çok sevinirim
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access 2010'da oluşturulan veya değiştirilen bir veritabanını açmak için Access 2007'yi kullanm aobendes 1 3.955 05/12/2011, 14:20 alpeki99
  Access 2003'ten Access 2010'a Geçiş Bilgileri Tablosu alpeki99 4 3.149 14/09/2010, 15:08 kadirdursun
Star Access penceresini gizleme / Access görünümünden kurtarma filiz_lab 1 4.430 04/09/2010, 00:38 alpeki99
Çözüldü Access 2003 - Access 2007 komut başvuru kılavuzu accessdelisi 0 2.321 03/11/2008, 13:07 accessdelisi
  Access 2007'de Access 2003 Komutlarının Yerleri accessdelisi 0 1.985 30/10/2008, 09:55 accessdelisi


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya