Вопрос : Как получить значение

Я имею datacombo с Group_Name
What, котор я хочу данные в datacombo, как могу я получить по-одному Group_Name в variable
T_Gname =
class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

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

>If " class= " id= " codeSnippet778884 0 после этого Для Gi = 1 к GName.RecordCount GCount = Val (DataCombo4.text) + 1 Gc = DataCombo4.text + Chr (DataCombo4.text) Следующий Gi Закончитесь если Выходите подводная лодка

class=

Ответ : Как получить значение

о'кейом там будет немного дорог сделать я думаю вы хочет сделать.  

1: prob дорога easist должно использовать рапорт вместо формы.

2: если вы идете использовать форму в случае onclick вашей кнопки, то вы можете использовать один из этих 2 комплектов Кодего.

'------------------закодируйте одно -----установьте в вашем дальше щелкните случаем
Затемните реакцию как шнур
Затемните mysql как шнур
Затемните cboval как шнур
Затемните I как интежер
iий = 0
С 'изменение Me.Combo1 к вашему имени combobox
        .SetFocus
        Для I = 0 к .ListCount - 1
     cboval =. Колонка (0, I)
    реакция = MsgBox («показатели печати для» & Me.Combo1.Column (0, I) & «? », vbYesNo)
    Если реакция = vbYes после этого
            mysql = «ВЫБИРАЕТ * ОТ Table1 ГДЕ table1.CUSTOMERNAME =» & ««» & cboval & «» «&»; «'изменение table1 к вашему имени таблицы/вопроса - измените cutormername к вашему имени колонки»
            Me.Form.RecordSource = mysql
            acCmdPrint DoCmd.RunCommand
            Закончитесь если
        Затем iий
    Конец с



'-------------------конец Кодего одного-------------------
или вы smogли использовать внизу Кодего вместо

'--------------место Кодего 2 в дальше случае щелкать вашей кнопки
Тусклая реакция как шнур
Тусклое mysql как шнур
Тусклое cboval как шнур
Затемните I как интежер
iий = 0
mysql = ""

С 'изменение Me.Combo1 к вашему имени combobox
        .SetFocus
        Для I = 0 к .ListCount - 1
        cboval =. Колонка (0, I)
        Если mysql = "" после этого
        mysql = mysql & ««table1.CUSTOMERNAME =» & cboval & «» «'изменение table1 к вашему имени таблицы/вопроса и customername изменения к вашему имени колонки
        Еще
        mysql = mysql & ««ИЛИ table1.CUSTOMERNAME =» & cboval & «» «'изменение table1 к вашему имени таблицы/вопроса и customername изменения к вашему имени колонки

        Закончитесь если
             
        Затем iий
        mysql = «ВЫБИРАЕТ * ОТ Table1 ГДЕ» & mysql & «; » 'изменение table1 к вашему имени таблицы/вопроса - измените cutormername к вашему имени колонки "
            Me.Form.RecordSource = mysql
            acCmdPrint DoCmd.RunCommand
   
    Конец с

'--------------конец Кодего 2