Discussion :

[quaife]

Bonjour

Je dois mettre à jour une table (Access2000) par rapport à une autre (Access97). C'est à dire si l'enregistrement existe (table 2000), balayer tous les champs et les modifier en fonction de ce qu'il y a dans la table 97. Et si l'enregistrement n'existe pas, créer un nouvel enregistrement.

Voici mon problème :

Pour chaque enregistrement "Libelle" de ma table 97, je fais une requête dans ma table 2000 pour vérifier si l'enregistrement existe :

Code :

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

1
2
3
4
Set RS_2000 = DB_2000.OpenRecordset("SELECT Libelle FROM [" & Table & "] WHERE Libelle=" & Chr(34) & RS_97.Fields("Libelle").Value & Chr(34) & ";")
 
If RS_2000.Fields("Libelle").Value = "" Then ValeurChampPresent = ""
...

Or si mon champ n'existe pas, j'ai une erreur sur ma condition car il n'y a aucun enregistrement en cours (Erreur 3021) sur RS_2000.Fields("Libelle").Value.

Me faut il le gérer avec un "On Error...", ou est ce que je m'y prends mal pour vérifier si mon enregistrement est présent ?

[random]

teste le recordcount

[quaife]

Pourquoi, puisque qu'avant chaque requête je fais un RS_2000.MoveFirst pour être en début de table ?

[quaife]

J'avais mal compris
Ca marche ... MERCI