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
1-VERSİYON 1 için ( MDB )
Polis arkadaşların küçük birimlerinde kullanabileceği ve geliştirilmeye açık,ayrıca diğer arkadaşların içinde faydalanabileceği örnekleri olan güzel bir Yivsiz Tüfek Ruhsat Takip programı v1 güle güle kullanın ,Yorumlarınızı bekliyorum
Kullanıcı: CELOY
Şifre :123
diğer şifre :1111
..........................................................................................................
2-ÖZEL GELİŞMİŞ-SON VERSİYONU (VB-NET )
Bu Emniyet mensupları ve Jandarma için yapılmış,Yivsiz Tüfek Ruhsat Takip programının 3.versiyonunu (Vb-net) ekliyorum ,ancak burada bir emek olduğu için ayrıca Geneli değil, belilli bir kısım kullanıcıyı ilgilendirdiği için SINIRLI olarak ekledim,Özel mesaj yazan Emniyet ve Jandarma Teşkilat mensuplarına değerlendirildikten sonra LİSANS verilecektir.
Kullanıcı :c
Şifre :c
<>Kişi ekleme (resimli haliyle)
<>Sınırsız Silah Ekleme
<>Kişi ve Silah bilgilerini Excele alma
<>İşyeri adını ve Bilgi ve Logosunu değiştirme
<> Yedekleme ve Geri Alma
<>Tezkere Süreleri bitenleri takip etme
<>Kameradan Resim alma(Kamera Olmalı)
<>Vb birçok özellik...
Aşagıdaki demo programını kurup,deneyin,AYRICA GELİŞTİRİLDİKCE EKLEME YAPILACAKTIR,LÜTFEN TAKİP EDİN
Polis arkadaşların küçük birimlerinde kullanabileceği ve geliştirilmeye açık,ayrıca diğer arkadaşların içinde faydalanabileceği örnekleri olan güzel bir Yivsiz Tüfek Ruhsat Takip programı v1 güle güle kullanın ,Yorumlarınızı bekliyorum
Kullanıcı: CELOY
Şifre :123
diğer şifre :1111
..........................................................................................................
2-ÖZEL GELİŞMİŞ-SON VERSİYONU (VB-NET )
Bu Emniyet mensupları ve Jandarma için yapılmış,Yivsiz Tüfek Ruhsat Takip programının 3.versiyonunu (Vb-net) ekliyorum ,ancak burada bir emek olduğu için ayrıca Geneli değil, belilli bir kısım kullanıcıyı ilgilendirdiği için SINIRLI olarak ekledim,Özel mesaj yazan Emniyet ve Jandarma Teşkilat mensuplarına değerlendirildikten sonra LİSANS verilecektir.
Kullanıcı :c
Şifre :c
<>Kişi ekleme (resimli haliyle)
<>Sınırsız Silah Ekleme
<>Kişi ve Silah bilgilerini Excele alma
<>İşyeri adını ve Bilgi ve Logosunu değiştirme
<> Yedekleme ve Geri Alma
<>Tezkere Süreleri bitenleri takip etme
<>Kameradan Resim alma(Kamera Olmalı)
<>Vb birçok özellik...
Aşagıdaki demo programını kurup,deneyin,AYRICA GELİŞTİRİLDİKCE EKLEME YAPILACAKTIR,LÜTFEN TAKİP EDİN
Yabancı bir siteden alıntı şeffaf ve yavaş açılan form.
Ekteki program ile kullandığınız kredi kartlarınızın takibini yapabilirsiniz. Ayrıca accessi öğrenmek isteyenler için güzel örnekler içerdiğini de söyleyebilirim.
Arkadaşlar, uygulamadaki bazı problemleri çözmeye çalıştım. Varsa bir hata fırsat bulursam inş. yeniden bakarım.
Çözdüğüm sorunlar:
Limit sorunu.
İstediğin kadar taksit olayı.
Son fatura ödeme konusundaki hata.
NOT: Bilgisayarınızda C:/WINDOWS/System32 klasöründe msadox ve MSCOMCTL dosyaları bulunmalıdır. bkz: Mesaj#17
Arkadaşlar, uygulamadaki bazı problemleri çözmeye çalıştım. Varsa bir hata fırsat bulursam inş. yeniden bakarım.
Çözdüğüm sorunlar:
Limit sorunu.
İstediğin kadar taksit olayı.
Son fatura ödeme konusundaki hata.
NOT: Bilgisayarınızda C:/WINDOWS/System32 klasöründe msadox ve MSCOMCTL dosyaları bulunmalıdır. bkz: Mesaj#17
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 372 aktif kullanıcı var.
AhrefsBot, Applebot, Bing Bot, Google Bot, SemrushBot, Trendiction, YandexBot, haydarugur
(1 Üye - 364 Ziyaretçi)