Discussion :

[Jean-Luc80]

Bonjour
J'ai le code suivant

Code :

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

1
2
3
4
5
6
7
Dim strSQLActeur As String
strSQLActeur = "SELECT acteur,comptedeacteur,Sexe" & _
" FROM ActeursCourants'" & _
" where comptedeacteur=" & DMax("comptedeacteur", "ActeursCourants")
Set orst = CurrentDb.OpenRecordset(strSQLActeur)
ActeurPrésent.Value = orst.Fields("acteur").Value
ActeurPrésentNb.Value = orst.Fields("comptedeacteur").Value

Dans le code strSQLActeur je voudrai ajouter une condition where Sexe="M"
Comment dois-je procéder
J'ai essayé plusieurs syntaxes mais je patauge un peu !
Merci pour vos conseils

[LedZeppII]

Bonjour,

Essaie comme ça

Code :

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

1
2
3
4
5
6
7
8
Dim strSQLActeur As String
strSQLActeur = "SELECT acteur,comptedeacteur,Sexe" & _
" FROM ActeursCourants" & _
" where comptedeacteur=" & DMax("comptedeacteur", "ActeursCourants", "Sexe='M'") & _
" And Sexe='M'"
Set orst = CurrentDb.OpenRecordset(strSQLActeur)
ActeurPrésent.Value = orst.Fields("acteur").Value
ActeurPrésentNb.Value = orst.Fields("comptedeacteur").Value

J'ai ajouté le critère à la fois dans strSQLActeur et dans DMax.

A+

[Jean-Luc80]

Je te remercie beaucoup ça fonctionne
A+