Pytanie : Dlaczego wartość

I mieć datacombo z Group_Name
What i chcieć być chcieć dane w datacombo, jak móc i jeden jeden Group_Name w variable
T_Gname = 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

If GName.State = (1) Wtedy GName.Close
        
        GName.Open "Wybiórka Imię od Grupa rozkaz Imię", przeciw, adOpenKeyset, adLockOptimistic

        Jeżeli GName.RecordCount > (0) Wtedy
        
            Dla GI = (1) GName.RecordCount

                GCount = Val (DataCombo4.text) + (1)
                Gc = DataCombo4.text + Chr (DataCombo4.text)
            Następny GI
                        
        Kończyć Jeżeli
    Wychodzić Okręt podwodny

Odpowiedź : Dlaczego wartość

ok tam  być tam  sposób co i myśleć ty chcieć.  

(1): prob the easist sposób być raport zamiast forma.

2: jeżeli ty iść forma w the onclick wydarzenie twój guzik ty móc jeden te dwa set kod.

'------------------kod jeden -----miejsce w twój dalej klikać wydarzenie
Ciemnawy odpowiedź Sznurek
Ciemnawy mysql Sznurek
Ćmić cboval Sznurek
Ćmić i Jako Integer
i = (0)
Z Me.Combo1 'Zmiana twój combobox imię
        .SetFocus
        Dla i = (0) .ListCount - (1)
     cboval =. Kolumna ((0), i)
    odpowiedź = MsgBox ("Druk rejestr dla" & Me.Combo1.Column ((0), i) & "? ", vbYesNo)
    Jeżeli odpowiedź = vbYes Wtedy
            mysql = "WYBIÓRKA * OD Table1 DOKĄD table1.CUSTOMERNAME =" & """ & cboval & "" "&"; "'zmiana table1 twój stołowy/zapytanie imię - zmieniać cutormername twój szpaltowy imię"
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
            Kończyć Jeżeli
        Następnie i
    Końcówka Z



'-------------------końcówka kod jeden-------------------
lub ty móc the kod kod zamiast

'--------------kod dwa miejsce w the dalej klikać wydarzenie twój guzik
Ciemnawy odpowiedź Sznurek
Ciemnawy mysql Sznurek
Ćmić cboval Sznurek
Ćmić i Jako Integer
i = (0)
mysql = ""

Z Me.Combo1 'Zmiana twój combobox imię
        .SetFocus
        Dla i = (0) .ListCount - (1)
        cboval =. Kolumna ((0), i)
        Jeżeli mysql = "" Wtedy
        mysql = mysql & ""table1.CUSTOMERNAME =" & cboval & "" "'zmiana table1 twój stołowy/zapytanie imię i zmiana customername twój szpaltowy imię
        Inny
        mysql = mysql & ""LUB table1.CUSTOMERNAME =" & cboval & "" "'zmiana table1 twój stołowy/zapytanie imię i zmiana customername twój szpaltowy imię

        Kończyć Jeżeli
             
        Następnie i
        mysql = "WYBIÓRKA * OD Table1 DOKĄD" & mysql & "; " 'zmiana table1 twój stołowy/zapytanie imię - zmieniać cutormername twój szpaltowy imię "
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
   
    Końcówka Z

'--------------końcówka kod dwa
Inne rozwiązania  
 
programming4us programming4us