{Access} nomatch et findrecord sur formulaire

Résolu/Fermé
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 6 août 2009 à 18:19
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 - 8 août 2009 à 15:09
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 mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 112
6 août 2009 à 18:50
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 samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
6 août 2009 à 20:24
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 samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
6 août 2009 à 20:29
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 mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 112
6 août 2009 à 21:09
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 samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
8 août 2009 à 09:49
bonjour

merci j ai p adapter le code a mon probleme
0
Jean_Jacques Messages postés 1040 Date d'inscription mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 112
8 août 2009 à 13:05
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 samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
8 août 2009 à 13:09
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 mercredi 30 avril 2008 Statut Membre Dernière intervention 1 août 2014 112
8 août 2009 à 13:52
moiced59,

Voici ma référence calendrier ACCESS

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

A+
0
moiced59 Messages postés 1145 Date d'inscription samedi 15 novembre 2008 Statut Membre Dernière intervention 18 août 2014 60
8 août 2009 à 15:09
merci bcp a +
0