Bonjour à tous,
Le but est de saisir des fiches nominatives (environ 60.000).
Cette saisie sera faite à partir de plusieurs postes. Il est donc impératif qu'une même fiche ne soit pas saisie deux fois (ou plus).
J'ai trois identifiants qui permettent d'identifier une fiche et une seule.
J'ai donc écrit ceci :
Quand le 3ème champ est renseigné
Problème :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Mat_R_AfterUpdate() .If DCount("*", "902_Req_Double_Fic_Individus") = 0 Then ... MsgBox "Vérification effectuée. Nouvelle fiche" ... Exit Sub .Else ... MsgBox " Fiche déjà saisie " ... Me.Num_Registre.Value = Null ... Me.Matricule_R.Value = Null ... Me.Classe.Value = Null ... Me.Refresh .End If End Sub
La requête "902_Req_Double_Fic_Individus" continue de garder un enregistrement, celui de la vérification précédente. A la reprise, la routine me renvoie le message "Fiche déjà saisie"...
Question :
Comment purger la requête dés que la vérification a été faite sans effacer l'enregistrement présent ?
Cordialement,
Bernard.
Partager