AccessTr.neT
program belirli bir boyuta ulaştığında repair yapıp yeniden açma - 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ığı: program belirli bir boyuta ulaştığında repair yapıp yeniden açma (/konu-program-belirli-bir-boyuta-ulastiginda-repair-yapip-yeniden-acma.html)

Sayfalar: 1 2


program belirli bir boyuta ulaştığında repair yapıp yeniden açma - esrefigit - 10/11/2008

Public Function AutoCompactCurrentProject()
Dim fs, f, S, filespec
Dim strProjectPath As String, strProjectName As String

strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath & "\" & strProjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb’s
If S > 20 Then 'edit the 20 (Mb’s) to the max size you want to allow your app to grow.
Application.SetOption ("Auto Compact"), 1 'compact app
Else
Application.SetOption ("Auto Compact"), 0 'no don’t compact app
End If
End Function


Cvp: program belirli bir boyuta ulaştığında repair yapıp yeniden açma - C*e*l*o*y*c*e - 10/11/2008

hocam anladığımız kadarıyla belli bir (20Mb'ye) ulaştığında kendini yeniliyor,ve sıkıştırıyor,değilmi ...
gayet güzel bir kod ve paylaşımların için tekkürler


Cvp: program belirli bir boyuta ulaştığında repair yapıp yeniden açma - alpeki99 - 10/11/2008

Gerçekten güzel düşünülmüş bir çözüm. Ne de olsa eşref hoca Img-grin


Cvp: program belirli bir boyuta ulaştığında repair yapıp yeniden açma - chopper07 - 10/11/2008

teşekkürler kod için.


Cvp: program belirli bir boyuta ulaştığında repair yapıp yeniden açma - ozanakkaya - 11/11/2008

esref hocam kod için teşekkürler


Cvp: program belirli bir boyuta ulaştığında repair yapıp yeniden açma - Chong_Lee - 11/11/2008

Eşref hocam altına yazdığığın çin atasözünün hakkını veriyorsun valla.. Peki aklıma geldi şimdi accessimizi boyutu ufakken onarmak yada büyük olsa bile çok sık onarmak zararlımı ki? Bizim firmadaki accesslerde hep kapanışta var onarma kodu. Ama sonuçta değişik bir kod bilgimiz olsun diye mi verildi sadece. Yine kafam karıştı...
Bide eşref hocam visual basic konusunda led tabela konu başlığında o şekilde led şeklinde bir yazıyı accesste kaydırabilirmiyiz..

Bir çin atasözü derki: düşündüğünü yapabiliyorsan, düşündüğün senindir, yapamıyorsan ise düşündüğün hayalindir..