ListBox et table Access----HELP

Question

Bonjour

alors voila :

j'ai deux ListBox dans mon Form, appelons les List1 et List2.

Je rempli List1 avec les éléments d'une table. Grâce à un bouton cmdSelect, l'utilisateur choisi un ou des éléments de List1 qui vont remplir List2....jusque là, rien de compliqué !

Dans ma table Access, j'ai un champ Include initialisé à FAUX

et bien j'aimerai qu'à partir de ma List2, mon champ Include inscrive VRAI en fonction des éléments de List2 ....

Je vous remercie d'avance !!

Klok · Answer

en fait c'est au moment que tu ajoute ton élément dans ta list2, qu'il faut updrader ton champ Include
tu utilise qu'elle méthode pour accéder à ta base

et inversement pour la suppression
Florent

Muintyr · Answer

Pour sélectionner les enregistrements qui remplissent List1, j'utilise ça (avec le DataEnvironnement-DE)



DE.SelectCat
With DE.rsSelectCat
.MoveFirst
    Do Until .EOF
    FrmListe_chxcat.selection.AddItem !Definition
    .MoveNext
    Loop
    .Close
    End With


pour remplir List2 grâce à List1, j'utilise ça (récupéré sur VBFrance !!Merci)


____________________________________________
Private Sub cmdselect_Click()
Dim BoxFrom, BoxTo As Object
Set BoxFrom = Me.selection
Set BoxTo = Me.choix
SortList BoxFrom, BoxTo

End Sub
_____________________________________________
Function SortList(BoxFrom, BoxTo)
Dim item As String
Dim i As Integer, j As Long
Dim counti As String
Dim comp As String
If BoxFrom.ListIndex = -1 Then
    Exit Function
Else
    item = BoxFrom.Text
        If BoxTo.ListCount = 0 Then
            BoxTo.AddItem item, i
            BoxFrom.RemoveItem BoxFrom.ListIndex
        Else
            BoxTo.AddItem item
            BoxFrom.RemoveItem BoxFrom.ListIndex
            counti = BoxTo.ListCount - 1
            
            For i = counti To 0 Step -1
            For j = i - 1 To 0 Step -1
            item = BoxTo.List(j)
            comp = BoxTo.List(i)
                If item > comp Then
                    BoxTo.RemoveItem j
                    BoxTo.AddItem item, i
                End If
            Next j
            Next i
        End If
    End If
    End Function
___________________________________________
Private Sub Form_Load()
Call AffichageCat
End Sub


__________________________________________
___________________________________
________________________
Mais d'habitude, pour accèder à une table, j'utilise une requête SQL dans mon programme VB style : 


Set AdoConnection = New ADODB.Connection
Set AdoRecordset = New ADODB.Recordset

ConnectString = "Immo"
AdoConnection.Open ConnectString

SQL = "SELECT blabla FROM blabla where blabla"
    
    AdoRecordset.Open SQL, AdoConnection

Klok · Answer

Tu utilise a ado

-avec un recordset

with rs
    strsql= "SELECT Include FROM TABLE WHERE Condition"
    .activeconnection=cn.connectionstring
    .open strsql
       if .recordcount=1 then
         !Include=true
         .update
       end if
    .close
end with

-avec un objet command

with rs
    strsql="Insert into nom_table SET include=true WHERE Condition"
    .activeconnection=cn.connectionstring
    .commandtext=strsql

    .execute
end with

Pour trier ta liste, tu as la propriété sorted

 Florent

Muintyr · Answer

Comment dois-je m'y prendre pour les conditions ??

where Champ=  me.list ?????????

ListBox et table Access----HELP

4 réponses

Discussions similaires