VB ACCESS

Bonjour,

Je programme une petite base de données via ACCESS / VB mais jen'y connais pas grand chose en vb... C'est dur !

J'ai créé une table avec un identifiant (numérotation automatique) : [Id vin] et un libellé associé ([Nom vin]). Et je voudrais, moyennant une sélection dans une zone de liste récupérer l'identifiant dans une zone de texte indépendante.

Et en fait, avec le code ci-dessous, access me renvoie un libéllé dans ma zone de texte, au lieu d'un numérique. Pouvez vous m'aider à récupérer un numérique ?

VOici mon code :

Private Sub L_VINS_Click()

Dim x As Integer


On Error Resume Next
L_VINS.RowSource = "SELECT Vins.[Id vin],Vins.[Nom vin],Vins.[Type Vin],Vins.[Id région],Régions.[Région] FROM Régions INNER JOIN Vins ON Régions.[id région]=VIns.[Id région]ORDER BY [Nom vin]"

T_ID_VIN.Locked = True
T_Nom_vin.Locked = True
T_TYPE_VIN.Locked = True
T_REGION1.Locked = True



If L_VINS.ListIndex >= 0 Then
T_ID_VIN.Value = L_VINS.Column(0, L_VINS.ListIndex + 1)
T_Nom_vin.Value = L_VINS.Column(1, L_VINS.ListIndex + 1)
T_TYPE_VIN.Value = L_VINS.Column(2, L_VINS.ListIndex + 1)
T_REGION1.Value = L_VINS.Column(3, L_VINS.ListIndex + 1)

End If
End Sub

SI je sélectionne le 14ème vin de ma liste, dans T_ID_VIN je trouve "14" au lieu de 14...

Merci de votre aide !