Question : Comment obtenir la valeur

J'ai le datacombo avec Group_Name
What que je veux est quoi que des données dans le datacombo, comment peux j'obtenir un Group_Name dans le variable
T_Gname =
class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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

>If " de l'id= " codeSnippet778884 de 0 puis Pour le Gi = 1 à GName.RecordCount GCount = Val (DataCombo4.text) + 1 Chromatographie gazeuse = DataCombo4.text + Chr (DataCombo4.text) Prochain Gi Finir si Sortir le sous-marin

class= de

Réponse : Comment obtenir la valeur

l'ok là sont quelques manières de faire ce que je pense que vous voulez faire.  

1 : le prob la manière d'easist est d'employer un rapport au lieu d'une forme.

2 : si vous allez employer une forme dans l'événement d'onclick de votre bouton vous pouvez employer un de ces deux ensembles de code.

'------------------coder un -----placer dans le votre cliquent dessus l'événement
Obscurcir la réponse comme corde
Obscurcir le mysql comme corde
Obscurcir cboval comme corde
Obscurcir I comme nombre entier
i = 0
Avec 'changement Me.Combo1 à votre nom de combobox
        .SetFocus
        Pour I = 0 à .ListCount - 1
     cboval =. Colonne (0, i)
    réponse = MsgBox (« disques d'impression pour » et Me.Combo1.Column (0, i) et « ?  », vbYesNo)
    Si réponse = puis vbYes
            le mysql = « CHOISISSENT * À PARTIR de Table1 OÙ table1.CUSTOMERNAME = » et « «  » et cboval et «  » « et » ; « le 'changement table1 à votre nom de table/question - changer le cutormername en votre nom de colonne »
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
            Finir si
        Après i
    Extrémité avec



'-------------------fin du code un-------------------
ou vous pourriez employer le code ci-dessous à la place

'--------------endroit du code deux dans dessus l'événement de cliquer de votre bouton
Faible réponse comme corde
Faible mysql comme corde
Faible cboval comme corde
Obscurcir I comme nombre entier
i = 0
mysql = ""

Avec 'changement Me.Combo1 à votre nom de combobox
        .SetFocus
        Pour I = 0 à .ListCount - 1
        cboval =. Colonne (0, i)
        Si mysql = puis ""
        mysql = mysql et « « table1.CUSTOMERNAME = » et cboval et «  » « 'changement table1 à votre nom de table/question et à customername de changement à votre nom de colonne
        Autrement
        mysql = mysql et « « OU table1.CUSTOMERNAME = » et cboval et «  » « 'changement table1 à votre nom de table/question et à customername de changement à votre nom de colonne

        Finir si
             
        Après i
        le mysql = « CHOISISSENT * À PARTIR de Table1 OÙ » et mysql et « ;  » le 'changement table1 à votre nom de table/question - changer le cutormername en votre nom de colonne "
            Me.Form.RecordSource = mysql
            acCmdPrint de DoCmd.RunCommand
   
    Extrémité avec

'--------------fin du code deux