Checkbox à la volée

Salut,

Voilà un exemple que j'ai ressorti de mes cartons vb6. Ne sachant pas si tu utilises DAO ou ADO, l'exemple est basé sur un accès DAO à la base de données mais c'est adaptable. En espérant que ça pourra répondre à ta question.

Une form où tu colles le code suivant :

Option Explicit
Dim chk() As CheckBox

Private Sub Form_Load()
Dim db As Database
Dim fld As Field
Dim i As Integer

  Set db = OpenDatabase("c:\temp\bd1.mdb")
 
  For Each fld In db.TableDefs("Table1").Fields
    ReDim Preserve chk(i)
    Set chk(i) = Me.Controls.Add("vb.checkbox", "chk" & i, Me)
    chk(i).Caption = fld.Name
    If i > 0 Then chk(i).Top = chk(i - 1).Top + 350
    chk(i).Visible = True
    i = i + 1
  Next

End Sub

Pour tester l'état de tes checkbox, ça sera
if chk(TonIndex).checked = true then ....

Bien sur, tu remplaces "c:\temp\bd1.mdb" par le chemin de ta base et "Table1" par le nom de ta table mais je pense que tu l'auras compris.


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?