Discussion :

[sharpeye]

Bonjour,

je voudrait verifier qu une inputbox a bien ete valider ou non

j ai ecrit :

Code :

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

1
2
3
4
newName = InputBox("You are about to rename " & oldName & " to :", "Rename a reference", oldName)
    If newName = vbOK Then
      blablabla
    end if

apparemment c pas comme ca..

[Invité]

Salut,

Je ne vois pas ce que tu veux faire, tu recupére la valeur dans une chaine, et c'est tout

Regarde l'aide F1

Starec

[Faw]

Salut, essaye

Code :

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

If Not IsNull(newName)  Or Newname <> "" Then...

La valeur Null est renvoyée aussi quand le bouton Annuler est pressé.

[sharpeye]

oui, je sais que la valeur "" est renvoyer si tu annule, mais jstement, je peux pasutliser ca parce que je veux autoriser l entree "" et donc "" + OK ne doit pas etre egale a ANNULER

[Faw]

"" = Chaine Vide c'est pas la même chose que Null.
Ne testes que la valeur Null dans ce cas.

[sharpeye]

"" = Chaine Vide c'est pas la même chose que Null.
Ne testes que la valeur Null dans ce cas.

Je sais bien que c pas pareil, mais si tu annule une inputbox tu recuperer toujours "" et pas Null !!!!

[cafeine]

Hello,

une inputbox ne va renvoyer pas vbOk comme une msgbox, elle va renvoyer la valeur de la saisie ...

[Faw]

Oui tu as raison.
Tu ne peux pas valider et annuler avec une même valeur!!!
t'es ds une impasse logique

en fait, ça sert à quoi une inputBox si on ne saisit rien dedans tout en validant OK

[sharpeye]

c bien ce que je redoutait.... il l on vraiment fait a la va vite la inputbox.....pourquoi c pas comme les msgbox

Merci bien

[Faw]

Non, simplement c'est pas fait pour.
Tu peux faire ta propre inputBox avec un Form + Textbox + Boutons.

[Tofalu]

c bien ce que je redoutait.... il l on vraiment fait a la va vite la inputbox.....pourquoi c pas comme les msgbox

Merci bien

Parce que si la fonction retourne VBOK, comment tu vas lire la saisie ...

C'est une question de base d'algorithmie une fonction ne peut renvoyer qu'un résultat ...

Réserve de telle critique sur des domaines plus pertinent, il est bien trop facile de juger ce que l'on ne connait pas

[sharpeye]

c bien ce que je redoutait.... il l on vraiment fait a la va vite la inputbox.....pourquoi c pas comme les msgbox

Merci bien

Parce que si la fonction retourne VBOK, comment tu vas lire la saisie ...

C'est une question de base d'algorithmie une fonction ne peut renvoyer qu'un résultat ...

Réserve de telle critique sur des domaines plus pertinent, il est bien trop facile de juger ce que l'on ne connait pas

n empeche que a l inverse, y a un bouton Cancel...ca pourrait bien renvoyer VBcancel et non pas l equivalent d'une valeur vide et OK.....je trouve ca pertinent moi, non ??

[cafeine]

utilise plutôt ce mode de programmation

Code :

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

1
2
3
4
5
6
variable = InputBox( ... )
If Len(variable) > 0 Then
 ' l'utilisateur a saisi quelquechose
Else
 ' l'utilisateur n'a rien saisi
End if

[Tofalu]

n empeche que a l inverse, y a un bouton Cancel...ca pourrait bien renvoyer VBcancel et non pas l equivalent d'une valeur vide et OK.....je trouve ca pertinent moi, non ??

Et bien non, parce qu'une fonction est typée ! Si d'un coté elle retourne une chaine de caractère, elle ne peut pas retourner VB_cancel de l'autre qui est une énumération numérique. Ce n'est pas parce que VB réalise des cast automatiques qu'il faut généraliser leur utilisation.

Mais libre à toi de recreer une telle fonction qui retournera un variant donc ... ou bien un string à caster .. ce qui constitue un mauvaise approche de VB

[sharpeye]

Je suis bien d accord sur le fait qu une fonction est typee et que ca retoune normalement un seul type, mais dans ce cas, tu vois bien que ca abouti a quelque chose de qund meme plutot embetant.

Quant a ton code cafeine, en fait ca change rien puisque si l tulisatuer ne rentre rien, il fait ok ou cancel et le resultat est le meme. Merci qund meme

[Tofalu]

Quant a ton code cafeine, en fait ca change rien puisque si l tulisatuer ne rentre rien, il fait ok ou cancel et le resultat est le meme. Merci qund meme

oui dans ce cas, c'est une impasse. En effet si tu as besoin de distinguer "Ok Vide" et "Annuler" ça pose problème Mais l'inputbox est une fonction de l'api windows donc le soucis vient pas d'access

Développe toi un petit formulaire qui agira comme une inputbox

[sharpeye]

oui, ca reste le plus simple. en fait, je pense qu il aurait du renvoyer Null + OK pour l action Cancel auquel cas il aurait ete possible de distingue le tout.

Merci bien en tout cas.

Je tag resolu

[Tofalu]

Ouais, en plus ton formulaire sera plus beau qu'une inputbox (petite image et tout )

Pour le null (juste pour info) ce n'est pas possible du fait qu'en algorithmie, une chaine de caractère une fois déclarée et automatiquement instanciée à "" (chaine vide). Comme un entier est automatiquement fixé à 0.

Seul le type Variant peut retourner null, on en revient donc au problème de cast cité plus haut.

Non l'idéal ça aurait été que l'inputbox soit une procédure et qu'elle retourne ainsi deux résultats en BYRef. D'un coté le bouton, de l'autre le texte ... mais c'est codé directement dans l'os et pas dans Access

[sharpeye]

hmm..et ben tant pis.

[tAKAmAkA]

Bonjour à tous,

C'est un vieux post mais j'y vais quand même.

Je traite le problème avec la gestion d'erreur comme ceci (erreur 13 si inputbox null)

Code :

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

1
2
3
4
5
6
7
8
9
Err_cmdSauvegarde_Click:
    Select Case Err.Number
    Case 0
    Case 13
    MsgBox "Annulation de la sauvegarde.", , "xxx"
    Case Else
    MsgBox "Erreur Form_frmDocument_cmdSauvegarde_Click n°: " & Err.Number & vbCrLf & Err.Description, , "ANAsoft Documage"
    End Select
    Resume Exit_cmdSauvegarde_Click