OVH Cloud OVH Cloud

ApplyFilter - les controlent disparaissent

2 réponses
Avatar
Michel Pellegrini
Sur mon formulaire, j'ai un bouton qui, sur
un clic, exécute cette prcédure:

Private Sub Bouton_Click()

'...
DoCmd.ApplyFilter , "[Couleur] = 'bleu'"
'...

End Sub

Si le mot "bleu" est présent deux fois, ça filtre
correctement, mon formulaire présente les deux
enregistrements. Mais, s'il n'y a pas de "bleu",
au lieu de répondre qu'il y a 0 occurence, tous les
contrôles sur le formulaire disparaissent, il reste
seulement le fond coloré du formulaire.

Comment régler ce problème ?

Michel.Pellegrini@Enter-Net.com
Vercheres QC Canada

2 réponses

Avatar
Michel Walsh
Salut,


Est-ce que le formulaire ne permet PAS d'ajouter d'enregistrement?
Si c'est le cas, et qu'il n'y a rien à afficher... rien n'est affiché. Faire
soi même une vérification, quelque chose qui peut ressembler à

If 0 <> DCount("*", "nomDeLaTableIci", "Couleur='bleu' " ) Then

MsgBox ...
Me.FilterOn = False

Else

Me.FilterOnúlse
Me.Filter="Couleur='bleu' "
Me.FilterOn=True

End If



Espérant être utile,
Vanderghast, Access MVP


"Michel Pellegrini" wrote in message
news:%
Sur mon formulaire, j'ai un bouton qui, sur
un clic, exécute cette prcédure:

Private Sub Bouton_Click()

'...
DoCmd.ApplyFilter , "[Couleur] = 'bleu'"
'...

End Sub

Si le mot "bleu" est présent deux fois, ça filtre
correctement, mon formulaire présente les deux
enregistrements. Mais, s'il n'y a pas de "bleu",
au lieu de répondre qu'il y a 0 occurence, tous les
contrôles sur le formulaire disparaissent, il reste
seulement le fond coloré du formulaire.

Comment régler ce problème ?


Vercheres QC Canada




Avatar
Michel Pellegrini
(Michel Walsh)
|> Est-ce que le formulaire ne permet PAS d'ajouter d'enregistrement?
|> Si c'est le cas, et qu'il n'y a rien à afficher... rien n'est affiché.
|> Faire soi même une vérification, quelque chose qui peut ressembler à
|>
|> If 0 <> DCount("*", "nomDeLaTableIci", "Couleur='bleu' " ) Then
|>
|> MsgBox ...
|> Me.FilterOn = False
|>
|> Else
|>
|> Me.FilterOnúlse
|> Me.Filter="Couleur='bleu' "
|> Me.FilterOn=True
|>
|> End If

Ok, merci, je vais me servir de ça. Je ne connaissais ni
Filter, FilterOn ou même DCount().

Par contre, le fait d'indiquer "oui" ou "non" dans les propriétés
du formulaire pour "Entrée données" ne change rien, dans les deux
cas la totalité des contrôles disparaîssent si je filtre sur une
valeur qui n'existe pas.

¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
(Mon message précédent)
|>> Sur mon formulaire, j'ai un bouton qui, sur
|>> un clic, exécute cette prcédure:
|>>
|>> Private Sub Bouton_Click()
|>>
|>> '...
|>> DoCmd.ApplyFilter , "[Couleur] = 'bleu'"
|>> '...
|>> End Sub
|>>
|>> Si le mot "bleu" est présent deux fois, ça filtre
|>> correctement, mon formulaire présente les deux
|>> enregistrements. Mais, s'il n'y a pas de "bleu",
|>> au lieu de répondre qu'il y a 0 occurence, tous les
|>> contrôles sur le formulaire disparaissent, il reste
|>> seulement le fond coloré du formulaire.
|>>
|>> Comment régler ce problème ?
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯


Vercheres QC Canada