Vérifier l'existence d'une table

Commenter

Contenu du snippet

Ce code fonctionne avec dao 3.6, et permet de vérifier l'existence d'une table.

Source / Exemple : 


Public db           As Database

Public Function cnxTable(ByVal strTable As String) As Boolean
    OBase (CheminFichier$)
    Dim strSQL As String
    strSQL = "Select * from " & strTable
    On Error GoTo errors
    db.Execute (strSQL)
errors:
    If Err = 3078 Then
        cnxTable = False
    Else
        cnxTable = True
    End If
End Function
'--------------------------
Public Function CheminFichier$()
    Dim chemin$
    chemin$ = App.Path
    If Right$(chemin$, 1) <> "\" Then chemin$ = chemin + "\"
    CheminFichier$ = chemin$ & "MaBase.mdb"
End Function
'--------------------------
'sub pour ouvrir la base
Public Sub OBase(fichier)
    Set db = OpenDatabase(fichier)
End Sub
'-------------------------------------------------------prévoir de fermer la base :)

Conclusion :


On appel comme ça :

If cnxTable("MaTable") = false then
'ma table n'existe pas
End If

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (VicoLaChips2)