Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
10/11/2008 19:05
Konu Sahibi
esrefigit
Yorumlar
7
Okunma
3687
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

esrefigit

Aktif Üye
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
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

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Me.... B.....
 46
 71
 3.180
 29/10/2008
983
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Dün,22:59
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



Kullanici Avatari

alpeki99

Uzman
Ol....
 38
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 07/01/2019,22:57
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.

Kullanici Avatari

chopper07

Uzman
Er....
 42
 228
 1.805
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 04/11/2018,23:59
teşekkürler kod için.


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


Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.740
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,01:24
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. 

Kullanici Avatari

Chong_Lee

Üye
 Belirtilmemiş
 0
 19
 03/11/2008
0
 Ülke Dışı
 
 Ofis 2007
 27/11/2008,13:48
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




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Bilgisayar Teknik Servisleri için Program mehmetdemiral 167 62.457 09/05/2018, 20:41
Son Yorum: mamicimm
  Ftp'ye Klasör Açma Ve Resim Yükleme Uygulaması donepezil 1 587 13/03/2018, 14:24
Son Yorum: ozanakkaya
  Okul İçin Excelden Öğrenci Bilgilerini Çeken Program BayboraHuseyin 3 718 28/02/2018, 15:50
Son Yorum: C*e*l*o*y*c*e
  Bordro Program Örneği ask200075 11 6.791 16/01/2016, 23:10
Son Yorum: ferit39
  Forum Adminlerinden Süper Bir Program ozanakkaya 83 29.186 23/07/2014, 11:55
Son Yorum: broxa

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.