Comment afficher une ligne de liste déroulante MS-Access en surbrillance? J'utilise MS-Access 2007. Je veux que la première ligne d'une liste multiple soit affichée en surbrillance via VBA. J'ai essayé Me.LstSample.Selected(0) = True
, mais cela ne fonctionne pas.Comment afficher une ligne de liste déroulante MS-Access en surbrillance?
Le code:
Private Sub LstStation_AfterUpdate()
With Me.LstSample
If IsNull(Me.LstStation) Then
.RowSource = ""
Else
.RowSource = _
"SELECT * FROM Samples WHERE S='" & Me.LstStation.Value & "'"
End If
Call .Requery
If Not IsNull(Me.LstStation) Then
Me.LstSample.Selected(0) = True
End If
End With
End Sub
Il devrait fonctionner. Où avez-vous mis la ligne, quel événement? Pouvez-vous intervenir pour voir si l'événement se déclenche? En guise de note, n'utilisez pas le formulaire Open event, car les contrôles n'auront pas été initialisés. – Fionnuala
Je l'ai mis dans le AfterUpdate d'une autre zone de liste. Si l'utilisateur sélectionne une ligne dans cette (première) zone de liste, alors dans le code de l'événement AfterUpdate, je réinitialise la propriété 'RowSource' de la deuxième zone de liste, faire un 'Requery' puis le code que j'ai mentionné. – waanders
Modifiez votre message pour inclure le code d'événement AfterUpdate. Ce que vous décrivez devrait fonctionner correctement, alors je suppose qu'il y a quelque chose que vous oubliez ou qu'il y a une petite erreur dans votre code. – KevenDenen