listbox

Question

j'ai une premiere list 1remplis avec des elements et je construire une deusi&#232;me list2 qui contient  des elements de la list1.mon probl&#232;me ressemble &#224; la cr&#233;atio de table &#224; l'aide de l'assistant en acces(list1: contient des exemples de champs et la list2:contient champs dans nouvelle table)
ma question est :comment je peux ajouter un element selectionn&#233; par le souris de la list1 au list 2 par simple click &#224; un bouton(>)

Gobillot · Answer

Private Sub List1_Click()
    List2.AddItem List1.Text
End Sub

Daniel

crenaud76 · Answer

If List1.Listindex >-1 Then List2.Additem List1.List(List1.Listindex)

A mettre dans l'evt Click de ton bouton
Christophe R

crenaud76 · Answer

If List1.Listindex >-1 Then List2.Additem List1.List(List1.Listindex)

A mettre dans l'evt Click de ton bouton
Christophe R

mongii · Answer

OK c'est bon merci beaucoup

nostra78 · Answer

Private Sub Image1_Click() 'pour basuler de listbox1 &#224; listbox2
    Dim Cpt As Byte
    Dim FlagArtPresent As Boolean
    If ListBox1.ListIndex = -1 Then
        MsgBox "Aucun Destinataire n'est s&#233;lectionn&#233; !", vbOKOnly + vbCritical, "Erreur"
    Else
        
        FlagArtPresent = False
        For Cpt = 1 To ListBox2.ListCount
            ListBox2.ListIndex = Cpt - 1
        Next Cpt
        If FlagArtPresent Then
            MsgBox "Ce Destinataire est d&#233;j&#224; s&#233;lectionn&#233;e !", vbOKOnly + vbCritical, "Erreur"
        Else
            ListBox2.AddItem (ListBox1.Value)
            ListBox1.RemoveItem (ListBox1.ListIndex)'pour enlever l'item de la listbox1

        End If
    End If
End Sub

Private Sub Image2_Click() 'pour basuler de listbox2 &#224; listbox1
    If ListBox2.ListIndex = -1 Then
        MsgBox "Aucun Destinataire n'est s&#233;lectionn&#233; !", vbOKOnly + vbExclamation, "Erreur"
    Else
        ListBox1.AddItem (ListBox2.Value)
        ListBox2.RemoveItem (ListBox2.ListIndex) 'pour enlever l'item de la listbox2
    End If
End Sub

Private Sub ListBox1_AfterUpdate()
    Dim NumLig As Integer
    Dim FlagDestinataireTrouve As Boolean
    NumLig = 0
    FlagDestinataireTrouve = False
    Application.ScreenUpdating = False
            If ListBox1.Value <> "" Then
                FlagDestinataireTrouve = True
            End If
            NumLig = NumLig + 1
End Sub
Tu remplaces Image pr CommandButton (ou le nom que tu as donn&#233; &#224; ton button)

Nostra78 
Un Ing&#233;nieur Producticien-Automaticien qui se met &#224; l'informatique et qui commence &#224; approuver grandement cette discipline.

Listbox

5 réponses

Discussions similaires