[VBA] Tester l'existence d'un champ

[assylias]

Bonjour,

je souhaite ajouter une colonne dans une table au sein d'un module, en
utilisant une requête (ALTER / ADD). Sauf que si la colonne existe déjà, ça
fait une erreur.
Comment tester l'existence de ce champ avant de lancer la requête ?

Merci !

[Raymond]

Bonjour.

Tu peux utiliser la fonction ci-dessous:

Private Function YaColonne(Latable As String, Lacolonne As String) As
Boolean
Dim Tbl As TableDef
Dim Fld As Field
YaColonne = False
For Each Tbl In CurrentDb.TableDefs
If Tbl.Name = Latable Then
For Each Fld In Tbl.Fields
If Fld.Name = Lacolonne Then
YaColonne = True
MsgBox "eee"
Exit Function
End If
Next
End If
Next
End Function

que tu appelleras par :

If Not YaColonne("table1", "Nom") Then
' colonne n'existe pas lancer la requête
End If

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.

"assylias" <assy...@yahoo.fr> a écrit dans le message de
news:%23NQ58Y4...@TK2MSFTNGP10.phx.gbl...

[assylias]

merci m'sieur !

"Raymond" <Raymond...@free.fr> a écrit dans le message news:
uxirRI6R...@TK2MSFTNGP10.phx.gbl...

> Bonjour.
>
> Tu peux utiliser la fonction ci-dessous:

[snip]

[yooop]

assylias a écrit le 11/07/2003 à 14h16 :
> merci m'sieur !
>

> "Raymond" a écrit dans le
> message news:
>

>> Bonjour.
>>
>> Tu peux utiliser la fonction ci-dessous:
>> [snip]

bonjour, il serait possible d'afficher la fonction que Raymond il t'a mis? car
je suis dans une situation similaire a la tienne et cette fonction m'intesse
bcp.

Merci

[3stone]

Salut,

Tu déterres une message vieux de 7 ans ?????
et tu penses avoir une chance que "assylias" vienne te répondre ?

Et si tu posais ta question ? quelle est ta situation similaire ?

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)