{Access} nomatch et findrecord sur formulaire

Résolu
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   -  
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

voila mon probleme
sur un de mes formulaire g mis un bouton pour me rendre o numero d enregistrement voulu

mais lorsque mon enregistrement n'est pas trouvé l action s annule
sans message rien je voudrais mettre un msgbox mais je n ai pas trouvé g tester ca:

if saisie nomatch then
msgbox.....

if saisie max(monchamp) then
msgbox.....

rien ne vas merci a vous

8 réponses

Jean_Jacques Messages postés 1040 Date d'inscription   Statut Membre Dernière intervention   112
 
Bonsoir moiced59,

Voici un événement qui constitue une solution après adaptation,.
Il provient d'un essai que j'ai mis en pratique. Autrement dit, ça fonctionne chez moi sous ACCESS 2000.


With CodeContextObject
DoCmd.GoToControl "[Recherche]"
DoCmd.FindRecord Affichage_Référence, , True, , True

If Recherche <> Référence Then
MsgBox "Ce code est inconnu : " & Me!Référence
Me!Référence = ""

End If

End With

Bonne soirée
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
re
je vien d essayé ton code mais rien ne vas!!!!!

je n arrive plus a allé a l enregistrement que j indique ds un champ: recherche code

With CodeContextObject
DoCmd.GoToControl "[recherche code]"
DoCmd.FindRecord [recherche code], , True, , True

If recherche_code <> recherche_code Then
MsgBox "Ce code est inconnu : " & Me![recherche code]
Me![recherche code] = ""

End If

End With
j ai adapté ton code a ma situation mais ca ne vas pas tu vois quelque chose?
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
g revu mon code j avais une ereur j arrive a allé a un enregistrement mais pas de mess d ereeur


With CodeContextObject
DoCmd.GoToControl "[code]"
DoCmd.FindRecord [recherche code], , True, , True
If code <> code Then
MsgBox "Ce code est inconnu : " & Me![recherche code]
Me![recherche code] = ""

End If

End With

je pense que c ma ligne code<>code!!!!

merci
0
Jean_Jacques Messages postés 1040 Date d'inscription   Statut Membre Dernière intervention   112
 
Bonsoir moiced59,

Dans le fichier ci-joint, regardez dans le formulaire : F_Recherche_sur_Référence
C'est un bricolo mais ça fonctionne ....


http://www.cijoint.fr/cjlink.php?file=cj200908/cijO8cdXuv.zip


Bonsoir
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
bonjour

merci j ai p adapter le code a mon probleme
0
Jean_Jacques Messages postés 1040 Date d'inscription   Statut Membre Dernière intervention   112
 
Bonjour moiced59,

Merci pour ce retour d'info
Un dossier résolu de plus

Bon après-midi
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
tien tant que je t ai sous la main sais tu comment modifier la couleur de la date d 'un calendrier?
car le frontcolor d un controle calendar n existe pas merci a toi
0
Jean_Jacques Messages postés 1040 Date d'inscription   Statut Membre Dernière intervention   112
 
moiced59,

Voici ma référence calendrier ACCESS

http://officesystemaccess.seneque.net/mscal.htm

A+
0
moiced59 Messages postés 1145 Date d'inscription   Statut Membre Dernière intervention   60
 
merci bcp a +
0