26-07-2009, 00:21
(En son düzenleme: 26-07-2009, 00:24 Mehmet Eser.)
Merhabalar, |
Yukarıdaki linkte bulunan konuda belirttiğim meseleyi örneğe döktüm. ADO kısmı açıkcası biraz zorladı, henüz pek alışamadım ona.
Örneğin özellikleri:
- Ayar tablosunda kapatma sayısını ve ayarını tutar (her kullanıcı için ayrı olabilir)
- Form kapanmadan önce kapatma sayısına bakar
- Kapatma sayısı ayarla eşitlendikten sonra otomatik işlem yapar ve sayıyı sıfırlar.
- Formdan değilde Access kapat düğmesinden de kapatsanız o işine devam eder, kaçışı yoktur.
Formdaki ayar, nbe ayarlanmış olduğunu görmeniz içindir. normalde ana formda saklanır.
Güle güle kullanın işinize yararsa. Bu örnek daha farklı şekillerde türetilebilir. Ben her kapatışa ayarlıyorum. Ama kullanıcıya da ayarlama imkanı sağlarım.
İndirmek için Karşıdan Yükleye tıklayın.
Sağlıkla kalın.
Temel kod:
Visual Basic
- Function ME_KapatSay()
-
-
- Dim Kapatma As Integer
- Dim Kayar As Integer
-
- Dim Ayar As ADODB.Recordset
- Set Ayar = New ADODB.Recordset
- Ayar.Open "ME_VTAyar", CurrentProject.Connection, , adLockOptimistic
- Kapatma = Ayar!KapatmaSay
- Kayar = Ayar!KapatmaAyar
-
-
- If Kapatma = Kayar Then
- Call MsgBox("Şimdi sıkıştırma ve onarma yapılacak.", vbInformation, Application.Name)
- Ayar!KapatmaSay = "0"
- Ayar.Update
- DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
- Application.CommandBars.FindControl(id:=2071).accDoDefaultAction
- Else
- Ayar!KapatmaSay = Ayar!KapatmaSay + 1
- Ayar.Update
- End If
-
- End Function
VT:Veri Tabanı, AVT: Access VT, MS:Microsoft, Kapaç: Kapa ve aç (rebot ve açkapa saçmalığına çözümüm) 
Yazan okuyan sağolsun, çözene saygılar. Kolaylaştırınız, zorlaştırmayınız.? Cinnet geçirmemek için Access 2010'u SP2 ile kullanalım.
? Sürekli sebepsiz hatalar oluyor da AVT uçuyorsa siz de Ofis kurulmunu uçurun çözülüyor. Sorun kurulum dosyanızda! Farklısını bulun!
? VT dağıtıma çıkana kadar bölmek zaman kaybıdır!
{ Veri Tabanı Mantığı } {Access 2010 çökmelerine çözüm } { 60 Günlük Ofis 2010 Pro Türkçe } { Kayıtları Yan Yana Göstermek }
{ Forma Rapora Resim Fotoğraf Eklemek En kolay En Sağlam En Zengin Teknik }
