Bonsoir,

J'analyse par boucle tous les enregistrements de la table Tab1, pour détecter d'éventuelles anomalies de formattage ou d'orthographe de certains champs et pouvoir les corriger avant incorporation de Tab1 dans un fichier central.
Lorsqu'une anomalie est détectée, un instantané Form2 de l'enregistrement est présenté à l'opérateur pour l'aider à remédier à l'anomalie. Le RecordSource de Form2 est donc la table Tab1.
Voiçi le code en cause :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Set rst = MaBd.OpenRecordset(Tab1)
with rst
  .MoveFirst
  Do While Not .EOF
     'Analyse de l'enregistrement
    If anomalie then 
      ident = .[Ind]
      DoCmd.OpenForm "Form2", acNormal, , "[Ind] = " & ident, acFormReadOnly, acWidowsNormal       Corr = InputBox("Entrer la correction retenue ")
      'Traitement de la correction 
      ...
      DoCmd.Close acForm, Forms(Form2), acSaveNo
    end if
    .MoveNext
  Loop
end with
.

Mais lorsqu'il n'y a pas de champ indexé, comment peut-on faire pour afficher dans Form2 l'enregistrement actif ?

Merci de l'aide
Amitiés