dosya kapanırken oto tamir bakım
Tarih
01/02/2013 15:19
Konu Sahibi
fatih karagöl
Yorumlar
9
Okunma
3344
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Sponsor Reklam
Bazen dosyalarımızın tasarımı ile uğraşırken bir bakmışız 2 gb olmuş ve dosyamız çökmüş yada eşiğinde. Dosyamızın özelliklerine göre tablomuzda (versiyon tablosu) tuttuğumuz bir mg parametresine üzerinden bunun önüne geçebiliriz. En çok kullandığımız formun ( ana formumuz) kapanış olayına kodları yerleştiriyoruz.
bu şekilde hem dosyamızı hemde performansını korumuş oluyoruz
İşinize yaraması dileği ile

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
Private Sub Form_Close()
     fixAndzipFile
     Application.Quit
End Sub
Private Sub fixAndzipFile()
     Dim dkb As long, dmg As Double, dAlowedMg As Double
     dkb = GetFileSize(Application.CurrentDb.NAME)
     dmg = dkb / 1048576
     dAlowedMg = DLookup("allowedSize", "versiyon")
     If dmg > dAlowedMg Then
        MsgBox "Veri tabanı kontrolü ve bakımı yapılacaktır" & vbCrLf & "Bu işlem bilgisayarınızın hızına göre bir kaç saniye sürebilir" & vbCrLf & "Lütfen müdahale etmeyin !!!", vbCritical, "Asistan"
        Application.SetOption ("Auto Compact"), 1
     Else
        Application.SetOption ("Auto Compact"), 0
     End If
End Sub

Function GetFileSize(strFile As String)
Dim system, dosya As Object
On Error GoTo cikis:
    Set system = CreateObject("Scripting.FileSystemObject")
    Set dosya = system.Getfile(strFile)
    GetFileSize = dosya.Size
    Set dosya = Nothing: Set system = Nothing
cikis:
End Function


Hayatta listbox kullanmam..
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,13:00
Paylaşım için teşekkürler.
Cevapla

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
Dün,08:14
Sponsor Reklam
Paylaşım için teşekkürler.

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

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
Bu işlem Düzenle ve Onar ile aynı işimi yapıyor?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

fatih karagöl
Aktif Üye
Kullanici Avatari
Aktif Üye
167
05/10/2010
88
Edirne
-
15/12/2015,17:38
Sponsor Reklam
evet sn alpeki. eğer dosya boyutu sizin izin verdiğinizi geçmişse kapanışta düzenle ve onar yapıyor
Hayatta listbox kullanmam..
Cevapla

alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
6.020
29/10/2008
Ordu
Ofis 2013 32 Bit
11/01/2017,17:51
2007 ve sonraki versiyonlarda kapanışta bu özelliği ayarlama var diye biliyorum. O zaman 2003 ve önceki versiyon kullananların kaçırmaması gerekir Img-grin
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  dosya depola accessman 12 3.147 16/01/2016, 23:25 ferit39
  Personel ve Bakım Takip Sistemi Akifff 5 2.005 30/07/2015, 09:45 Akifff
  Web Browser İle PDF Dosya Görüntüleme Örneği F.Ç 5 2.155 26/08/2014, 09:40 hgsoftware
  Veritabanı Yedekleme ve Bakım Uygulaması V3 ozanakkaya 58 17.817 22/05/2013, 03:23 kaleci
  Dosya Arama Örneği (uzantısına göre) ozanakkaya 10 6.485 14/05/2012, 16:01 accessman


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