Frage : Wie man Wert erhält

Ich habe datacombo mit Group_Name
What, das ich bin wünsche, was auch immer Daten im datacombo, wie ich Group_Name im variable
T_Gname =
eins nach dem anderen erhalten kann 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

If GName.State = 1 dann GName.Close
        
        GName.Open „auserwählter Name von den Gruppen bestellen namentlich“, Betrug, das adOpenKeyset, adLockOptimistic

        Wenn GName.RecordCount > 0 dann
        
            Für Gi = 1 zu GName.RecordCount

                GCount = Val (DataCombo4.text) + 1
                Gaschromatographie = DataCombo4.text + Chr (DataCombo4.text)
            Folgender Gi
                        
        Beenden wenn
    Unterseeboot herausnehmen

Antwort : Wie man Wert erhält

O.K. dort sind einige Weisen, zu tun, was ich denke, dass Sie tun möchten.  

1: prob die easist Weise ist, einen Report anstelle von einer Form zu verwenden.

2: wenn Sie eine Form im onclick Ereignis Ihres Knopfes benutzen werden, können Sie eine dieser zwei Zeichnefolgen benutzen.

'------------------ein kodieren -----in Ihr legen klicken an Ereignis
Antwort als Schnur verdunkeln
Mysql als Schnur verdunkeln
Cboval als Schnur verdunkeln
I als ganze Zahl verdunkeln
I = 0
Mit 'Änderung Me.Combo1 an Ihrem combobox Namen
        .SetFocus
        Für i = 0 zu .ListCount - 1
     cboval =. Spalte (0, i)
    Antwort = MsgBox („Druckaufzeichnungen für“ u. Me.Combo1.Column (0, i) u. „? “, vbYesNo)
    Wenn Antwort = vbYes dann
            mysql = „* VON Table1 IN DEM table1.CUSTOMERNAME =“ u. „„“ u. cboval u. „“ „u.“ VORWÄHLEN; „'Änderung table1 an Ihrem Tabellen-/Fragennamen - cutormername zu Ihrem Spaltennamen ändern“
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
            Beenden wenn
        Zunächst I
    Ende mit



'-------------------Ende von Code einer-------------------
oder Sie konnten den below Code anstatt verwenden

'--------------Platz des Codes zwei im an klickenereignis Ihres Knopfes
Schwache Antwort als Schnur
Schwaches mysql als Schnur
Schwaches cboval als Schnur
I als ganze Zahl verdunkeln
I = 0
mysql = ""

Mit 'Änderung Me.Combo1 an Ihrem combobox Namen
        .SetFocus
        Für i = 0 zu .ListCount - 1
        cboval =. Spalte (0, i)
        Wenn mysql = "" dann
        mysql = mysql u. „„table1.CUSTOMERNAME =“ u. cboval u. „“ „'Änderung table1 an Ihrem Tabellen-/Fragennamen und am Änderung customername zu Ihrem Spaltennamen
        Sonst
        mysql = mysql u. „„ODER table1.CUSTOMERNAME =“ u. cboval u. „“ „'Änderung table1 an Ihrem Tabellen-/Fragennamen und am Änderung customername zu Ihrem Spaltennamen

        Beenden wenn
             
        Zunächst I
        mysql = „* VON Table1 IN DEM“ u. mysql u. „VORWÄHLEN; “ 'Änderung table1 an Ihrem Tabellen-/Fragennamen - cutormername zu Ihrem Spaltennamen ändern "
            Me.Form.RecordSource = mysql
            DoCmd.RunCommand acCmdPrint
   
    Ende mit

'--------------Ende von Code zwei
Weitere Lösungen  
 
programming4us programming4us