Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
28/01/2013 23:47
Konu Sahibi
karaayhan
Yorumlar
4
Okunma
1701
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

karaayhan

Aktif Üye
Kullanici Avatari
Aktif Üye
433
02/11/2008
12
Muğla
Ofis 2003
10/09/2017,14:13
Çözüldü 
tüm tabloları tek bir düğme ile silmek mümkün müdür ?
makro ile tek tek silmek yada delete ile silmek dışındaImg-grin


Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
Önce ilişkileri silmeniz için bir fonksiyon

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function tumIliskileriSil()
Dim db As Database      ' Current DB
Dim rex As Relations    ' Relations of currentDB.
Dim rel As Relation     ' Relationship being deleted.
Dim iKt As Integer      ' Count of relations deleted.
Dim sMsg As String      ' MsgBox string.

Set db = CurrentDb()
Set rex = db.Relations
    
    iKt = rex.Count
    
    Do While rex.Count > 0
        rex.Delete rex(0).Name
    Loop

End Function


sonra tabloları temizlemek için fonksiyon

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
27
28
29
30
31
32
Public Function tumTablolariSil()
On Error GoTo Hata_Yakala

Dim vt As DAO.Database
Dim rst As DAO.Recordset
Dim tabloSorgu As String

Set vt = CurrentDb()

    tabloSorgu = "SELECT MSysObjects.Name FROM MSysObjects " & "WHERE Left$([Name],1)<>'~' AND Left$([Name],4)<>'MSys' " & "AND MSysObjects.Type =1 ORDER BY MSysObjects.Name"

    Set rst = vt.OpenRecordset(tabloSorgu)

    If Not rst.EOF Then
        rst.MoveFirst

        Do Until rst.EOF
            rst.MoveNext
            tabloAdi = "DROP TABLE " & rst!Name
            vt.Execute tabloAdi
        Loop
    End If
    
    rst.Close
        
    Set rst = Nothing

Hata_Yakala:
MsgBox Err.Description
    Exit Function

End Function


bir butonun tıklanma olayında

Visual Basic Code
    tumIliskileriSil
    tumTablolariSil


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

karaayhan

Aktif Üye
Kullanici Avatari
Aktif Üye
433
02/11/2008
12
Muğla
Ofis 2003
10/09/2017,14:13
Çözüldü 
sayın elpeki99 oldu çalışıyor teşekkürler,
sonunda geçerli kayıt yok! uyarısı veriyor ve sadece bir tane tablo kalıyor neden olabilir sizce?


Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
Döngüde olmayan tablo ile ilgili işlem yapıldığından veriyor o hatayı. Düzeltilmesi çok basit olan bir şey ancak hızlıca ekleyeyim dediğim için detaylı incelememiştim. Vaktim olan bir gün bakmaya çalışırım.


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

karaayhan

Aktif Üye
Kullanici Avatari
Aktif Üye
433
02/11/2008
12
Muğla
Ofis 2003
10/09/2017,14:13
Çözüldü 
teşekkürler sayın alpeki bekliyorum yeni cevabınızı kolay gelsin


Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kayıt Silme Hatası burhanb 6 174 08/09/2017, 14:01 burhanb
Çözüldü Terkrarlayan Kayıtları Silme ertans 4 324 22/04/2017, 19:56 atoz112
Çözüldü Klasör İçindeki Mdb Uzantılı Dosyaları Silme husem 2 215 13/03/2017, 10:16 husem
Çözüldü Access Açılışında Tabloları İmport Etsin. burhanb 8 1.625 17/02/2017, 13:37 atoz112
Çözüldü Tabloları ilişkilendirip liste güncelleme dufrety 7 451 14/02/2017, 09:43 dufrety

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