Il te suffit, pour savoir si une table existe ou non, de tester si tu peux y récupérer des infos... C'est-a-dire :
Function ExisTable(nomtable As String) As Boolean dim num as integer On Error GoTo errex num = DLookup("numjour", "ANNEE" & année) 'cette commande produit une erreur si la table n'existe pas ExisTabl=True 'si on arrive la, alors c'est que la table existe
exis: On Error GoTo 0 Exit Function
errex: ExisTablúlse 'si on arrive la, alors c'est que la table n'existe pas. Resume exis End Function
La fonction est un peu dans le désordre, mais c'est l'ordre que donne Access pour un bouton d'ouverture de formulaire... C'est un peu compliqué, mais ca marche !
-----Message d'origine----- Bonjour, Je souhaiterais savoir comment lancer une proc vérifiant si la table liée existe lors de la connexion à 1 base SQL.
Merci .
Il te suffit, pour savoir si une table existe ou non, de
tester si tu peux y récupérer des infos... C'est-a-dire :
Function ExisTable(nomtable As String) As Boolean
dim num as integer
On Error GoTo errex
num = DLookup("numjour", "ANNEE" & année)
'cette commande produit une erreur si la table n'existe pas
ExisTabl=True
'si on arrive la, alors c'est que la table existe
exis:
On Error GoTo 0
Exit Function
errex:
ExisTabl=False
'si on arrive la, alors c'est que la table n'existe pas.
Resume exis
End Function
La fonction est un peu dans le désordre, mais c'est
l'ordre que donne Access pour un bouton d'ouverture de
formulaire... C'est un peu compliqué, mais ca marche !
-----Message d'origine-----
Bonjour,
Je souhaiterais savoir comment lancer une proc vérifiant
si la table liée existe lors de la connexion à 1 base SQL.
Il te suffit, pour savoir si une table existe ou non, de tester si tu peux y récupérer des infos... C'est-a-dire :
Function ExisTable(nomtable As String) As Boolean dim num as integer On Error GoTo errex num = DLookup("numjour", "ANNEE" & année) 'cette commande produit une erreur si la table n'existe pas ExisTabl=True 'si on arrive la, alors c'est que la table existe
exis: On Error GoTo 0 Exit Function
errex: ExisTablúlse 'si on arrive la, alors c'est que la table n'existe pas. Resume exis End Function
La fonction est un peu dans le désordre, mais c'est l'ordre que donne Access pour un bouton d'ouverture de formulaire... C'est un peu compliqué, mais ca marche !
-----Message d'origine----- Bonjour, Je souhaiterais savoir comment lancer une proc vérifiant si la table liée existe lors de la connexion à 1 base SQL.
