Frage : Wie man alle Verhältnisse zwischen Tabellen löscht, bevor Tabellen innerhalb des Zugangs using VBA gelöscht werden?

Alle,

I haben die folgende Kodierung aber, ob ich verwende, der SQL, oder gerade Gebrauch DoCmd.DeleteObject erhalte ich die Störung - Laufzeitfehler „2387“.  Sowieso kann ich unten erhöhen, um eine Funktion zur Überprüfung der Verhältnisse einzuschließen, die zuerst zu einem Tabelle und jene Verhältnisse dann zu löschen gebunden werden, bevor ich die Tabelle lösche?   Offensichtlich wenn vorhanden, die Kodierung bitte zur Verfügung stellen, umso zu tun.  

I war nicht imstande, eine Funktion zu finden, um alle Verhältnisse in einer Datenbank zu löschen aber wenn, vorausgesetzt ich sie zwicken könnte, um zu tun, was ich. benötige.  Und alles dieses ist nicht dieses I " m an arbeitend, um die searchi Auflistung unten zu verengen….  Für einige Kodierungantworten danke.  Wenn keine Zeit jetzt, ich zweifellos wait. kann 
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:

Option vergleichen Datenbank
Wahl ausdrücklich

Privates VorDelete_Tables ()

  Anruf Delete_Table („PROJ_ME“)
  Anruf Delete_Table („PROJ_EQ“)
  Anruf Delete_Table („PROJ_RM“)
  Anruf Delete_Table („PROJ_DPT“)
  Anruf Delete_Table („ALTSORT“)
  Anruf Delete_Table („PROJ_INF“)
  
Enden-Unterseeboot

Privates VorForm_Open (Löschen als ganze Zahl)

  Anruf Delete_Tables
  
Enden-Unterseeboot

Privates VorDelete_Table (Stall als Schnur)
  
'Schwaches sSQL als Schnur
'sSQL = „TROPFEN-TABELLE [“ u. Stall u. „]“
'CurrentDb.Execute sSQL
'DoEvents

  DoCmd.DeleteObject acTable, beständig

Enden-Unterseeboot

Antwort : Wie man alle Verhältnisse zwischen Tabellen löscht, bevor Tabellen innerhalb des Zugangs using VBA gelöscht werden?

Privates VorDelete_Table (Stall als Schnur)
    Schwaches rex als Relationen
    Schwaches rel als Relation
    Rex = CurrentDb.Relations einstellen
    I als lang verdunkeln
    Für i = rex. Zählimpuls - 1 bis 0 Schritt -1
        Rel = rex einstellen (i)
        Wenn rel. Tabelle = Stall dann
            rex. Löschung rel. Name
        Beenden wenn
    Zunächst I
  DoCmd.DeleteObject acTable, beständig
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us