2 réponses
Jean_Jacques
Messages postés
1040
Date d'inscription
mercredi 30 avril 2008
Statut
Membre
Dernière intervention
1 août 2014
112
22 août 2009 à 08:30
22 août 2009 à 08:30
Bonjour bensof1,
Sans crainte d'être contredit, votre difficulté est sans doute celle qui revient le plus souvent.
A tel point, que j'ai créé un petit spécimen de base de démonstration à télécharger.
http://www.cijoint.fr/cjlink.php?file=cj200908/ciji4sSm5S.zip
Ce que vous cherchez est dans le formulaire : F_Recherche_sur_référence
Les codes ficitfs d'essai : ZORROA ; ZORROB ; etc ...
Voici le code qui permet l'éxécution de la recherche/Affichage qui se produit après saisie dans le champ nommé : Saisie_de_la_Recherche
________
Private Sub Saisie_de_la_Recherche_AfterUpdate()
'------------------------------------------------------------
' Saisie_de_la_Référence_AfterUpdate()
'
'------------------------------------------------------------
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord UCase(Saisie_de_la_Recherche), , True, , True
If Référence <> UCase(Saisie_de_la_Recherche) Then
MsgBox "Ce code est inconnu : " & Me!Saisie_de_la_Recherche
Me!Saisie_de_la_Recherche = ""
End If
End With
End Sub
Il reste à adapter cette solution à votre contexte.
Bonne découverte
Cordialement
Sans crainte d'être contredit, votre difficulté est sans doute celle qui revient le plus souvent.
A tel point, que j'ai créé un petit spécimen de base de démonstration à télécharger.
http://www.cijoint.fr/cjlink.php?file=cj200908/ciji4sSm5S.zip
Ce que vous cherchez est dans le formulaire : F_Recherche_sur_référence
Les codes ficitfs d'essai : ZORROA ; ZORROB ; etc ...
Voici le code qui permet l'éxécution de la recherche/Affichage qui se produit après saisie dans le champ nommé : Saisie_de_la_Recherche
________
Private Sub Saisie_de_la_Recherche_AfterUpdate()
'------------------------------------------------------------
' Saisie_de_la_Référence_AfterUpdate()
'
'------------------------------------------------------------
With CodeContextObject
DoCmd.GoToControl "[Référence]"
DoCmd.FindRecord UCase(Saisie_de_la_Recherche), , True, , True
If Référence <> UCase(Saisie_de_la_Recherche) Then
MsgBox "Ce code est inconnu : " & Me!Saisie_de_la_Recherche
Me!Saisie_de_la_Recherche = ""
End If
End With
End Sub
Il reste à adapter cette solution à votre contexte.
Bonne découverte
Cordialement