Message d'erreur si erreur de saisie

Le
Isabelle
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Le Méruvien
Le #19185841
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 : en enlevant RV.

--

http://le-meruvien.skynetblogs.be/
"Isabelle" 49f1e79e$0$12636$
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




Dom
Le #19185831
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" 49f1e79e$0$12636$
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




Isabelle
Le #19186171
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.


Publicité
Poster une réponse
Anonyme