Access Görünümünden kurtarma
Tarih
02/11/2008 01:06
Konu Sahibi
Puletin
Yorumlar
48
Okunma
21730
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy



Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
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...
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Dün,23:08
bu güzel bilgiler için teşekkürler hocam
Cevapla


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


bayFARUK
Aktif Üye
Kullanici Avatari
Aktif Üye
B.... F....
85
30/10/2008
37
Sivas
Ofis 2010
03/10/2016,11:26
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 
Cevapla


kahraman701
Üye
Kullanici Avatari
Üye
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
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
02/12/2016,21:35
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 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


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


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