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
|
Public Sub ProcHelp()
Dim strSource As String 'Table source de données
Dim strSQLsrce As String 'le SQL des données ci dessus
Dim rstSource As DAO.Recordset ' le rst de la source
Dim nbIteration As Integer 'c'est les ROUTEURS 0 à 3 par exemple
Dim i As Integer
Dim strCritere As String 'le critère de la requête
Dim strChamp As String ' le champ sur lequel porte le critère
strSource = "0000TableArticle" ' paramétrable ou fourni par un formulaire tableau ou autre gadget
strChamp = "[0000NomChamp]" 'paramétrable aussi, penser aussi à fields(index)
strCritere = "ROUTEUR"
strSQLsrce = "Select * From " & strSource _
& " Where " & strChamp & " = " & Chr(34) & strCritere & Chr(34) '& " And champNum = " & lannee" dans le cas d'autre citère numérique
Debug.Print strSQLsrce
Set rstSource = CurrentDb.OpenRecordset(strSQLsrce, dbOpenDynaset)
'tester le nombre d'enregistrement renvoyé par le recordset
nbIteration = 3
If (rstSource.RecordCount > 0) Then
rstSource.MoveFirst
While Not rstSource.EOF
For i = 0 To nbIteration ' peut être donné en paramètre exemple sub ProcHelpParam(nbIteration as integer)
Debug.Print rstSource.Fields(strChamp) & CStr(i) ' concaténer deux texte
' là cela dépend de ce que tu veux faire
' et puis examine le cas ou tu as plusieurs "ROUTEURS" like routeur*
Next i
rstSource.MoveNext
Wend
End If
End Sub |
