La table existe-t-elle ?

[helas]

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

 
 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:

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

 
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

 
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,

Envoyé par 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.

ok.

Envoyé par naphta

Bonjour,

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

 
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 :

Envoyé par helas

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