Discussion :

[Milyshyn76]

Bonjour à tous,
Voilà j'ai un petit soucis de rien du tout qui me bouffe la majeur partie de mon temps...

Je gère actuellement une base de donnée de formation de l'entreprise, soit les stages, formations pédagogiques, etc...

J'ai effectuer un petit module qui me permet de mettre à jour les taux de participations des stagiaires...

J'ai créer dans un formulaire, un sous formulaire qui permet de selectionner des stages et donc de sortir un état avec les stages selectionnés (par des cases à cochés)

Code :

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

1
2
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, , "NumStag = " & rst!NumStag & ""

Voici mon code qui me permet d'ouvir l'état..avec la clause where, mais elle ne me resort qu'un stage et nn les stage selectionnés...

merci de votre aide...

[Jean-Philippe André]

Bonjour,
si ton champ SelectTag est type oui/non, la clause s'écrira de la sorte :

Code SQL :

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

WHERE SelectTag=-1

[Milyshyn76]

Non
Cela me resort toujours un seul stage sur 3 stages selectionnés...

[Jean-Philippe André]

Tu ne parcours pas ton recordset, et avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
if not rst.EOF Then
strCriteria = "NumStag=" & rst!NumStag
rst.MoveNext
Do until rst.EOF
strCriteria = strCriteria & " OR NumStag=" & rst!NumStag
rst.MoveNext
End if
 
DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, , strCriteria

[Invité]

Bonjour

Cela est normal, car avec ceci

Code :

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

"NumStag = " & rst!NumStag & ""

tu récupères la valeur du premier enregistrement et non des 3 que dois à priori te retourner ta requête.

Starec

[Milyshyn76]

Oui ma le soucis est que la syntaxe me dit qu'il manque un bloc de if

voici mon code entier :

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
Private Sub bt_apercut_Click()
If Me.selection.Value = -1 Then
DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, , "NumStag = " & ChoixStag & ""
Else
    Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
    If Not rst.EOF Then
    strCriteria = "NumStag=" & rst!NumStag
    rst.MoveNext
    Do Until rst.EOF
    strCriteria = strCriteria & " OR NumStag=" & rst!NumStag
    rst.MoveNext
    End If
 
DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, , strCriteria
'Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=-1")
'DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, , "NumStag = " & rst!NumStag & ""
'DoCmd.OpenReport "RQ_tauxParticipationBispouretat", acViewPreview, "rst"
End If
End Sub

Voilà, pendant ce temps, je cherche de cherche de mon coté ...

Merci quand même...

[Milyshyn76]

Bonjour

Cela est normal, car avec ceci

Code :

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

"NumStag = " & rst!NumStag & ""

tu récupères la valeur du premier enregistrement et non des 3 que dois à priori te retourner ta requête.

Starec

Comment faire alors pour récuperer les trois champs selectionnés ???

[Milyshyn76]

Voici ce que j'ai essayer :

Code :

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

1
2
3
4
5
6
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
    Do While Not rst.EOF
    strCriteria = strCriteria & "AND NumStag=" & rst!NumStag
    rst.MoveNext
    Loop
    Set rst = Nothing

ET

Code :

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

1
2
3
4
5
6
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
    Do While Not rst.EOF
    strCriteria = strCriteria & "OR NumStag=" & rst!NumStag
    rst.MoveNext
    Loop
    Set rst = Nothing

Me ressort une erreur me disant qu'un opérateur était absent..

ENSUITE j'ai repris le code de jpcheck mais j'ai modifier la syntaxte pour parcourir les enregistrements ===>

Code :

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

1
2
3
4
5
6
7
8
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
If Not rst.EOF Then
    strCriteria = "NumStag=" & rst!NumStag
    rst.MoveNext
    ElseIf rst.EOF Then
    strCriteria = strCriteria & " OR NumStag=" & rst!NumStag
    rst.MoveNext
    End If

celle la ne me génère pas d'erreur, en revanche elle resort comme même un enregistrement....

[Milyshyn76]

Encore une autre solution, mais cela ne me retourne même plus d'enregistrement .... :-(

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
    strcriteria = ""
    Do While Not rst.EOF
    strcriteria = strcriteria & " AND NumStag=" & rst!NumStag & ""
    rst.MoveNext
    Loop
    Set rst = Nothing
strcriteria = Mid(strcriteria, 5) ' suppression du premier AND
MsgBox strcriteria

Code :

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

1
2
debug.Print strcriteria
NumStag=2 AND NumStag=3 AND NumStag=4 AND NumStag=5 AND NumStag=65 AND NumStag=66 AND NumStag=69 AND NumStag=70 AND NumStag=71 AND NumStag=683 AND NumStag=684

[Milyshyn76]

WOOOOOOOOW CA MARCHE !!!!

Voici la syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
Set rst = CurrentDb.OpenRecordset("select NumStag from StageSSFormTaux where SelectStag=true")
    strcriteria = ""
    Do While Not rst.EOF
    strcriteria = strcriteria & " OR NumStag=" & rst!NumStag & ""
    rst.MoveNext
    Loop
    Set rst = Nothing
strcriteria = Mid(strcriteria, 5)
MsgBox strcriteria

Parce que têtue comme je suis, je n'avais pas remplacé le AND par OR ....


MERCIIIIIIIIIIIIIIII

[Milyshyn76]

Trop beau pour être vrai il me resort tout les enregistrements sauf le dernier ???? Etrange Non ???

[Invité]

Re

Remplace

Code :

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

1
2
3
4
Do While Not rst.EOF
    strcriteria = strcriteria & " OR NumStag=" & rst!NumStag & ""
    rst.MoveNext
    Loop

par

Code :

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

1
2
3
4
While Not rst.EOF
    strcriteria = strcriteria & " OR NumStag=" & rst!NumStag & ""
    rst.MoveNext
Wend

pour voir.

Starec

[Milyshyn76]

Non, non c'est gentil, mais il me retourne bien les bon enregistrements, certain qu'il ne retourne pas sont en fait des taux de participation non calculés....

Je te remercie ......