Questione : Come ottenere valore

Ho datacombo con Group_Name
What che voglio sono qualunque dati in datacombo, come posso ottenere uno per uno Group_Name nel variable
T_Gname = il
class= > " libero " 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 allora
        
            Per il Gi = 1 a GName.RecordCount

                GCount = Val (DataCombo4.text) + 1
                Gascromatografia = DataCombo4.text + Chr (DataCombo4.text)
            Gi seguente
                        
        Concluder se
    Uscire il sommergibile
class= del

Risposta : Come ottenere valore

l'approvazione là è alcuni sensi fare che cosa penso che vogliate fare.  

1: il prob il senso di easist è di usare un rapporto anziché una forma.

2: se stiate andando utilizzare una forma nell'evento del onclick del vostro tasto potete usare uno di questi due insiemi del codice.

'------------------codificare uno -----disporre in vostro sopra scattano l'evento
Oscurare la risposta come stringa
Oscurare il mysql come stringa
Oscurare cboval come stringa
Oscurare la i come numero intero
i = 0
Con 'cambiamento Me.Combo1 al vostro nome del combobox
        .SetFocus
        Per i = 0 a .ListCount - 1
     cboval =. Colonna (0, i)
    risposta = MsgBox (“annotazioni della stampa per„ & Me.Combo1.Column (0, i) & “? „, vbYesNo)
    Se risposta = vbYes allora
            il mysql = “SELEZIONA * A PARTIRE da Table1 DOVE table1.CUSTOMERNAME =„ & ““„ & cboval & “„ “&„; “'cambiamento table1 al vostro nome domanda/della tabella - cambiare il cutormername al vostro nome di colonna„
            Me.Form.RecordSource = mysql
            acCmdPrint di DoCmd.RunCommand
            Concluder se
        Dopo i
    Estremità con



'-------------------conclusione del codice uno-------------------
o potreste usare il codice sotto preferibilmente

'--------------posto di codice due sopra nell'evento di scattare del vostro tasto
Risposta fioca come stringa
Mysql fioco come stringa
Cboval fioco come stringa
Oscurare la i come numero intero
i = 0
mysql = ""

Con 'cambiamento Me.Combo1 al vostro nome del combobox
        .SetFocus
        Per i = 0 a .ListCount - 1
        cboval =. Colonna (0, i)
        Se mysql = "" allora
        mysql = mysql & ““table1.CUSTOMERNAME =„ & cboval & “„ “'cambiamento table1 al vostro nome domanda/della tabella e al customername del cambiamento al vostro nome di colonna
        Altrimenti
        mysql = mysql & ““O table1.CUSTOMERNAME =„ & cboval & “„ “'cambiamento table1 al vostro nome domanda/della tabella e al customername del cambiamento al vostro nome di colonna

        Concluder se
             
        Dopo i
        il mysql = “SELEZIONA * A PARTIRE da Table1 DOVE„ & mysql & “; „ 'cambiamento table1 al vostro nome domanda/della tabella - cambiare il cutormername al vostro nome di colonna "
            Me.Form.RecordSource = mysql
            acCmdPrint di DoCmd.RunCommand
   
    Estremità con

'--------------conclusione del codice due
Altre soluzioni  
 
programming4us programming4us