Discussion :

[pifou25]

Bonjour,

J'ai l'impression d'avoir affaire à un bug car je ne vois pas d'autre explication! tout se passe comme si en pas à pas (F8) le curseur jaune passe par dessus certaines lignes, il exécute tout de travers et j'ai un sous formulaire filtré sur (je sais pas quoi) qui indique 34 enregistrements au lieu de 700 et quelques. pas à pas, ou mode normal, impossible de trouver une erreur voici la proc en question:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Private Sub FilterForm()
If chkActif.Value Then
    sfEmetteur.Form.Filter = "mot_passe<>'" & PASS_VIDE & "'"
Else
    sfEmetteur.Form.Filter = "mot_passe='" & PASS_VIDE & "'"
End If
 
If lstEmetteur.ListIndex > 0 Then _
    sfEmetteur.Form.Filter = sfEmetteur.Form.Filter & " AND Emetteur = '" & lstEmetteur.Value & "'"
 
sfEmetteur.Form.FilterOn = True
sfEmetteur.Form.Requery
 
End Sub

[Invité]

Bonjour pifou25,

Avant d'aller plus loin, n'avez-vous pas remarqué qu'à priori il manque un End if ?

Amicalement

[Tofalu]

Non, il ne manque pas de end if puisque en fait le deuxième if est sur une seule instruction ( _ )

L'erreur vient surement de là

[pifou25]

je n'avais aucune erreur de compilation, il ne manquait donc pas de end if ni de tiret _ dans ma syntaxe.

J'ai réussi à résoudre le problème (mais pas compris le pourquoi) : j'ai réduit la proc à 1 seule ligne:

Code :

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

1
2
3
sfEmetteur.Form.Filter = "mot_passe" & IIf(chkActif.Value, "<>", "=") _
   & "'" & PASS_VIDE & "'" & IIf(lstEmetteur.ListIndex > 0, _
  " AND Emetteur = '" & lstEmetteur.Value & "'", "")

le 'requery' semble inutile (ça met à jour quand même) et le 'Filteron = true' je l'ai enregistré au démarrage du formulaire.