Discussion :

[helas]

Remplacer ce qui est entre parenthèse par un test de l'existence d'une table

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 If  (la table NomTable existe) Then DoCmd.DeleteObject acTable, NomTable

Sans créer de fonction, le test de l'existence de la table ne doit pas provoquer d'erreur.

Peut-être trop facile pour les experts. Alors se sera la meilleure solution.
La mienne fonctionne sous Access 2003.

[LedZeppII]

Bonsoir,

Inspiré de ce qui se pratique sur SQL serveur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim strNomTable As String
strNomTable = "Nom de la atble"
If DCount("*", "MSysObjects", "type=1 AND Name='" & strNomTable & "'")=1 Then DoCmd.DeleteObject acTable, strNomTable

A+

Edit : type=4 pour les tables liées ODBC, type=6 pour table liées Acces, Excel, Texte

[helas]

Bravo LedZeppII
C'est effectivement la solution que j'avais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If -DCount("*", "MSysObjects", "type=1 AND Name='" & strNomTable & "'") Then DoCmd.DeleteObject acTable, strNomTable

Je pensais trouver une fonction cachée, on ne sait jamais ...
A ce sujet, en existe-t-il ?

[Demco]

Voici une autre méthode utilisée dans la FAQ :
http://access.developpez.com/faq/?pa...les#TableExist

Pas de fonctionnalité caché permettant de savoir ça directement apparemment.

[naphta]

Bonjour,

une autre bon d'accord
rien à voir avec les autres mais portable sur ADP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function ExisteTable(Nomtable As String) As Boolean
    On Error GoTo err:
    Dim MCat As New ADOX.Catalog
    Dim MTable As ADOX.Table
    Set MCat.ActiveConnection = CurrentProject.Connection
    Set MTable = MCat.Tables(Nomtable)
 
    ExisteTable = True
err:
    Set MCat = Nothing
    Set MTable = Nothing
    Exit Function
End Function
 
Function SupprimerTable(Nomtable As String) As Boolean
    On Error GoTo err
    Dim MCat As New ADOX.Catalog
    Set MCat.ActiveConnection = CurrentProject.Connection
    MCat.Tables.Delete (Nomtable)
    SupprimerTable = True
err:
    Set MCat = Nothing
    Exit Function
End Function
 
' Ca donne 
 
If ExisteTable("latable") = True Then SupprimerTable "latable"

a+

[naphta]

bonjour,
J'avais pas vu c'était dans la FAQ .....gasp
a+

[Lou Pitchoun]

Salut,

Voici une autre méthode utilisée dans la FAQ :
http://access.developpez.com/faq/?pa...les#TableExist

Pas de fonctionnalité caché permettant de savoir ça directement apparemment.

ok.

Bonjour,

une autre bon d'accord
rien à voir avec les autres mais portable sur ADP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Function ExisteTable(Nomtable As String) As Boolean
    On Error GoTo err:
    Dim MCat As New ADOX.Catalog
    Dim MTable As ADOX.Table
    Set MCat.ActiveConnection = CurrentProject.Connection
    Set MTable = MCat.Tables(Nomtable)
 
    ExisteTable = True
err:
    Set MCat = Nothing
    Set MTable = Nothing
    Exit Function
End Function
 
Function SupprimerTable(Nomtable As String) As Boolean
    On Error GoTo err
    Dim MCat As New ADOX.Catalog
    Set MCat.ActiveConnection = CurrentProject.Connection
    MCat.Tables.Delete (Nomtable)
    SupprimerTable = True
err:
    Set MCat = Nothing
    Exit Function
End Function
 
' Ca donne 
 
If ExisteTable("latable") = True Then SupprimerTable "latable"

a+

Re ok.

Sauf que :

Sans créer de fonction, le test de l'existence de la table ne doit pas provoquer d'erreur.