Discussion :

[Aladin_23]

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

Code :

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

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

[pc75]

Bonjour,

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

Pour les états commençant par K :

Code :

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

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

[Aladin_23]

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 :

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

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