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

Derecelendirme: 5/5 - 1 oy

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
599
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
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

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

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
3.111
29/10/2008
944
Ankara
Yazılım
Ofis 2010 32 Bit
Bugün,09:15
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


Celosoft Yazılım
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.120
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
17/04/2018,11:04
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

chopper07

Uzman
Kullanici Avatari
Uzman
E....
1.805
29/01/2008
376
Aydın
Otel Müdürü
Ofis 2016 64 Bit
19/02/2018,16:03
teşekkürler kod için.


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

Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
10.629
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
esref hocam kod için teşekkürler


Cevapla

Chong_Lee

Üye
Kullanici Avatari
Üye
19
0
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


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

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

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
 
 
Forum use Krzysztof "Supryk" Supryczynski addons.