Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/11/2008 01:06
Konu Sahibi
Puletin
Yorumlar
48
Okunma
26267
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

Puletin

Onursal Üye
Onursal Üye
 Belirtilmemiş
 1.716
 40
 01/11/2008
416
 -
 
 Ofis 2003
 24/12/2016,00:18
access görünümünü gizlemek için

yeni 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çılan 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


Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
 3.130
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,00:19
bu güzel bilgiler için teşekkürler hocam



Kullanici Avatari

nihatkr

Ofis 2007-2003-2010
Onursal Üye
 814
 89
 29/10/2008
272
 İstanbul
 
 Ofis 2007
 03/09/2016,04:40
Paylaşım İçin teşekkürler



Kullanici Avatari

bayFARUK

Aktif Üye
Aktif Üye
BA.... FA....
 43
 85
 17
 30/10/2008
37
 Sivas
 müdür
 Ofis 2010 64 Bit
 14/04/2018,11:09
Thumbs Up 
kodları örneklerle desteklersek daha çok kişiye faydalı olacaktır. Yeni başlayanlar daha iyi anlaşılır olacaktır.
teşekkürler


resim

Kullanici Avatari

kahraman701

Üye
Üye
 47
 21
 7
 08/11/2008
0
 Ankara
 
 Ofis XP
 05/02/2012,19:27
MRB HOCAM, KOD ÇOK GÜZEL ANCAK FORM ÜZERİNDEKİ BUTONLAR ÇALIŞMIYOR. BUNUDA HALLEDERSEK HARİKA OLACAK. SAYGILARRRRRRR



Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 19/09/2018,20:51
Sn Puletin Hocam elinize sağlık,teşekkürler...Bu konuyla ilgili örnek varmı? Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Access makro uyarısını otomatik kapatan uygulama (Access ile) mehmetdemiral 28 15.541 04/11/2012, 02:51
Son Yorum: mehmetdemiral
  Arama Kurtarma Birlikleri için Kriz Masası Programı mehmetdemiral 4 3.065 23/11/2008, 00:24
Son Yorum: mehmetdemiral

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.