Discussion :

[adrien62400]

Bonjour a tous,

Je cherche a developper une application simpliste mais je me bute a un probleme dont je n'arrive pas a determiner la cause.

Mon objectif est de mettre a jour deux listbox, chacune en fonction de l'autre.

Une listbox correspondant a une taille, l'autre a un diametre, je peux selectionner la taille et ca va m'indiquer le diametre, ou inversement, selectionner le diametre pour que me soit indiquee la taille.

Seulement, quand je choisis une taille, le diametre renvoye est constamment le meme et inversement, quand je choisis un diametre, la taille renvoyee est systematiquement la meme.
En passant par des txtbox en plus des lstbox ca fonctionne, mais ce n'est pas le resultat que j'attends... En mode debug, le probleme se produit sur le set du recordset, il renvoie une valeur fausse, qu'elle que soit la valeur de Me.listboxAWG.value, il renvoie toujours la meme chose (a savoir une valeur en milieu de plage, pourquoi celle la...).

Mon code est le suivant, et est duplique pour la seconde listbox :

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
Private Sub lstboxAWG_Click()
 
Dim strSQL As String
Dim rstAWG As Recordset
 
    Set rstAWG = CurrentDb.OpenRecordset("SELECT CoreOD FROM Conductors WHERE AWG=" & Me.lstboxAWG.Value & "", dbReadOnly)
    With rstAWG
        If Not .RecordCount = 0 Then
            Me.lstboxCOD.Value = CoreOD
        End If
        .Close
    End With
    Me.Refresh
 
End Sub

Pourriez-vous je vous prie m'apporter un peu d'aide ? Je pense que le manque de recul m'empeche de voir quelque chose d'evident.

Merci d'avance!
Adrien

[tee_grandbois]

Bonsoir,
c'est la propriété RowSource de la listbox qu'il faut mettre à jour par rapport à la sélection :

Code :

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

1
2
3
4
5
Private Sub lstboxAWG_Click()
 
Me.lstboxCOD.RowSource ="SELECT CoreOD FROM Conductors WHERE AWG='" & Me.lstboxAWG.Value & "'"
 
End Sub

et inversement

[adrien62400]

Bonjour et merci pour votre reponse.

Le probleme venait en fait de l'absence de "rstAWG!" lors de l'utilisation des variables du recordset. Ca fonctionne sans changer le reste du code.

Probleme resolu donc!