Discussion :

[Logisticien]

bonjour;

j'ai rencontré un problème au niveau de accèss

je ne sais pas quel erreur j'ai fait au niveau des référence librairie et par la suite les codes vba que j'ai mis sont plaintes

voici un exemple:

Code :

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

1
2
3
4
5
6
7
Private Sub Commande2_Click()
If Me.champ1.Value = "" Then
MsgBox ("vide")
Else
MsgBox ("pleine")
End If
End Sub

quand je click sur la commande2, le message qui s'affiche est toujours "pleine" quelque soit le champ1 est "vide" ou "plein"!

d'avance merci.

[Malick]

Avec ceci seulement sans le .value

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande2_Click()
   If Nz(Me.Champ1, " ") = " " Then
   MsgBox ("vide")
     Else
   MsgBox ("pleine")
  End If
 
End Sub

	Edit : il faut également utiliser la fonction Nz()

[Logisticien]

ça fonctionne avec la fonction NZ()

mais je veux savoir pourquoi ne fonctionne plus avec

Code :

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

if me.champs =""

[Malick]

C'est parce que pour toi le champ est vide alors que pour Access, il a la valeur Null. La fonction Nz() permet de gérer les Nullen les remplaçant par vide.

[Logisticien]

merci bien pour ton aide