Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [VBA] Bağlı Tablo Bakım Onarım

[VBA] Bağlı Tablo Bakım Onarım
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#1
26-04-2020, 22:20
merhaba bağlı access dosyasını nasıl sıkıştırıp onarabilirim acaba



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#2
26-04-2020, 23:44
Visual Basic
  1. Sub RunCompactDBs() 
  2. Dim path As String 
  3. Dim accfile As Variant
  4. path = "C:\Databases\" 
  5. accfile = path & "dosyaAdi.accdb" 
  6. bkfile = Replace(accfile, ".accdb", "_bk.accdb") 
  7. ' CREATE COMPACTED BACKUP 
  8. Application.CompactRepair path & accfile, path & bkfile, False 
  9. 'COPY TO ORIGINAL PATH 
  10. FileCopy path & bkfile, path & accfile 
  11. ' DESTROY COMPACTED BACKUP 
  12. Kill path & bkfile 
  13. End Sub


kodunu dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
halily
Access Takımı

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.709 yorum yaptı.
Toplam 464 puanı bulunmakta.
Beğeniler: 13 / 108
#3
26-04-2020, 23:49
Visual Basic
  1. Sub RunCompactDBs(DosyaAdresAd as String) 
  2. accfile = DosyaAdresAd
  3. bkfile = Replace(accfile, ".accdb", "_bk.accdb") 
  4. ' CREATE COMPACTED BACKUP 
  5. Application.CompactRepair path & accfile, path & bkfile, False 
  6. 'COPY TO ORIGINAL PATH 
  7. FileCopy  bkfile,  accfile 
  8. ' DESTROY COMPACTED BACKUP 
  9. Kill path & bkfile 
  10. End Sub


yada daha genel olarak yukardaki kodunu dener misiniz?



  Bul
  Alıntı
Bu mesajı beğenenler:
hedefkaya
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 26.03.2008
Toplam 223 konu açtı.
Toplam 538 yorum yaptı.
Toplam 39 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 4
#4
27-04-2020, 20:32 (En son düzenleme: 27-04-2020, 20:33 hedefkaya.)
teşekürler  sayın halily elinize sağlık

2. kod ile çözdüm  konuyu



  Bul
  Alıntı
Bu mesajı beğenenler:
adnnfrm
Önemli Üye 300-400

*
Kayıt Tarihi: 27.11.2019
Toplam 78 konu açtı.
Toplam 315 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#5
26-11-2021, 06:30
(26-04-2020, 23:49)halily demiş ki:
Visual Basic
  1. Sub RunCompactDBs(DosyaAdresAd as String) 
  2. accfile = DosyaAdresAd
  3. bkfile = Replace(accfile, ".accdb", "_bk.accdb") 
  4. ' CREATE COMPACTED BACKUP 
  5. Application.CompactRepair path & accfile, path & bkfile, False 
  6. 'COPY TO ORIGINAL PATH 
  7. FileCopy  bkfile,  accfile 
  8. ' DESTROY COMPACTED BACKUP 
  9. Kill path & bkfile 
  10. End Sub


yada daha genel olarak yukardaki kodunu dener misiniz?

Hocam bu komut benimde işime yaradı.

2 konu hakkında çözüm geliştiremedim.

1- Aynı kodları .mdb dosyası içinde yapabilir miyiz.
2- Bağlı olan dosyanın şifreli olması durumunda şifreli dosyada repair işlemini yaparken şifre soruyor. Bu şifreyi vba içine gömerek işlem yapabilir miyiz. Şifreyi sormaksızın repair işlemini yapabilir miyiz?

Saygılarımla



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Kritere Bağlı Olarak Değerlerin Toplanması M_Kemal_Askeri 2 163 10-04-2026, 01:05
Son Mesaj: M_Kemal_Askeri
  Bağlı Tabloda şarta Göre Renklendirme Satir 2 374 19-12-2024, 15:38
Son Mesaj: Satir
  Ana Forma Bağlı Alt Formdaki Verilerin Ana Formda Toplamını Almak ozan028 5 554 09-09-2024, 17:14
Son Mesaj: ozan028
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 465 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
  [FORM] Veri Girişine Bağlı Olarak Veri çeşidi Toplam Sayısının Artması M_Kemal_Askeri 2 415 07-03-2024, 20:03
Son Mesaj: M_Kemal_Askeri
  şifreli çalışmada Bağlı Tablo Yöntemi adnnfrm 4 589 23-08-2022, 08:12
Son Mesaj: dsezgin
  [RAPOR] Alt Formda Birden Fazla Açılır Açılır Kutu Ile Filtrelemeye Bağlı Rapor Almak likos61 5 691 06-07-2022, 16:39
Son Mesaj: onur_can
  Access Bağlı Tablolara şifre Koymak Ve Formdan Okunmasını Sağlamak? tanyeri 5 726 20-03-2022, 16:41
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi