Pb de syntaxe VBA avec requete SQL

Bonjour
J'ai le code suivant

Code:

---

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

Bonjour,

Essaie comme ça

Code:

---

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+

Je te remercie beaucoup ça fonctionne
A+