Erreur Synthaxe code sur

Bonjour le forum
Sur une Boite de dialogue qui permet de selectionner touts les Etats,

Code:

---

1 2 3 4 5

For Each rpt In Application.CurrentProject.AllReports if strChaine = String(Len(rpt.Name <> "K*") strChaine Then   Next rpt Me.Liste1.RowSource = strChaine

---

J' ai une erreur se synthaxe sur la ligne lui demandant de ne pas afficher les Etats commencant par K, mais sij' occulte l' erreur, mon formulaire s' ouvre et le resultat est ok.
Merci d' avance pour toute aide pour m' aide à modifié le code
Aladin

Bonjour,

Tu as deux parenthèses ouvrantes, mais une seule fermante !

Pour les états commençant par K :

Code:

---

1 2 3

if Left(rpt.Name, 1) = "K" Then .....

---

Bonjour pc75 et le froum
Effectivement j' ai vu le pb des paranthes, avec ton bout de code, j' ai dapaté
mon code et cela me donne et le test est OK

Code:

---

1 2 3 4 5 6 7

For Each rpt In Application.CurrentProject.AllReports   If Left(rpt.Name, 1) <> "K" Then strChaine = rpt.Name & ";" & strChaine End If Next rpt Me.Liste1.RowSource = strChaine

---

Merci à toi de m' avoir répondu et boone journée
Aladin