Discussion :

[Frog74]

Bonjour ,

je voudrais chercher dans mon recordset l'enregistrement dont la valeur d'un champ text "Mode" vaut la valeur d'une liste déroulante .
Cette liste déroulante est remplie avec les valeurs d'un tableau de string.

Code :

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

1
2
3
4
5
6
For i = 0 To 2 ^ nbevt - 1
        Me.ListeDen.RowSourceType = "Value List"
        Me.ListeNum.RowSourceType = "Value List"
        Me.ListeDen.AddItem (sTab(i))
        Me.ListeNum.AddItem (sTab(i))
    Next i

J'ai essayé dans le code qui suit de convertir la valeur de la liste déroulante en texte mais ça na rien changé que je le fasse ou non .

Code :

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

1
2
3
4
5
6
sMode1 = CStr(Me.ListeNum.Value)
    sMOde2 = CStr(Me.ListeDen.Value)
    rsTotal.FindFirst ("[Mode]=" & sMode1)
    Mode1 = rsTotal("Total")
    rsTotal.FindFirst ("[Mode]=" & sMOde2)
    Mode2 = rsTotal("Total")

J'ai l'erreur : Erreur d'éxécution 3070 , le moteur de base de donnée Microsoft Jet ne reconnaît pas Mode2 en tant que nom de champ ou expression correcte.
Mode 2 étant la valeur de ma liste.
L'erreur cible la ligne suivante:

Code :

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

rsTotal.FindFirst ("[Mode]=" & sMode1)

Je ne trouve pas de colution a mon problème : /

[Frog74]

Code :

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

rsTotal.FindFirst ("[Mode]= '" & sMode1 & "'")

est la solution .. désolé , mais je me suis rendu compte que je n'avais pas mis de syntaxe