AccessTr.neT
dosya kapanırken oto tamir bakım - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: dosya kapanırken oto tamir bakım (/konu-dosya-kapanirken-oto-tamir-bakim.html)

Sayfalar: 1 2


dosya kapanırken oto tamir bakım - fatih karagöl - 01/02/2013

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

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



Cvp: dosya kapanırken oto tamir bakım - ozanakkaya - 01/02/2013

Paylaşım için teşekkürler.


Cvp: dosya kapanırken oto tamir bakım - benremix - 01/02/2013

Paylaşım için teşekkürler.

Saygılar...


Cvp: dosya kapanırken oto tamir bakım - alpeki99 - 01/02/2013

Bu işlem Düzenle ve Onar ile aynı işimi yapıyor?


Cvp: dosya kapanırken oto tamir bakım - fatih karagöl - 01/02/2013

evet sn alpeki. eğer dosya boyutu sizin izin verdiğinizi geçmişse kapanışta düzenle ve onar yapıyor


Cvp: dosya kapanırken oto tamir bakım - alpeki99 - 01/02/2013

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