Discussion :

[fourniey]

Bonjour,

J'ai un bouton qui me permet de rechercher un enregistrement mais lorsque celui-ci n'existe pas, je voudrais un message style enregistrement introuvable mais je ne sais pas comment faire.

Mon code pour trouver est :

Code :

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

1
2
3
4
5
6
7
  Dim Message, Title, Default, R_bc
  R_bc = ""
  Message = "Bon de commande :"
  Title = "Rechercher une transaction par bon de commande"
  R_bc = InputBox(Message, Title, "")
  Me.txt_bc.SetFocus
  DoCmd.FindRecord R_bc, acStart, False, acDown, False, acCurrent, True

[tee_grandbois]

Bonsoir,
avec la recherche avec FindRecord, l'astuce est de faire un FindFirst juste avant car cela renvoie Nomatch = False lorsqu'il n'y a pas de correspondance.

[fourniey]

Merci de ton aide!

J'ai effectué la correction et j'obtiens une erreur 3345.

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
  Dim Message, Title, Default, R_bc
  R_bc = ""
  Message = "Bon de commande :"
  Title = "Rechercher une transaction par bon de commande"
  R_bc = InputBox(Message, Title, "")
  Me.txt_bc.SetFocus
 
  Set Rs = Me.Recordset.Clone
  Rs.FindFirst "[txt_bc] = " & R_bc
  If Rs.NoMatch Then
    MsgBox ("Ce bon de commande n'esixte pas : " & R_bc)
    DoCmd.GoToRecord acDataForm, "Transaction", acGoTo, 1
  Else
    DoCmd.FindRecord R_bc, acStart, False, acDown, False, acCurrent, True
  End If

[tee_grandbois]

désolé, je n'ai pas appris toutes les erreurs par coeur, pourrais-tu donner la description du message ?
Et la ligne qui provoque l'erreur.
Merci.

[fourniey]

Référence du champs txt_bc non valide ou inconnue

il s'agit d'un champs de type chaine.

[fourniey]

Référence du champs txt_bc non valide ou inconnue

il s'agit d'un champs de type chaine.

Excuse moi, je me suit trompé, c'Est que je fais des tests.

Erreur :type de données incompatibles dans l'expression du critère.

[tee_grandbois]

Si c'est du texte, il faut les quotes !

Code :

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

Rs.FindFirst "[txt_bc] = '" & R_bc &"'"

[fourniey]

Merci beaucoup!