[Formulaire][VBA]morceau de code qui ne fonctionne pas

Salut tt le monde !
j'ai un bout de code qui marche pas:oops: (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:

---

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 !!:D

Salut,

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

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:

---

Select Case somme_Test2.[SommeDeF1]

---

A quoi correspond somme_Test2.[SommeDeF1] ??

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

(meme concept avec somme_Test1)

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:

---

Select Case Me.Monchamp

---

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

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

Code:

---

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...

Citation:

---

Envoyé par Kikof

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:

---

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

j'ai fais ça :

Code:

---

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

T'y es presque ;)

Code:

---

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

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