Discussion :

[BRUNO71]

Bonjour,
Je possède plusieurs articles dans un sous formulaire et j'ai le choix de faire un double click sur la réf et ça copie (la ref et l'article) dans deux zones de texte.

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub Liste_Références_DblClick(Cancel As Integer)
 
 
  If IsNull(Forms![Frm_demande]!num_article1) Then
 
 
Forms![Frm_demande]!num_article1 = ""
Forms![Frm_demande]!Libelle1 = ""
Forms![Frm_demande]!quantite1 = ""
 
Forms![Frm_demande]!num_article1 = Liste_Références
Forms![Frm_demande]!Libelle1.SetFocus
Forms![Frm_demande]!Libelle1 = Liste_Désignations
 
 ElseIf IsNull(Forms![Frm_demande]!num_article2) Then
 
 
  Forms![Frm_demande]!num_article2 = Liste_Références
Forms![Frm_demande]!Libelle2.SetFocus
Forms![Frm_demande]!Libelle2 = Liste_Désignations
 
   Else
 
      'autre action
End If
 
End Sub

Si l'une est vide alors il copie le deuxième choix dans l'autre, et voilà.(ça marche).
Il y a deux boutons (chacun sert à vider la ligne corresponde (qui ce trouve en face sur la même ligne....(ça marche)

Par contre, si je veux à nouveau cliquer sur un autre article (parce qu'une ligne a été vider grâce au bouton correspondant) et bien je ne peux plus (le double Click ne marche plus !

J'ai essayé avec refresch, requery et rien ne ce passe....
Par contre si je ferme et j'ouvre à nouveau le formulaire...le dble click va bien....

Que dois ajouter dans ma procédure...

MerciPièce jointe 199494

[loufab]

Bonjour,

Je pense que tu confonds Null et vide "".

Code :

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

1
2
3
Null <> ""
Len(null) = Erreur
Len("") = 0

Je pense que ton problème vient de code de la croix.

Cordialement,

[BRUNO71]

Bonjour,

Effectivement cela proviens du code de la croix....

Si ça peut servir à d'autre....Je pensais vider correctement de cette manière :

Code :

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

1
2
 
Me.Libelle1.Value = ""

Alors que maintenant mon code fonctionne comme ceci :

Code :

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

1
2
 
Me.Libelle1.Value = Null <> ""

Merci beaucoup

Cordialement,

[loufab]

Je pense que tu as mal interprété le code que j'ai fourni. Il s'agissait d'expression logique et non d'un code à inclure tel quel.

Ton code doit être ceci plutôt :

Code :

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

Me.Libelle1.Value = Null

Si tu fais ceci :

Code :

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

Me.Libelle1.Value = Null <> ""

Ton contenu sera Null à cause d'une règle VBA qui veut que comparer un Null à une valeur (par opposition à un objet) renvoi toujours Null, une chance pour toi en fait. Mais c'est une grosse erreur conceptuelle.

Le code que je t'a fourni dans mon post précédent était pour t'indiquer que la valeur Null était inégale à un string vide ( "" ).

En espérant t'avoir éclairé sur la valeur Null.

Cordialement,