Bouton option dans formulaire liés à une requête

"Marco38" <anonymous@discussions.microsoft.com> écrivait
news:f4d801c43dee$4d911100$a401280a@phx.gbl:

Bonsoir,

J'ai dans une formulaire des critères de sélection pour
lancer un état lié à une requête.

Dans ma requête j'ai le champs calculé suivant :
Décision_Terminée: VraiFaux([Date Échéance]<Date
();Faux;Vrai)

Le champ Décision_Terminée indique dans l'état "Non"
ou "Oui" selon le résultat du calcul.

Dans mon formulaire j'ai crée un cadre option avec les 3
boutons options suivants :

1 Toutes les décisions (critère par défault)
2 décisions terminées (donc "Oui")
3 décisions en cours (donc "Non")

Et la je n'arrive pas à faire la jonction avec ma requête
dans le champs calculé Décision_Terminée pour avoir
uniquement Oui ou Non selon la case cochée, J'ai essayé
dans la zone critère de saisir des formules mais cela ne
fonctionne pas.

Avez vous une solution

Merci
Marc

Bonsoir Marc

C'est le groupe d'options qui prend la valeur 1, 2 ou 3 quand tu cliques
sur une case à cocher.S'il se nomme cadre0,
cadre0 vaut 1 si Tous coché, 2 pour Oui et 3 pour Non
Donc dans ta requete, il faudrait mettre en critere quelque chose du
genre :
VraiFaux(Formulaires!TonFormulaire!Cadre0=2;Vrai;Faux) mais tu ne pourras
jouer que sur le cas Oui et le cas Non car tu travailles sur une
booléenne.

Je pense que si tu as besoin de Visualiser/Editer les Oui, Non et Tous,
je ferai ca en VBA.

la procédure en vba aurait cette forme :
Private Sub Cadre0_AfterUpdate()
Dim strSQL As String, strWhere As String, qry As QueryDef
strSQL = "select * from TaTable "
srWhere = ""
Select Case Cadre0
Case 2
strWhere = "Where Décision_Terminée=true"
Case 3
strWhere = "where Décision_Terminéeúlse"
End Select
strSQL = strSQL & strWhere & ";"
Set qry = CurrentDb.CreateQueryDef("qryTemp", strSQL)
DoCmd.OpenReport "TonEtat", acViewPreview
CurrentDb.QueryDefs.Delete "qryTemp"
Set qry = Nothing
End Sub


Tres important cette requête créée en sql sous vba doit être la source de
ton état donc donnes lui le même nom que celle que tu utilisais
initialement (que tu as au préalable supprimée) avec l'état.

A+
Eric

Re Marc

J'ai oublié de te préciser qu'il te faut la référence Microsoft DAO 3.x
Object Library et prefixe qry comme ca :

Dim qry as DAO.Querydef

Eric

la procédure en vba aurait cette forme :
Private Sub Cadre0_AfterUpdate()
Dim strSQL As String, strWhere As String, qry As QueryDef
strSQL = "select * from TaTable "
srWhere = ""
Select Case Cadre0
Case 2
strWhere = "Where Décision_Terminée=true"
Case 3
strWhere = "where Décision_Terminéeúlse"
End Select
strSQL = strSQL & strWhere & ";"
Set qry = CurrentDb.CreateQueryDef("qryTemp", strSQL)
DoCmd.OpenReport "TonEtat", acViewPreview
CurrentDb.QueryDefs.Delete "qryTemp"
Set qry = Nothing
End Sub


Tres important cette requête créée en sql sous vba doit être la source
de ton état donc donnes lui le même nom que celle que tu utilisais
initialement (que tu as au préalable supprimée) avec l'état.

A+
Eric

Bonjour

Merci pour ta réponse je vais tester

@+
Marc

-----Message d'origine-----
Re Marc

J'ai oublié de te préciser qu'il te faut la référence
Microsoft DAO 3.x

Object Library et prefixe qry comme ca :

Dim qry as DAO.Querydef

Eric

la procédure en vba aurait cette forme :
Private Sub Cadre0_AfterUpdate()
Dim strSQL As String, strWhere As String, qry As
QueryDef

strSQL = "select * from TaTable "
srWhere = ""
Select Case Cadre0
Case 2
strWhere = "Where Décision_Terminée=true"
Case 3
strWhere = "where Décision_Terminée=False"
End Select
strSQL = strSQL & strWhere & ";"
Set qry = CurrentDb.CreateQueryDef("qryTemp",
strSQL)

DoCmd.OpenReport "TonEtat", acViewPreview
CurrentDb.QueryDefs.Delete "qryTemp"
Set qry = Nothing
End Sub


Tres important cette requête créée en sql sous vba
doit être la source

de ton état donc donnes lui le même nom que celle que
tu utilisais

initialement (que tu as au préalable supprimée) avec
l'état.

A+
Eric

.