Discussion :

[snoopy69]

Bonjour à tous ...

J'aimerais récupérer le contenu d'une zone de liste déroulante qui est basé sur une requête pour faire un test avec un autre champ.


Je m'explique :

J'ai un champ masse ( qui est une zone de liste déroulante basé sur une requête) et un champ controle_masse. Sur perte focus du champ controle_masse j'aimerais faire un test pour voir si ce que je rentre dans ce champ est = à la valeur de ma zone de liste réroulante ...

Comment puis-je faire cela ...

???

Merci de vos réponses ...

[argyronet]

C'est simple:

Code :

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

1
2
3
4
5
6
Private Sub MonChamp_LostFocus()
Dim strMaValeur As String
 
  strMaValeur = Me!MonChamp
  MsgBox strMaValeur
End Sub

Vérifier toutefois qu'il n'est pas NULL avec

Code :

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

If IsNull() Then... Else

Argy

[snoopy69]

Merci Argy pour ta réponse ... je ne me rappelais plus le Me! ... ...

Cela marche parfaitement ... merci mille fois ...

Aller à tout bientôt ...

[morobaboumar]

Bonsoir membres du forum,
Permettez moi de réveiller cette discussion qui date de plus de 15 ans quant on sait que les vieilles marmites font
les bonnes sauces.
En effet, personnellement j'ai adapté les codes d'avant-posts comme ceci, dans une zone de texte "TexteFairePrecedent":

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub TexteFairePrecedent_LostFocus()
Dim strMaValeur As String
  strMaValeur = Me!TexteFairePrecedent
  If IsNull(TexteFairePrecedent) Then
  Me.TexteFairePrecedent = False
  Else
  MsgBox strMaValeur
  End If
End Sub

mais j'ai des messagers d'erreur:




Que faut il faire ?
Cordialement.

[tee_grandbois]

bonjour,
si valeur nulle possible = déclaration de la variable en Variant et pas en String qui n'accepte pas le nul, mais le vide en VBA

Code :

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

1
2
Dim strMaValeur As Variant
  strMaValeur = Me!TexteFairePrecedent

ou corriger la valeur en vide si elle contient du nul:

Code :

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

1
2
3
4
5
6
7
8
Dim strMaValeur As String
 
  strMaValeur = Nz(Me!TexteFairePrecedent, "")
'ou aussi:
  strMaValeur = Nz(Me!TexteFairePrecedent, vbNullString)
  If TexteFairePrecedent = "" Then
'ou:
  If TexteFairePrecedent = vbNullString Then

connaitre les particularités des différents types de données, c'est le minimum à savoir lorsque que l'on code dans VBA, si je peux me permettre cette réflexion et cette instruction confirme ma réflexion:

Code :

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

Me.TexteFairePrecedent = False

donc, de quel type est TexteFairePrecedent dans tout ça ?

[morobaboumar]

bonjour,
si valeur nulle possible = déclaration de la variable en Variant et pas en String qui n'accepte pas le nul, mais le vide en VBA

Code :

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

1
2
Dim strMaValeur As Variant
  strMaValeur = Me!TexteFairePrecedent

ou corriger la valeur en vide si elle contient du nul:

Code :

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

1
2
3
4
5
6
7
8
Dim strMaValeur As String
 
  strMaValeur = Nz(Me!TexteFairePrecedent, "")
'ou aussi:
  strMaValeur = Nz(Me!TexteFairePrecedent, vbNullString)
  If TexteFairePrecedent = "" Then
'ou:
  If TexteFairePrecedent = vbNullString Then

connaitre les particularités des différents types de données, c'est le minimum à savoir lorsque que l'on code dans VBA, si je peux me permettre cette réflexion et cette instruction confirme ma réflexion:

Code :

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

Me.TexteFairePrecedent = False

donc, de quel type est TexteFairePrecedent dans tout ça ?

Bonjour tee_grandbois,

de quel type est TexteFairePrecedent dans tout ça ?

.

Il est du type texte.

Merci infiniment.
Cordialement.