Verification saisie via option inputbox

[Résolu]
Signaler
-
 Utilisateur anonyme -
Bonjour,

J'ai une variable qui va contenir un numéro saisit par l'utilisateur, donc je fais inputbox! mais lorsque je clique sur annuler, je tombe directement sur le test de longeur du numéro saisie.

    PatientAChercher = InputBox("Numero du dossier: ")


    While Len(PatientAChercher) <> 8
        n = WordBasic.MsgBox("Attention 8 chiffres pour un numéro de dossier !", "Erreur", 1)
        If (n = -1) Then GoTo debut Else GoTo fin
        PatientAChercher = InputBox("Numero du patient: ?")
    Wend

Comment faire pour que lorsqu'on clique sur annuler, je sorte du sub ?? (je crois qu'il y a des options derriere inputbox avec les ", " mais quand j'en essaye, il me marque type de données incompatible...)

Merci

10 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Salut,

J'ai posté une source sur le cancel de l'inputbox : ICI

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

ca ira merci, j'ai trouver une alternative, je creer uen boite de dialogue moi meme:

    WordBasic.BeginDialog 350, 100, "Recherche dossier"
    WordBasic.TextBox 34, 45, 137, 18, "numdossier"
    WordBasic.OKButton 255, 20, 88, 21
    WordBasic.CancelButton 254, 50, 88, 21
    WordBasic.Text 20, 25, 172, 13, "Entrer le N° de dossier"
    WordBasic.EndDialog
    On Error GoTo fin
    Dim fichier As Object: Set fichier = WordBasic.CurValues.UserDialog
    WordBasic.Dialog.UserDialog fichier


    While Len(fichier.numdossier) <> 8
        n = WordBasic.MsgBox("Attention 8 chiffres pour un numéro de dossier !", "Erreur", 1)
        If (n = -1) Then GoTo debut Else GoTo fin
        PatientAChercher = InputBox("Numéro du dossier ?")
    Wend
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Salut! Il me semble en parcourant les sources que renfield disait qu'on ne pouvait pas gérer le bouton annuler d'un intput box! Je vais voir pour confirmation!

 Drikce 06

Arf, zut, j'ai pas vu ca :(
Sinon je vais devoir faire cette méthode la que je ne maitrise pas encore:

    WordBasic.BeginDialog 362, 88, "Compte Rendu"
    WordBasic.TextBox 34, 45, 137, 18, "numdos"
    WordBasic.OKButton 255, 17, 88, 21
    WordBasic.CancelButton 254, 53, 88, 21
    WordBasic.Text 20, 25, 172, 13, "Entrer le N° de dossier"
    WordBasic.EndDialog
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Re je me suis tromper d'admin c'est econs
http://www.vbfrance.com/codes/DETECTER-CANCEL-SUR-INPUTBOX_31308.aspx

 Drikce 06
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
Trop rapide les admins!

 Drikce 06
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Hop, problème réglé en moins de 5 minutes .. çà va effectivement très vite

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
10
> econs et encore c'est parce que j'ai mis du temps à retrouver ta source! Au début je croyais que c'était renfield!

 Drikce 06
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Hummmm ... elle a l'air plutôt lourde ton alternative. M'enfin bon, si ton problème est résolu ...

Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.

oui elle est plus lourde que prévu, mais bon en effet ca marche nickel donc c'est le principal, et puis ca ma permis d'apprendre à creer moi meme une p'tite boiboite