Discussion :

[porci82]

Rebonjour a tous.
me revoila

Voici ma requette:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT TableCircuit.ID_CIRCUIT, TableEBNO.EBNO, TableEBNO.DATE_EBNO, TableEBNO.STANDARD_EBNO
FROM TableCircuit, TableEBNO INNER JOIN ((TableCarrier INNER JOIN TableCarrierEBNO ON TableCarrier.ID_CARRIER = TableCarrierEBNO.IDX_CARRIER) INNER JOIN TableModem ON TableCarrier.ID_CARRIER = TableModem.IDX_TYPE_REMOTE_RX) ON TableEBNO.ID_EBNO = TableCarrierEBNO.IDX_EBNO;

Voici le résultat de la requête:


Le souci est que je dois remplir 10 TextBox DATE_EBNO, 10 EbNo, 10 STANDARD_EBNO afin de faire un historique.
j'ai donc codé comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    With oRsEbNoData
      .Open strSqlEbNoData, CurrentProject.Connection, adOpenForwardOnly, _
                  adLockReadOnly, adCmdText

      'si il n'est pas vide
      If Not (.EOF And .BOF) Then
        'Remplissage des TextBox
        TxtEbNoHistoryDate1 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo1 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo1 = NullToEmptyString(!STANDARD_EBNO)
        TxtEbNoHistoryDate2 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo2 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo2 = NullToEmptyString(!STANDARD_EBNO)

        etc jusqu'a 10        

       End If 'Not (.EOF And .BOF)
       
     End With 'oRsEbNoLeukTx

mais ça me sort ça:


soit tjr les mêmes enregistrements...
comment faire pour les sortir ligne par ligne?
je pensais qu'Access fonctionnait sequentiellement, apparement non...

merci d'avances, a bientot

[Invité]

Bonjour

Dans ton code tu n'affiches que le premier enregistrement, il faut que tu parcours ton recordset, dans une boucle.

Pour passer au recordset suivant utilise Move.Next, met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oRsEbNoData.MoveNext

entre chaque changment de numéro pour voir.

Starec

[neuropathie]

tu fais un count() de ton recordset, et tu boucles sur le nombre qui t'est retourné.

[porci82]

Un grand merci pour tout.
j'ai réussi sans boucle, ça va nickel..
sauf que j'aimerais si possible classer par date!
Je me demande si j'ai pas interet a faire un sous-formulaire?
mais mon problème est que je dois afficher sur la même fenetre, les 10 information dateEbNo, EBNO, STANDARD_EBNO, mais ces valeurs sont différentes suivant la provenance. et cest la que le souci se pose, car j'ai un ComboBox qui contient cette fameuse provenance.
Actuellement, comme c'est la, ça fonctionne sans autres avec mon comboBox, mais si je passe en formulaire, ça jouera plus?

merci pour tout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
With oRsEbNoData
      .Open strSqlEbNoData, CurrentProject.Connection, adOpenForwardOnly, _
                  adLockReadOnly, adCmdText
 
      'si il n'est pas vide
      If Not (.EOF And .BOF) Then
        'Remplissage des TextBox
        TxtEbNoHistoryDate1 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo1 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo1 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate2 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo2 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo2 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate3 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo3 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo3 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate4 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo4 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo4 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate5 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo5 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo5 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate6 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo6 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo6 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate7 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo7 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo7 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate8 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo8 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo8 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate9 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo9 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo9 = NullToEmptyString(!STANDARD_EBNO)
 
      'On va sur la prochaine entrée du Recordset
      oRsEbNoData.MoveNext
        TxtEbNoHistoryDate10 = NullToEmptyString(!DATE_EBNO)
        TxtEbNoHistoryEbNo10 = NullToEmptyString(!EbNo)
        TxtEbNoHistoryStdEbNo10 = NullToEmptyString(!STANDARD_EBNO)
 
       End If 'Not (.EOF And .BOF)
 
     End With 'oRsEbNoData

sacré casse tête quand même ce access