Discussion :

[titi1131]

Bonjour, Rebonjour.

Décidément en ce moment je suis confronté à pas mal de problèmes dont je ne trouve pas la solution.

J'ai une zone de texte dans laquelle je saisi un mot.
J'aimerais récupéré la valeur saisie dans une variable afin de tester si l'utilisateur a bien rentrer quelque chose dans la zone de texte (donc tester si la variable est vide ou pas) et ce lorsque l'on appui sur un bouton.

Voici le code utilisé

Code :

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

1
2
3
4
5
6
7
8
9
Public pn_a_modif As String 
Private Sub bouton_ok_modif_Click()
 
pn_a_modif = Me.PNaModifier.Value 'PNaModifier est le nom de la zone de texte
If pn_a_modif Is Null Then MsgBox "erreur"
Else
    'Ensemble d'instructions
End If
End Sub

J'ai essayé avec les types String et Variant, et avec les conditions Is Null, = "", =0
Dans tout les cas J'ai une erreur "Instruction Else sans If"...
La variable contient bien une valeur lorsque j'écris quelque chose dans la zone de texte car je la teste avec une MsgBox.

De plus l'ensemble d'instructions ne comprend pas d'erreur car je les textes à part et fonctionnent très.

[BornToBe]

Salut,

Tu ne peux pas utiliser la vérification de la valeur Null comme ça: il y a une méthode IsNull:

Code :

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

1
2
3
4
5
If IsNull(Forms!(...)![TextBox].Value) Or Forms!(...)![TextBox].Value = "" Then
    MsgBox "erreur"
Else
    'blabla
End If

Ça t'aide?

[Pepito78]

Et

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
16
Private pn_a_modif As Variant 'Si utiliser uniquement dans le module, autant le mettre en  private
Private Sub bouton_ok_modif_Click()
    
pn_a_modif = Me.PNaModifier.Value 'PNaModifier est le nom de la zone de texte

If IsNull(pn_a_modif) Then 

MsgBox "erreur"

Else

    'Ensemble d'instructions

End If

End Sub

[BornToBe]

J'ajoute, pour pas qu'il y ait de confusion, que

Code :

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

Forms!(...)![PNaModifier].Value

est équivalent à

Code :

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

Me.PNaModifier.Value

Ça dépend de la structure de ta form (j'ai des forms imbriquées), mais par défaut ton écriture est mieux, je pense.



PS: ah, bien, je connaissais pas IsEmpty()

[marot_r]

Personnellement pour cela je ferai :

Code :

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

1
2
3
4
5
if isnull(Me.PNaModifier) or isempty(Me.PNaModifier) then
     Msgbox "Erreur"
   else
      'OK
end if

Si tu tiens à passer par une variable, il faut la typer 'variant' c'est le seul tyep que je connaisse qui accepte des nulls et en fait n'importe quoi d'autre.

A+

[titi1131]

Merci à vous 3, ça marche !