Discussion :

[AndréPe]

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

[vodiem]

salut AndréPe,

excuse mon obscurantisme, pourrais tu reformuler:

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

concrètement comment ca se passe?

perso j'alimenterais form2 avec:

Code SQL :

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

select * from latable where anomalie

avec un bouton corriger qui passera à l'enregistrement suivant en plus de la barre de défilement classique.

[AndréPe]

Merci vodiem.
Je précise : on passe en revue la table Tab1 pour voir si un champ texte contenant une date est correctement formatté (en particulier si les 4 derniers caractères sont bien des chiffres).
Si le prg détecte une anomalie à l'enregistrement dont le champ Ind est ident, on affiche l'instantané de la tab1 correspondant à cet ident.

Pour cela il faut qu'il n'y ait qu'un enregistrement correspondant à ident (clé primaire sur Ind).

Si la table n'a pas de clé primaire (dans Tab1, c'est le champ Ind), comment faire pour repérer le bon enregistrement ?

Autre précision : ce sont des tables de plusieurs dizaines de milliers de lignes qui,contiennent en général env 5 % d'erreurs et il est hors de question de faire cette opération manuellement.
J'avais pensé utiliser la propriété Bookmark, mais je ne vois pas comment faire dans mon cas.
A+

[AndréPe]

@vodiem
Je m'aperçois que je n'ai pas répondu à ta suggestion

perso j'alimenterais form2 avec:

Code SQL :
SELECT * FROM latable WHERE anomalie

anomalie n'étant pas un champ, à quoi correspondrait le WHERE ?

A+

[vodiem]

désolé je ne vois pas ou se trouve le pb...
ton code est assez explicite.

et puisque form2 est alimenté par tab1:

Code :

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

1
2
DoCmd.OpenForm "Form2", acNormal, , "[Ind] = " & ident, acFormReadOnly, acWidowsNormal
Corr = InputBox("Entrer la correction retenue ")

(Corr... doit se trouver sur une autre ligne sinon doit être séparé par ":")
donc: la table qui contient la clé primaire <Ind> et alimente form2 contient bien cette clé...

qu'elle est donc l'erreur?

anomalie correspond à la condition que tu as mis ci-dessous:

Code :

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

If anomalie then

[Tofalu]

D'après ce que j'en ai compris et s'il n'y a pas de champ (ou combinaison de champs) discriminant, je m'orienterais vers les bookmarks de l'objet Recordset ou alors la position (Recordcount) de l'enregistrement (à condition d'ouvrir rst en dynaset).

N'aurait tu pas plutôt la possibilité de créer un champ NumAuto à la table en VBA (s'il n'existe pas) histoire d'être capable de naviguer tranquillement dans tes enregistrements ?