Cuestión : Cómo conseguir valor

Tengo datacombo con Group_Name
What que quiero soy lo que los datos en datacombo, cómo puedo conseguir uno por uno Group_Name en el variable
T_Gname =
class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
>If notpretty " del class= " del id= " codeSnippet778884 del 
 0 entonces
        
            Para el soldado enrollado en el ejército = 1 a GName.RecordCount

                GCount = Val (DataCombo4.text) + 1
                Cromatografía gaseosa = DataCombo4.text + Chr (DataCombo4.text)
            Soldado enrollado en el ejército siguiente
                        
        Terminar si
    Salir el submarino
class= del

Respuesta : Cómo conseguir valor

la autorización allí es algunas maneras de hacer lo que pienso que usted quiere hacer.  

1: el prob la manera del easist es utilizar un informe en vez de una forma.

2: si usted va a utilizar una forma en el acontecimiento del onclick de su botón usted puede utilizar uno de estos dos sistemas del código.

'------------------cifrar uno -----colocar en su encendido chascan acontecimiento
Amortiguar la respuesta como secuencia
Amortiguar el mysql como secuencia
Amortiguar cboval como secuencia
Amortiguar i como número entero
i = 0
Con 'cambio Me.Combo1 a su nombre del combobox
        .SetFocus
        Para i = 0 a .ListCount - 1
     cboval =. Columna (0, i)
    ¿respuesta = MsgBox (“expedientes de la impresión para” y Me.Combo1.Column (0, i) y “? ”, vbYesNo)
    Si respuesta = vbYes después
            el mysql = “SELECCIONA * de Table1 DONDE table1.CUSTOMERNAME =” y ““” y cboval y “” “y”; “el 'cambio table1 a su nombre de la tabla/de la pregunta - cambiar el cutormername a su nombre de columna”
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
            Terminar si
        Después i
    Extremo con



'-------------------final del código uno-------------------
o usted podría utilizar el código below en lugar de otro

'--------------lugar del código dos en encendido el acontecimiento del chascar de su botón
Respuesta dévil como secuencia
Mysql dévil como secuencia
Cboval dévil como secuencia
Amortiguar i como número entero
i = 0
mysql = ""

Con 'cambio Me.Combo1 a su nombre del combobox
        .SetFocus
        Para i = 0 a .ListCount - 1
        cboval =. Columna (0, i)
        Si mysql = "" después
        mysql = mysql y ““table1.CUSTOMERNAME =” y cboval y “” “'cambio table1 a su nombre de la tabla/de la pregunta y al customername del cambio a su nombre de columna
       
        mysql = mysql y ““O table1.CUSTOMERNAME =” y cboval y “” “'cambio table1 a su nombre de la tabla/de la pregunta y al customername del cambio a su nombre de columna

        Terminar si
             
        Después i
        el mysql = “SELECCIONA * de Table1 DONDE” y mysql y “; ” el 'cambio table1 a su nombre de la tabla/de la pregunta - cambiar el cutormername a su nombre de columna "
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
   
    Extremo con

'--------------final del código dos
Otras soluciones  
 
programming4us programming4us