Message d'erreur si erreur de saisie

bonjour isabelle, tu peut esssayer ça:
Tu fait un formulaire independant que tu nome par exemple "message" avec le
texte que tu veut et un bouton "OK" et sur ouverture de ton formulaire
"frm_cherche_par_numero"
tu met:
if me!recordsetclone.Recordcount = 0 then
docmd.close
docmd.openform "message"
endif
Sur clic sur le bouton "OK", tu retourne ou tu etait.
roger
Si tu veut plus de detail : RVvdb.roger@free.fr en enlevant RV.

--

http://le-meruvien.skynetblogs.be/
"Isabelle" <isabelle.antispam@orange.fr> a écrit dans le message de news:
49f1e79e$0$12636$ba4acef3@news.orange.fr...

Bonjour

J'ai crée un formulaire basé sur une requête paramétrée

J'ai crée un formulaire "menu" avec un bouton de commande permettant
d'ouvrir ce formulaire

Private Sub_Commande14_Click()
On error Goto Err_Commande14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_cherche_par_numero"
DoCmd.OpenForm stDocName, , ,stLinkCriteria

Exit_Commande14_Click:
Exit Sub

Err_Commande14_Click :
MsgBox Err.Description
Resume Exit_Commande14_Click

End sub

Si l'utilisateur saisi un numéro erroné, le formulaire s'ouvre sur un
enregistrement vide

J'aimerai que le formulaire ne s'ouvre pas et qu'une boîte de dialogue
apparaisse du genre " Erreur de saisie, veuillez recommencer"

Comment faire ?

Merci d'avance

Bonjour,

J'ai trouvé ceci :

Pour le bouton de commande du formulaire "menu" :

Private Sub_Commande14_Click()
On error Goto Err_Commande14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_cherche_par_numero"
DoCmd.OpenForm stDocName, , ,stLinkCriteria

Exit_Commande14_Click:
Exit Sub

Err_Commande14_Click :
if Err = 2501 then Resume Exit_Commande14_Click
MsgBox Err.Description
Resume Exit_Commande14_Click

End sub

Et pour le frm "frm_cherche_par_numero"


Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Erreur de saisie, cliquez sur OK pour recommencer.",
vbInformation
Cancel = True 'Annule l'ouverture
End If
End Sub

Dominique.

"Isabelle" <isabelle.antispam@orange.fr> a écrit dans le message de news:
49f1e79e$0$12636$ba4acef3@news.orange.fr...

Bonjour

J'ai crée un formulaire basé sur une requête paramétrée

J'ai crée un formulaire "menu" avec un bouton de commande permettant
d'ouvrir ce formulaire

Private Sub_Commande14_Click()
On error Goto Err_Commande14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_cherche_par_numero"
DoCmd.OpenForm stDocName, , ,stLinkCriteria

Exit_Commande14_Click:
Exit Sub

Err_Commande14_Click :

if Err = 2501 then Resume Exit_Commande14_Click

MsgBox Err.Description
Resume Exit_Commande14_Click

End sub

Si l'utilisateur saisi un numéro erroné, le formulaire s'ouvre sur un
enregistrement vide

J'aimerai que le formulaire ne s'ouvre pas et qu'une boîte de dialogue
apparaisse du genre " Erreur de saisie, veuillez recommencer"

Comment faire ?

Merci d'avance

Bonjour

Merci beaucoup c'est tout à fait cela

cela marche nickel



Dom a écrit :

Bonjour,

J'ai trouvé ceci :

Pour le bouton de commande du formulaire "menu" :

Private Sub_Commande14_Click()
On error Goto Err_Commande14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_cherche_par_numero"
DoCmd.OpenForm stDocName, , ,stLinkCriteria

Exit_Commande14_Click:
Exit Sub

Err_Commande14_Click :
if Err = 2501 then Resume Exit_Commande14_Click
MsgBox Err.Description
Resume Exit_Commande14_Click

End sub

Et pour le frm "frm_cherche_par_numero"


Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Erreur de saisie, cliquez sur OK pour recommencer.",
vbInformation
Cancel = True 'Annule l'ouverture
End If
End Sub

Dominique.