Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   tüm tabloları silme

tüm tabloları silme
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#1
03-09-2019, 12:44
merhaba arkadaşlar, kolay gelsin.

CurrentDb.Execute "DROP TABLE ALISLAR;" komutuyla sadece ALISLAR tablosunu silebiliyorum.
tüm tabloları silmek için tek tek yazmak gerekiyor.

tek komutla tüm tabloları nasıl silebilirim acaba?

İyi günler



  Bul
  Alıntı
Bu mesajı beğenenler:
Taruz
Forum Yöneticisi

*
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam 133 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2019,
Beğeniler: 53 / 55
#2
03-09-2019, 13:32
Visual Basic
  1. For Each trz In CurrentDb.TableDefs
  2.     If Left(trz.Name, 4) <> "Msys" And Left(trz.Name, 1) <> "~" Then
  3.         CurrentDb.Execute "DROP TABLE " & trz.Name
  4.     End If
  5. Next


Merhaba..
Bu şekilde silebilirsiniz..
Bulunamayan yerleri bulmak için önce kaybolmak gerekir.
Kaptan Hector Barbossa


SORU SORMA KILAVUZU
Giriş | Sormadan Önce | İlgili Forumu dikkatlice seçin | Anlamlı ve duruma uygun konu başlıkları kullanın | Anlamsız soru cümleleri kurmayın | Açık, dilbilgisi kurallarına uygun ve sözdizimlerine dikkate ederek yazın | Sorunuz sizin için çok acil olsa bile, çok acil diye yazmayın | Sorununuz hakkında tam ve aydınlatıcı iletiler yazın | Amacınızı belirtin | Problemin belirtilerini tanımlayın, kendi tahminlerinizi değil | Sorunuz hakkında açık olun | Nezaket asla yaralamaz ve bazen oldukça yararlıdır | Boyut her şey değildir! | Kabalıkla ilgilenmek | Cevabı E-Posta ile istemeyin | İnsanlardan özel mesajla cevap vermelerini istemeyin | Eğer cevabı anlamadıysanız | Şayet bir cevap alamazsanız | Sorununuz çözüldükten sonra küçük bir not ile bildirin | Sorulmaması gereken türde sorular | İyi ve kötü sorular

Sorulara nasıl doğru düzgün cevap verilir



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

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#3
03-09-2019, 14:21
"trz" yazan kısımlarla ilgili bir değişiklik yapmam gerekiyormu?
hata verdide



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

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.593 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#4
03-09-2019, 14:45
ilişkili tablolarda sorun çıkabilir önce ilişkileri silmeniz gerekebilir
aşağıdaki kodu dener misiniz
ilişkileri silmek için kullanılıyor
Taruz hocamın kodu üzerine yazarak deneyin
Visual Basic
  1. Dim rel As Relation
  2. 'tablolar arasındaki ilişkileri silme kodu________________
  3.     For Each rel In CurrentDb.Relations
  4.         CurrentDb.Relations.Delete rel.Name  ', rel.Attributes
  5.     Next rel
  6. 'tablolar arasındaki ilişkileri silme kodu________________Bitti





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

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#5
03-09-2019, 14:56 (En son düzenleme: 03-09-2019, 14:56 husem.)
sn halily merhaba
tabloları silmedi.



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

*
Kayıt Tarihi: 29.06.2014
Toplam 3 konu açtı.
Toplam 1.593 yorum yaptı.
Toplam 429 puanı bulunmakta.
Beğeniler: 13 / 93
#6
03-09-2019, 15:14
aşağıdaki gibi dener misiniz kodu
Visual Basic
  1. Dim rel As DAO.Relation
  2. 'tablolar arasındaki ilişkileri silme kodu________________
  3.     For Each rel In CurrentDb.Relations
  4.         CurrentDb.Relations.Delete rel.Name  ', rel.Attributes
  5.     Next rel
  6. 'tablolar arasındaki ilişkileri silme kodu________________Bitti
  7.  
  8. 'tabloları silme kodu________________
  9. For Each trz In CurrentDb.TableDefs
  10.     If Left(trz.Name, 4) <> "Msys" And Left(trz.Name, 1) <> "~" Then
  11.         CurrentDb.Execute "DROP TABLE [" & trz.Name & "]"
  12.     End If
  13. Next





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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Liste Arama Kutusundan Kayıt Silme CarpeDiem 12 370 21-07-2023, 10:31
Son Mesaj: onur_can
  [VBA] Iki Tablo Arasında Eşleşmeyen Kayıtları Bulup Kayıttaki Dosyaları Ve Datayı Silme Mr.Midnight 3 204 22-11-2022, 15:09
Son Mesaj: alperalper
  Döngü Ile Koşula Dayalı Klasör Içerisindeki Dosyaları Silme Mr.Midnight 2 207 19-11-2022, 22:46
Son Mesaj: alperalper
  Access Te Tabloya Eklenen Verileri Forma Konulan Bir Butonla Silme kursun 4 222 10-11-2022, 21:29
Son Mesaj: kursun
  [FONKSiYON] çok Sayıda Silme Sorgusunu Tek Butonda çalıştırma Ahmet51 2 162 08-11-2022, 17:48
Son Mesaj: Ahmet51
  [SORGU] Son 10 Kayıt Hariç Tabloda Satır Silme hedefkaya 9 305 03-09-2022, 17:59
Son Mesaj: halily
  [VBA] Textbox Boşluk Silme benuva 3 532 27-05-2021, 20:23
Son Mesaj: benuva
  Liste Kutusunda Sadece Seçili Kişiyi Silme kamil_55 38 1.658 25-04-2021, 18:26
Son Mesaj: kamil_55

Foruma Git:


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