Fråga : Hur man får värdera

Jag har datacombo med Group_Name
What som jag önskar är, allt vad data i datacombo, hur kan jag få en vid en Group_Name i variable
T_Gname =
> för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

" codeBody " " >If för class= " för 0 därefter För Gi = 1 till GName.RecordCount GCount = Val (DataCombo4.text) + 1 Gc = DataCombo4.text + Chr (DataCombo4.text) Nästa Gi Avsluta om Gå ut suben " klar "

Svar : Hur man får värdera

oken där är några väg att göra vad I-funderare dig önskar att göra.  

1: prob easisten är långt att använda en rapport i stället för en bilda.

2: om du går att använda en bilda i onclickhändelsen av ditt, knäppas dig kan använda en av dessa två uppsättningar av kodifierar.

',------------------kodifiera en -----förlägga i ditt klickar på händelse
Dunkelt svar som stränger
Dunkel mysql som stränger
Dunkelt cboval som stränger
Dunkelt I som heltal
i = 0
Med 'ändring Me.Combo1 till din kända combobox
        .SetFocus
        För I = 0 till .ListCount - 1
     cboval =. Kolonn (0, I)
    svar = MsgBox (”tryckrekord för” & Me.Combo1.Column (0, I) & ”? ” vbYesNo)
    Om svar = vbYes därefter
            mysql = ”VÄLJER * FRÅN Table1 VAR table1.CUSTOMERNAME =” & ””” & cboval & ”” ”&”; ”'ändring table1 till ditt bordlägger/den kända queryen - ändra cutormername till din kända kolonn”,
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand-acCmdPrint
            Avsluta om
        Därefter i
    Avsluta med



',-------------------avsluta av kodifierar en-------------------
eller du kunde använda det nedanfört kodifierar i stället

',--------------kodifiera två förlägger i klickahändelsen av ditt knäppas på
Dunkelt svar som stränger
Dunkel mysql som stränger
Dunkelt cboval som stränger
Dunkelt I som heltal
i = 0
mysql = "",

Med 'ändring Me.Combo1 till din kända combobox
        .SetFocus
        För I = 0 till .ListCount - 1
        cboval =. Kolonn (0, I)
        Om mysql = "" därefter
        mysql = mysql & ””table1.CUSTOMERNAME =” & cboval & ”” ”'ändring table1 till ditt bordlägger/den kända queryen och ändrar customername till din kända kolonn
        Annars
        mysql = mysql & ””ELLER table1.CUSTOMERNAME =” & cboval & ”” ”'ändring table1 till ditt bordlägger/den kända queryen och ändrar customername till din kända kolonn

        Avsluta om
             
        Därefter i
        mysql = ”VÄLJER * FRÅN Table1 VAR” & mysql & ”; ” 'ändring table1 till ditt bordlägger/den kända queryen - ändra cutormername till din kända kolonn ",
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand-acCmdPrint
   
    Avsluta med

',--------------avsluta av kodifierar två