Vraag : Hoe te om alle verband tussen lijsten alvorens lijsten binnen Toegang die gebruiken VBA te schrappen te schrappen?

Iedereen,

I heeft de volgende codage maar of ik SQL of enkel het gebruik DoCmd.DeleteObject gebruik krijg ik de fout - run-time fout „2387“.  In elk geval kan ik hieronder verbeteren om een functie te omvatten aan controle van verhoudingen aan een lijst eerst worden gebonden en dan die verhoudingen te schrappen die alvorens de lijst te schrappen?   Als duidelijk beschikbaar te verstrekken gelieve de codage om dit te doen.  

I kon een functie vinden niet om alle verhoudingen in een gegevensbestand te schrappen maar als op voorwaarde dat ik het kon knijpen om te doen wat de behoefte van I.  En dit is niet al dat I " m werkend om de searchilijst neer te versmallen….  Dank u voor sommige codageantwoorden.  Als geen tijd nu, ik zeker wait. kan
" codeBody " 
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 vergelijkt Gegevensbestand
Expliciete optie

Privé SubDelete_Tables ()

  Vraag Delete_Table („PROJ_ME“)
  Vraag Delete_Table („PROJ_EQ“)
  Vraag Delete_Table („PROJ_RM“)
  Vraag Delete_Table („PROJ_DPT“)
  Vraag Delete_Table („ALTSORT“)
  Vraag Delete_Table („PROJ_INF“)
  
Sub van het eind

Privé SubForm_Open (annuleer als Geheel)

  Oproepen Delete_Tables
  
Beëindig Sub

Privé SubDelete_Table (stal als Koord)
  
'Schemerige sSQL als Koord
'sSQL = „LAAT VALLEN LIJST [“ & stal & „]“
'CurrentDb.Execute sSQL
'DoEvents

  acTable DoCmd.DeleteObject, stabiel

Sub van het eind

Antwoord : Hoe te om alle verband tussen lijsten alvorens lijsten binnen Toegang die gebruiken VBA te schrappen te schrappen?

Privé SubDelete_Table (stal als Koord)
    Schemerige rex als Relaties
    Schemerige rel als Relatie
    Reeks rex = CurrentDb.Relations
    Schemerige I zoals lang
    Voor I = rex. Telling - 1 tot 0 Stap -1
        Reeks rel = rex (I)
        Als rel. Lijst = stal toen
            rex. Schrap rel. Naam
        Eind als
    Volgende I
  acTable DoCmd.DeleteObject, stabiel
Sub van het eind
Andere oplossingen  
 
programming4us programming4us