Discussion :

[zeloutre]

Salut tt le monde !
j'ai un bout de code qui marche pas (c'est sur un bouton de formulaire), probleme de syntaxe peut-etre.. est ce que vous pouvez me dire ce qui cloche ?
somme_Test1 et somme_Test2 , ce sont des requetes avec deux champs chacunes (sommedeF1 et sommedeF2)...

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
Private Sub Commande0_Click()
 
Select Case somme_Test2.[SommeDeF1]
Case Is < somme_Test2.[SommeDeF2]
stDocName = "Ajout_Test2_norm"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Case Is > somme_Test2.[SommeDeF2]
stDocName2 = "Ajout_Test2_invers"
DoCmd.OpenQuery stDocName2, acNormal, acEdit
 
end select 
 
Select Case somme_Test1.[SommeDeF1]
Case Is < somme_Test1.[SommeDeF2]
stDocName = "Ajout_Test1_norm"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Case Is > somme_Test1.[SommeDeF2]
stDocName2 = "Ajout_Test1_invers"
DoCmd.OpenQuery stDocName2, acNormal, acEdit
 
end select
end sub

Merci à qui peut me dire le pourquoi du comment !!

[Lou Pitchoun]

Salut,

Il te manque un End Select et l'autre tu as mis End Case au lieu de End Select.

[zeloutre]

pardon, c'etait une faute de frappe...

quand je lance ce code, la première erreur c'est "'objet requis", et surligne en jaune

Code :

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

Select Case somme_Test2.[SommeDeF1]

[Lou Pitchoun]

A quoi correspond somme_Test2.[SommeDeF1] ??

[zeloutre]

somme_Test2 est une requete dans laquelle se trouve 2 champs : sommedeF1 et sommedeF2

(meme concept avec somme_Test1)

[Lou Pitchoun]

Désolé.. je doute que cela soit possible de faire référence directement aux champ d'une requête.
Il te faut faire référence à ces champs via le formulaire et ainsi obtenir quelque chose du genre :

Code :

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

Select Case Me.Monchamp

Edit : ouvres des recordset pour chaque requête. Et là ça devrait être possible.

[zeloutre]

Ben j'avais fais ça pour tester, sur un formulaire basé sur somme_test1 et ça marchait bien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Select Case Me.SommeDeF1
Case Is < Me.SommeDeF2
stDocName = "Ajout_Test1_norm"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
case is >Me.SommeDeF2
stDocName2 = "Ajout_Test1_invers"
DoCmd.OpenQuery stDocName2, acNormal, acEdit
 
End Select
 
End Sub

ça marchait bien... mais moi je voulais mettre tout dans la foulée ( j'ai aussi somme_test2) et la c'est chaud parce que je peux pas lier le formulaire sur 2 requetes differentes...

[Lou Pitchoun]

Edit : ouvres des recordset pour chaque requête. Et là ça devrait être possible.

Là tu peux faire les deux.
Il suffit juste de positionner les recordsets sur le bon enregistrement, ou alors de filtrer un enregistrement pour chaque requête.

Tu auras ainsi quelque chose du genre :

Code :

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

1
2
3
4
5
6
Dim rstRequete1 As DAO.Recordset
Dim rstRequete2 As DAO.Recordset
 
Set restRequete1 = CurrentDB.OpenRecordset("SQL ou nom requête")
restRequete1.Movefirst 'position sur le 1er enregistrement
Select Case restRequete1![nomChamp]

Cours DAO très utile

[zeloutre]

j'ai fais ça :

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
 
Dim rstRequete1 As DAO.Recordset
Dim rstRequete2 As DAO.Recordset
Set restRequete1 = CurrentDb.OpenRecordset("somme_Test1")
Set restRequete2 = CurrentDb.OpenRecordset("somme_Test2")
restRequete1.MoveFirst 'position sur le 1er enregistrement
Select Case restRequete1![SommeDeF1]
Case Is < SommeDeF2
MsgBox "Bien"
stDocName = "Ajout_Test1_norm"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Case Is > SommeDeF2
MsgBox "Mal"
stDocName2 = "Ajout_Test1_invers"
DoCmd.OpenQuery stDocName2, acNormal, acEdit
End Select
 
Select Case restRequete2![SommeDeF1]
Case Is < SommeDeF2
MsgBox "Bien"
stDocName = "Ajout_Test2_norm"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Case Is > SommeDeF2
MsgBox "Mal"
stDocName2 = "Ajout_Test2_invers"
DoCmd.OpenQuery stDocName2, acNormal, acEdit
End Select

marche po
la première partie oui, mais il merde avec restRequete2 , il me dit objet requis

[Lou Pitchoun]

T'y es presque

Code :

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

1
2
Set restRequete1 = CurrentDb.OpenRecordset("somme_Test1")
Set restRequete1 = CurrentDb.OpenRecordset("somme_Test2")

Y a pas comme un soucis là ???

Ensuite à chaque fois que tu fais référence à un champ de la somme_Test1,
tu dois écrire :
somme_Test1![NomChamp]
Même chose pour somme_Test2

Oublie pas le movefirst pour rstRequete2

[zeloutre]

ça marche !!! j'vais fais une erreur de frappe....
Merci beaucoup de ton aide !