IF table exist?

comment en VBA vérifie t'on l'existence d'une table ?
le prog doit vérifier s'il existe une table portant ce nom (ne connait pas
la syntaxe pour vérifier cela) avec EXIST ??

si n'existe pas créer la table (çà OK)
strsql = "CREATE table[T_5Numéro]([N°] integer,[col1] integer,[col2]
integer," & _
"[col3] integer,[col4] integer,[col5]
integer,[col6] integer);"
CurrentDb.Execute strsql

Salut,

"Pascal"

comment en VBA vérifie t'on l'existence d'une table ?
le prog doit vérifier s'il existe une table portant ce nom (ne connait
pas

la syntaxe pour vérifier cela) avec EXIST ??

si n'existe pas créer la table (çà OK)
strsql = "CREATE table[T_5Numéro]([N°] integer,[col1] integer,[col2]
integer," & _
"[col3] integer,[col4] integer,[col5]
integer,[col6] integer);"
CurrentDb.Execute strsql

Utilise par exemple cette fonction (dans un module standard):

Public Function TableExist(strNomTable As String) As Boolean
'Vérification de l'existance d'une table
TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strNomTable Then TableExist = True
Next
End Function


'ce qui donnera...

if Not TableExist("MaTable") Then
strSQL = "Create..."
Currentdb.Execute strD?SQL
End if



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

bonjour tout le monde,
ben oui c'est encore moi, mais comme moi (comparer à certains qui
n'obtiennent rien(sic)) j'obtiens souvent satisfaction , je me permets de
vous en soumettre une autre.

comment en VBA vérifie t'on l'existence d'une table ?
le prog doit vérifier s'il existe une table portant ce nom (ne connait pas
la syntaxe pour vérifier cela) avec EXIST ??

si n'existe pas créer la table (çà OK)
strsql = "CREATE table[T_5Numéro]([N°] integer,[col1] integer,[col2]
integer," & _
"[col3] integer,[col4] integer,[col5]
integer,[col6] integer);"
CurrentDb.Execute strsql

merci de votre aide

Pascal

Salut Pascal

en fait tu ouvres puis tu fermes latable à contrôler.
En cas d'erreur, tu la crée. C'est tout !
.......
' la tabe "T_5Numéro" existe-t-elle ? ------------------------------
On Error GoTo 2
DoCmd.OpenTable "T_5Numéro"
DoCmd.Close acTable, "T_5Numéro"
exit sub
2
' création de la table ----------------------------------------------
........

Jac

"Pascal" <anonymous@serveurInconnu.com> a écrit dans le message de
news:uT1mX0TUEHA.2324@TK2MSFTNGP10.phx.gbl...

bonjour tout le monde,
ben oui c'est encore moi, mais comme moi (comparer à certains qui
n'obtiennent rien(sic)) j'obtiens souvent satisfaction , je me permets
de

vous en soumettre une autre.

comment en VBA vérifie t'on l'existence d'une table ?
le prog doit vérifier s'il existe une table portant ce nom (ne connait
pas

la syntaxe pour vérifier cela) avec EXIST ??

si n'existe pas créer la table (çà OK)
strsql = "CREATE table[T_5Numéro]([N°] integer,[col1] integer,[col2]
integer," & _
"[col3] integer,[col4] integer,[col5]
integer,[col6] integer);"
CurrentDb.Execute strsql

merci de votre aide

Pascal