Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/02/2013 15:19
Konu Sahibi
fatih karagöl
Yorumlar
9
Okunma
4263
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
fatih karagöl

fatih karagöl

Aktif Üye
25500
 Belirtilmemiş
 21
 167
 05/10/2010
88
 Edirne
 
 -
 15/12/2015,17:38
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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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



Hayatta listbox kullanmam..

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.115
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:37
Paylaşım 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. 

...........
benremix

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.444
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 13/07/2019,22:36
Paylaşım için teşekkürler.

Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



alpeki99

alpeki99

Uzman
6
Ol....
 39
 162
 6.134
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 22/06/2019,10:56
Bu işlem Düzenle ve Onar ile aynı işimi yapıyor?



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.

...........
fatih karagöl

fatih karagöl

Aktif Üye
25500
 Belirtilmemiş
 21
 167
 05/10/2010
88
 Edirne
 
 -
 15/12/2015,17:38
evet sn alpeki. eğer dosya boyutu sizin izin verdiğinizi geçmişse kapanışta düzenle ve onar yapıyor


Hayatta listbox kullanmam..

alpeki99

alpeki99

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


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.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Telefoncular İçin Tamir Servis Formu sertac76 1 384 01/03/2019, 17:49
Son Yorum: ozanakkaya
  Veritabanı Yedekleme ve Bakım Uygulaması V3 ozanakkaya 62 23.625 24/10/2018, 13:44
Son Yorum: Oğuz Türkyılmaz
  dosya depola accessman 12 4.287 16/01/2016, 23:25
Son Yorum: ferit39
  Personel ve Bakım Takip Sistemi Akifff 5 2.878 30/07/2015, 09:45
Son Yorum: Akifff
  Web Browser İle PDF Dosya Görüntüleme Örneği F.Ç 5 3.198 26/08/2014, 09:40
Son Yorum: hgsoftware

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