Discussion :

[hesky]

Bonjour,

Je suis en train d'écrire un script vba dans une base Access. Celle-ci comporte 2 tables, qui sont identiques à 2/3 champs prêt.

Je dois réaliser la opération sur ces tables. Pour éviter d'écrire 2 fois la routine ADO, je voulais savoir si il est possible de tester l'existance d'un champ.

L'idée est de tester l'existance d'un champ, dans le recordset.
Si il existe je peux lui affecter la valeur.
Sinon je ne fais rien.

J'ai essayé isnull, is nothing, ismissing, .. mais l'erreur retournée est toujours "impossible de trouver l'objet dans la collection" (ce qui est normal vu qu'elle n'existe pas).

Auriez-vous des idées ? une fonction, un argument qui m'aurait échapé.

Merci

Aurélien

[DMboup]

Tu peux utiliser For Each ... next pour parcourir et tester les champs de ta table.

[mout1234]

Pourquoi ne pas intercepter l'erreur... ?

[helas]

Une solution :

Le test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 If ExisteChamp("table3","champ7") Then
  ...
 EndIf

le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Function ExisteChamp(NomTable As String, NomChamp As String) As Boolean
 Dim i As Long
 ExisteChamp = False
 For i = 0 To CurrentDb.TableDefs(NomTable).Fields.Count - 1
  If CurrentDb.TableDefs(NomTable).Fields(i).Name = NomChamp Then ExisteChamp = True: Exit For
 Next i
End Function

[DMboup]

Pourquoi ne pas intercepter l'erreur... ?

C'est bien une idée. Il faut juste être sure que l'erreur en question soit spéficique à l'inexistance de champs dans la table.

[hesky]

Merci pour vos réponses.
OK helas, c'est bien vers quoi je m'orientais ...
Mais bon j'avais espoir qu'il existe un arguement qui le fasse déjà !! (enfin)

A++ merci.