Vraag : Hoe te om waarde te krijgen

Ik heb datacombo met Group_Name
What die ik ben wat ook de gegevens zijn in datacombo heb gewild, hoe kan ik Group_Name in variable
T_Gname één voor één worden =
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

If GName.State = 1 toen GName.Close
        
        GName.Open „selecteren Naam van de orde van Groepen door Naam“, bedriegen, adOpenKeyset, adLockOptimistic

        Als GName.RecordCount > 0 toen
        
            Voor Gi = 1 aan GName.RecordCount

                GCount = Val (DataCombo4.text) + 1
                Gc = DataCombo4.text + Chr (DataCombo4.text)
            Volgende Gi
                        
        Eind als
    Sub van de uitgang

Antwoord : Hoe te om waarde te krijgen

o.k. er zijn een paar manieren om te doen welk ik denk u wilt doen.  

1: prob de easistmanier is een rapport in plaats van een vorm te gebruiken.

2: als u een vorm in de onclickgebeurtenis van uw knoop gaat gebruiken kunt u één van deze twee reeksen van code gebruiken.

'code de plaats in uw klikt gebeurtenis
Schemerige reactie als Koord
Schemerige mysql als Koord
Schemerige cboval als Koord
Schemerige I als Geheel
i = 0
Met 'Verandering Me.Combo1 in uw comboboxnaam
        .SetFocus
        Voor I = 0 aan .ListCount - 1
     cboval =. Kolom (0, I)
    reactie = MsgBox (de „verslagen van de Druk voor“ & Me.Combo1.Column (0, I) & „? “, vbYesNo)
    Als reactie = vbYes toen
            mysql = „SELECTEER * UIT Table1 WAAR table1.CUSTOMERNAME =“ & „„“ & cboval & „“ „&“; „'verander table1 in uw lijst/vraagnaam - verander cutormername in uw kolomnaam“
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
            Eind als
        Volgende I
    Eind met



'eind van code
of u kon de onderstaande code in plaats daarvan gebruiken

'code twee plaats in klikt gebeurtenis van uw knoop
Schemerige reactie als Koord
Schemerige mysql als Koord
Schemerige cboval als Koord
Schemerige I als Geheel
i = 0
mysql = ""

Met 'Verandering Me.Combo1 in uw comboboxnaam
        .SetFocus
        Voor I = 0 aan .ListCount - 1
        cboval =. Kolom (0, I)
        Als mysql = "" toen
        mysql = mysql & „„table1.CUSTOMERNAME =“ & cboval & „“ „'verander table1 in uw lijst/vraagnaam en verandering customername in uw kolomnaam
        Anders
        mysql = mysql & „„OF table1.CUSTOMERNAME =“ & cboval & „“ „'verander table1 in uw lijst/vraagnaam en verandering customername in uw kolomnaam

        Beëindig als
             
        Volgende I
        mysql = „SELECTEER * UIT Table1 WAAR“ & mysql & „; “ 'verander table1 in uw lijst/vraagnaam - verander cutormername in uw kolomnaam "
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
   
    Eind met

'eind van code twee
Andere oplossingen  
 
programming4us programming4us