Discussion :

[Bubut]

Bonjour,

Mon Code:

Code :

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

1
2
3
4
5
6
Private Sub Sous_Ensemble_Click()
     If Sous_Ensemble.Text <>"430-1" Then
         Me.Commentaire_Réf.Value = "0"
         Me.Descriptif_Réf.Value = "0"
     End If
End Sub

Je ne vois pas pourquoi mon code ne va pas, je pense que c'est un truc tout bête.

Cordialement,
Bubut

[mout1234]

Essaie

Code :

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

Sous_Ensemble.Value ou Sous_Ensemble

[Bubut]

Mon problème est au niveau d'ici:

Code :

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

1
2
         Me.Commentaire_Réf.Value = "0"
         Me.Descriptif_Réf.Value = "0"

[Lou Pitchoun]

Salut,

Je rejoins mout1324.
Le problème n'est pas sur les 2 instructions qui suivent le If.

Et puis pourquoi affecter des 0 à un champ texte ??

[Bubut]

J'affecte des 0 car après je travail avec Excel et quand j'exporte les données d'access vers excel, Excel n'accepte pas les valeurs nuls.

Au niveau de mon :

Code :

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

If Sous_Ensemble.Text <>"430-1" Then

Je suis sur que c'est bon car je travaille déjà avec cette condition et je veux rajouter :

Code :

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

1
2
         Me.Commentaire_Réf.Value = "0"
         Me.Descriptif_Réf.Value = "0"

Mais ca fonctionne pas.

Cordialement,
Bubut

[Lou Pitchoun]

Code :

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

1
2
Private Sub Sous_Ensemble_Click()
     If Sous_Ensemble.Text <>"430-1" Then

Sous_Ensemble c'est quoi ?? un bouton ?

[mout1234]

Mais ca fonctionne pas.

Qu'entends-tu par là? tu as un message d'erreur à la compilation ? à l'exécution? ou cela ne fait pas ce que tu souhaites?

[Bubut]

Sous_Ensemble est une liste déroulante et Commentaire_Réf et Descriptif_Réf sont des zones de textes.

[Bubut]

Non il n'y a pas de message d'erreur.
Et il ne fait pas se que je souhaite.

[Lou Pitchoun]

Sous_Ensemble est une liste déroulante et Commentaire_Réf et Descriptif_Réf sont des zones de textes.

On avance

Donc tu testes la valeur de ta liste déroulante.
Si la valeur est différente de 430-1 alors tu mets les 0.

Si c'est ça :

Sur l'évènement 'Sur MAJ' de la liste :

Code :

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

1
2
3
4
If Sous_Ensemble.Text <>"430-1" Then
         Me.Commentaire_Réf.Value = "0"
         Me.Descriptif_Réf.Value = "0"
End If

J'ai laissé .Text mais .Value fonctionne aussi (ce que j'utilise le plus, il faut dire...)

[Mahefasoa]

Bonjour,
Excusez-moi de vouloir revenir un peu plus haut.

J'affecte des 0 car après je travail avec Excel et quand j'exporte les données d'access vers excel, Excel n'accepte pas les valeurs nuls.

Mais pourquoi ne pas utiliser la fonction nz dans ce cas, car elle peut convertir toute valeur nulle en ... zéro (0) par exemple?
Si c'est le seul problème ...

Bon courage et @+

[Bubut]

Ca ne fonctionne pas avec

Code :

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

If Sous_Ensemble.Text <>"430-1" Then  Me.Commentaire_Réf.Value = "0"  Me.Descriptif_Réf.Value = "0" End If

Sur l'évènement MAJ.

Je vais voir pour la fonction nz, si quelqu'un peut me renseigner dessus.

Cordialement;
Bubut

[ESVBA]

Je survole votre discus

Mais une zone de texte c'est pour moi

Code :

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

TxtZoneTxt.Text = "Quelque chose en texte donc entre guillement"

[Mahefasoa]

Bonjour,

Mais une zone de texte c'est pour moi

Code :

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

TxtZoneTxt.Text = "Quelque chose en texte donc entre guillement"

Ceci est vrai dans une situation précise: lorsque la zone de texte a le focus. Mais dans le cas contraire, la propriété plus appropriée est Value et non Text.
Il faut aussi savoir que Text transforme les valeurs en type String. Si les valeurs doivent être comprises comme des nombres par exemple, il faut penser à les convertir... Par contre, en VB (je ne connais pas les versions au delà de VB6), le contenu d'une zone de texte est accessible par la propriété Text.
Veuillez me corriger si je me trompe.

En ce qui concerne nz, c'est une fonction qui renvoie une autre valeur lorsque la valeur d'un champ est nulle.

Code :

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

1
2
 
nz(Me.Contrôle,0) 'renvoie 0 si Me.Contrôle est null

Bon courage et @+

[Bubut]

Je ne comprends pas pourquoi ca ne fonctionne pas, que ce soit avec ce code

Code :

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

1
2
3
4
If Sous_Ensemble.Text <>"430-1" Then
   Me.Commentaire_Réf.Value = "0"
   Me.Descriptif_Réf.Value = "0"
End If

ou avec celui là

Code :

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

1
2
3
4
If Sous_Ensemble.Text <>"430-1" Then
   Me.Commentaire_Réf.Text = "0"
   Me.Descriptif_Réf.Text = "0"
End If

Il ne me trouve pas d'erreur et il n'effectue pas la tache que je lui demande.

Cordialement,
Bubut

[mout1234]

As-tu bien relu nos messages...

Essaie

Code :

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

Sous_Ensemble.Value ou Sous_Ensemble

Dans tes deux exemples tu a laissé Sous_Ensemble.Text


Essaie donc

Code :

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

1
2
3
4
5
 
If Me!Sous_Ensemble.Value<>"430-1" Then  
      Me!Commentaire_Réf.Value = "0"  
      Me!Descriptif_Réf.Value = "0" 
End If

PS: je reste un peu perplexe quant à la valeur du critère et aux valeurs affectées... mais bon ... c'est peut être logique ... je n'ai pas ton écran sous le nez

[Bubut]

En faite je laisse Text car j'utilise déja cette condition donc je sais qu'elle est bonne.

[Mahefasoa]

Bonjour,

En faite je laisse Text car j'utilise déja cette condition donc je sais qu'elle est bonne.

J'ai simulé ton code chez moi et il fonctionne. Bien entendu, il est clair que je n'ai pas tous les paramètres de ton environnement de travail et ceux de l'application.
Mais écoutes, si ton problème se situe au niveau du fait que tu crains les valeurs nulles renvoyées par les contrôles, pourquoi ne pas utiliser la fonction nz comme on te l'a montré plus haut.
Un tour à la ou une recherche sur ce forum te sera très utile.
Bon dimanche et @lundi.