Skip to main content

AccessTr.neT M.

program belirli bir boyuta ulaştığında repair yapıp yeniden açma

Konu

#1
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

meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
#2
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

Cevapla
...........
#3
Gerçekten güzel düşünülmüş bir çözüm. Ne de olsa eşref hoca 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
#4
teşekkürler kod için.

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla
...........
#5
esref hocam kod 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
#6
Son Düzenleme: 11/11/2008, 15:42, Düzenleyen: Chong_Lee.
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..

皇天既付中國民越厥疆土于先王」 中华人民共和国", "中華人民共和國
全國約有的人能用普通話交流
部落格 - Xu Guangqi


Cevapla
...........

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task