Skip to main content

AccessTr.neT M.

dosya kapanırken oto tamir bakım

Konu

#1
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
#2
Paylaşım için teşekkürler.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
...........
#3
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
#4
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
...........
#5
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
#6
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
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da