Checkbox Dynamique

Question

Bonjour,

G des checkbox sur mon formulaire.

La maj avec la base de fait niquel. Mon souci r&#233;side dans le chargement..

Je voudrai faire qqch similaire au js (cf ci-dessous...), cad un
chargement de ma variable et affecter une valeur mais je bloque.... me
tape toujours une erreur

Ex de code js que je voudrai reproduire en VB :

tmp = eval("document.frm.val" + i);

tmp.value



je souhaite int&#233;grer mon code la dedans.

G en base le nom de mes ctrl.... Je voudrai le charger dans une variable et pouvoir agir sur mon ctrl r&#233;f&#233;rant

G essayer av le code ci-dessous.. et essayer d autres bidouilles.. mais &#231;a marche po !! lol

Public Function load_inter_checkbox()

    Dim tmp As Variant



    'Ma req sql..po gd int&#233;r&#234;t ici !! 

    sql = "select * from asso_fiche_inter a, inter b " & _

          " where fiche_id = " & current_fiche & _

          " and a.inter_id = b.inter_id"

    Set rs = dbBdd.OpenRecordset(sql, dbOpenDynaset)

    If rs.RecordCount > 0 Then

        rs.MoveFirst

       Do While Not rs.EOF

            tmp = rs("evac_field_name") 'Chargement du nom de mon ctrl

            With tmp

               
.Value = 1 'tentative d'affectation, mais ki me fait une erreur

            End With

            rs.MoveNext

       Loop

    End If

    rs.Close

    Set rs = Nothing

End Function



Si qqn peut m aider.... je prends toutes les solutions avec gd plaisir.



Merci par avance.

jpleroisse · Answer

Pour ajouter un CheckBox dynamique.

Option Explicit
Private WithEvents chkObj As CheckBox

Private Sub Form_Load()
   Set chkObj = Controls.Add("VB.CheckBox", "chkObj")
   With chkObj
      .Visible = True
      .Width = 2000
      .Caption = "Bonjour"
      .Top = 1000
      .Left = 1000
   End With
End Sub

Private Sub chkObj_Click()
   MsgBox "Ceci est un CheckBox ajout&#233; de fa&#231;on dynamique."
End Sub

jpleroisse

Checkbox Dynamique

1 réponse

Discussions similaires