Pergunta : Como começ o valor

Eu tenho o datacombo com Group_Name
What que eu quero sou o que quer que dados no datacombo, como posso eu começ um por um Group_Name no variable
T_Gname =
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
>If notpretty " do class= " do id= " codeSnippet778884 do 
 0 então
        
            Para o soldado = 1 a GName.RecordCount

                GCount = Val (DataCombo4.text) + 1
                Gc = DataCombo4.text + Chr (DataCombo4.text)
            Soldado seguinte
                        
        Terminar se
    Retirar o submarino
class= do

Resposta : Como começ o valor

a aprovação lá é algumas maneiras de fazer o que eu penso que você quer fazer.  

1: o prob a maneira do easist é usar um relatório em vez de um formulário.

2: se você está indo usar um formulário no evento do onclick de sua tecla você pode usar um destes dois jogos de código.

'------------------codificar um -----coloc no seu estalam sobre o evento
Escurecer a resposta como a corda
Escurecer o mysql como a corda
Escurecer cboval como a corda
Escurecer i como o inteiro
i = 0
Com 'mudança Me.Combo1 a seu nome do combobox
        .SetFocus
        Para i = 0 a .ListCount - 1
     cboval =. Coluna (0, i)
    resposta = MsgBox (da “registros cópia para” & Me.Combo1.Column (0, i) & “? ”, vbYesNo)
    Se resposta = vbYes então
            o mysql = “SELECIONA * de Table1 ONDE table1.CUSTOMERNAME =” & ““” & cboval & “” “&”; “'a mudança table1 a seu nome da tabela/pergunta - mudar o cutormername a seu nome de coluna”
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
            Terminar se
        Em seguida i
    Extremidade com



'-------------------fim do código um-------------------
ou você poderia usar o código below preferivelmente

'--------------lugar do código dois sobre no evento do clique de sua tecla
Resposta não ofuscante como a corda
Mysql não ofuscante como a corda
Cboval não ofuscante como a corda
Escurecer i como o inteiro
i = 0
mysql = ""

Com 'mudança Me.Combo1 a seu nome do combobox
        .SetFocus
        Para i = 0 a .ListCount - 1
        cboval =. Coluna (0, i)
        Se mysql = "" então
        mysql = mysql & ““table1.CUSTOMERNAME =” & cboval & “” “'mudança table1 a seu nome da tabela/pergunta e a customername da mudança a seu nome de coluna
        Mais
        mysql = mysql & ““OU table1.CUSTOMERNAME =” & cboval & “” “'mudança table1 a seu nome da tabela/pergunta e a customername da mudança a seu nome de coluna

        Terminar se
             
        Em seguida i
        o mysql = “SELECIONA * de Table1 ONDE” & mysql & “; ” 'a mudança table1 a seu nome da tabela/pergunta - mudar o cutormername a seu nome de coluna "
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
   
    Extremidade com

'--------------fim do código dois
Outras soluções  
 
programming4us programming4us