transposé un code vba excel sur accessRésolu

Question

bonjour j'éssayer de transposer ce code sur access mais impossible access ne l'accepte pas pourtant il y a les bons contrôles. merci d'avance pour vos réponse.[javascript:Insert_Emoticon('/imgs2/smile_shock.gif'); ]

Private Sub CommandButton1_Click()
 Dim i As Byte
    
    'boucle sur les éléments de la listbox
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            If TextBox1.Value <> ListBox1.Selected(i) Then
                TextBox1 = TextBox1.Value & " " & ListBox1.Selected(i)
            End If
        End If
    Next i
End Sub

jrivet · Accepted Answer

Salut,
Sans grande conviction, regarde ce que tu peux faire avec cela.
Dim i As Integer
 
   'boucle sur les éléments de la listbox
   For i = 0 To Liste5.ListCount - 1
       If Liste5.Selected(i) = True Then
           Texte3.SetFocus
           If Texte3.Text <> Liste5.ItemData(i) Then
              Texte3.Text = Texte3.Text & " " & Liste5.ItemData(i)
           End If
       End If
   Next i, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Renfield · Answer

les listbox access ne fonctionnent pas pareil

voir sa propriété RowSource

avatar11 · Answer

Merci beaucoup julien ta réponse marche correctement[javascript:Insert_Emoticon('/imgs2/smile_cool.gif'); ]

avatar11 · Answer

Euh par contre je viens de voir que quand je fais fonctionner ce code les données de ma listbox change mais je souhaite que ces données ne change pas mais s'inscrivent quand méme dans la zone de texte vous auriez une réponse s'il vous plaît?
merci pour le code encore une fois[javascript:Insert_Emoticon('/imgs2/smile_wink.gif'); ]

avatar11 · Answer

Nan en faites c'est bon il n'y a aucun probléme[javascript:Insert_Emoticon('/imgs2/smile_cool.gif'); ]

Transposé un code vba excel sur access

5 réponses

Votre réponse

Discussions similaires