Discussion :

[Frenchguy]

Bonjour,
Pour desactiver mon bouton d'envoi d'email, si le champ contenant l'adresse est vide (nommé Adresse_email).
j'ai pensé au code suivant:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Current()
If Me.Adresse_email = "" Then
    Me.CmdEmail.Visible = False
Else
    Me.CmdEmail.Visible = True
End If
 
End Sub

sauf que ça ne marche pas... aucune erreur... mais il semble que la valeur "" ne soit jamais prise par le champ.. quand bien meme il est vide...

Si je met

Code :

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

1
2
3
4
5
6
Private Sub Form_Current()
If Me.Adresse_email = "1" Then
    Me.CmdEmail.Visible = False
Else
    Me.CmdEmail.Visible = True
End If

et que je donne une adresse email egale a "1", là le bouton d'envoi d'email disparait bien...

pourquoi ma commande "" n'est-elle pas bien interpretée???

MERCI

[loufab]

Bonjour,

La valeur vide d'un champ peut être suivant les cas égale à null. Fait un essai avec isnull(me.monchamp)

Pour s'affranchir de ces petits problèmes j'ai fait une petite fonction que je te livre.

Code :

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

1
2
3
4
5
6
7
Function Estvide(val)
 
Estvide = False
If IsNull(val) Or IsEmpty(val) Or Len(val) = 0 Then
   Estvide = True
End If
End Function

Voici l'appel de la fonction.

Code :

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

if estvide(me.monchamp) then

Tout simplement.

Cordialement,

[Muhad'hib]

Salut,

J'ajoute mon grain de sel :
Pour tester si un champ contient quelquechose (pas null, pas vide, pas de chaine de longeur nulle) je compare la variable concaténé avec une chaine de longeur nulle :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Current()
If Me.Adresse_email & "" = "" Then
    Me.CmdEmail.Visible = False
Else
    Me.CmdEmail.Visible = True
End If
 
End Sub

Cela évite l'appel d'une fonction.
Mais je n'ai jamais fait de test pour comparer les performances.

A+

[Frenchguy]

MERCI a tous les deux, j'ai l'embarra du choix maintenant!!!

J'en ai mit une de chaque... dans un formulaire différent... les deux vont treeeeeees vite.. mais au moins je sais que je connaitrait deux façons, pour les taffs futures, en exemple dans cette base.. héhé