Discussion :

[morinxav]

Bonjour,

Je sais je suis un boeuf mais bon ... voici mon problème :

si je veux utiliser la fonction decrite das la FAQ access ... voilà ce qui m'arrive:

la function en question mise dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
Function verifliste(Liste As ListBox, Valeur As String) As Boolean
Dim i As Integer
For i = 0 To Liste.ListCount - 1
  If Liste.ItemData(i) = Valeur Then 
      verifliste = True
      Exit Function
  End if    
Next i
End Function

Code :

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

1
2
 TableMoisAnnee = Me!Texte0.Value & Me!Texte2.Value
        if verifliste(Me!List, TableMoisAnnee) then...

J'obtient : "imcompatibilité de type"

je ne vois pas le problème...

Cordialement




Cordialement

[loufab]

Bonjour,

C'est quoi comme type de liste ?

et la fonction demande le contrôle liste et non la valeur. Toi tu passes la valeur.
Pour passer le contrôle il faut écrire :

Code :

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

verifliste(Me.Controls("nom de la liste"), "valeur")

Perds l'habitude d'utiliser le !, dans certaines circonstances tu risques de ne pas avoir le résultat escompté.

Cordialement,

[morinxav]

Bonjour,

Merci d'avoir repondu.

C'est une zone de liste que j'utilise.

La valeur que je recherche est bien le resultat de cette ligne :

Code :

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

TableMoisAnnee = Me!Texte0.Value & Me!Texte2.Value

(le contenu de ces 2 zones liste concatenées).


Cordialement

[loufab]

Merci de (re)lire attentivement ma dernière réponse, je t'y ai donné la solution.

[morinxav]

Bonjour,

Merci à tout le monde.

Voici la solution à mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
Function verifliste(Liste As ComboBox, Valeur As String) As Boolean
Dim i As Integer
For i = 0 To Liste.ListCount - 1
  If Liste.ItemData(i) = Valeur Then 
      verifliste = True
      Exit Function
  End if    
Next i
End Function

Utilisation :

Code :

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

1
2
3
4
 
TableMoisAnnee = Me.Texte0.Value & Me.Texte2.Value
if verifliste(Me.List, TableMoisAnnee) = True then... 
End if

Cordialement