Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access VBA & filtre

VBA & filtre

3 réponses
Avatar
belok
Salut tous le monde,

J'ai une liste modifiable qui sert de filtre, je voudrais qu'un intitulé
apparaisse et que les légendes disparaisse, s'il ne trouve pas
d'enregistrement.

Quand j'ouvre ce formulaire et que je séléctionne dans ma liste modifiable
un choix qui ne possède pas d'enregistrement, ce que qui doit disparaitre et
apparaitre ne fonctionne pas, si je refait un essai juste après ça
fonctionne ....

BizAArrrrrrr

merci,


Private Sub m2_Change()

Me.Filter = "[A_externe_scategorie] ='" & m2 & "'"

If IsNull([A_primaire_image]) Then

If aa.Visible = True Then
With CodeContextObject
.aa.Visible = False
End With
End If

If bb.Visible = True Then
With CodeContextObject
.bb.Visible = False
End With
End If

If cc.Visible = True Then
With CodeContextObject
.cc.Visible = False
End With
End If

If dd.Visible = True Then
With CodeContextObject
.dd.Visible = False
End With
End If

If ee.Visible = True Then
With CodeContextObject
.ee.Visible = False
End With
End If

If nop.Visible = False Then
With CodeContextObject
.nop.Visible = True
End With
End If

Else

If nop.Visible = True Then
With CodeContextObject
.nop.Visible = False
End With
End If

If aa.Visible = False Then
With CodeContextObject
.aa.Visible = True
End With
End If

If bb.Visible = False Then
With CodeContextObject
.bb.Visible = True
End With
End If

If cc.Visible = False Then
With CodeContextObject
.cc.Visible = True
End With
End If

If dd.Visible = False Then
With CodeContextObject
.dd.Visible = True
End With
End If

If ee.Visible = False Then
With CodeContextObject
.ee.Visible = True
End With
End If

Me.FilterOn = True

End If

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

"belok" a écrit:
J'ai une liste modifiable qui sert de filtre, je voudrais qu'un intitulé
apparaisse et que les légendes disparaisse, s'il ne trouve pas
d'enregistrement.

Quand j'ouvre ce formulaire et que je séléctionne dans ma liste modifiable
un choix qui ne possède pas d'enregistrement, ce que qui doit disparaitre et
apparaitre ne fonctionne pas, si je refait un essai juste après ça
fonctionne ....

Private Sub m2_Change()
Me.Filter = "[A_externe_scategorie] ='" & m2 & "'"



Si m2 est le nom de ta liste... mets ton code dans l'événement "Après mise à jour"


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------
Avatar
belok
tjs le même problème !!

c'est vraiment bizarr !!!


"3stone" a écrit dans le message de
news:3fac1729$0$32215$
Salut,

"belok" a écrit:
J'ai une liste modifiable qui sert de filtre, je voudrais qu'un intitulé
apparaisse et que les légendes disparaisse, s'il ne trouve pas
d'enregistrement.

Quand j'ouvre ce formulaire et que je séléctionne dans ma liste modifiable
un choix qui ne possède pas d'enregistrement, ce que qui doit disparaitre
et

apparaitre ne fonctionne pas, si je refait un essai juste après ça
fonctionne ....

Private Sub m2_Change()
Me.Filter = "[A_externe_scategorie] ='" & m2 & "'"



Si m2 est le nom de ta liste... mets ton code dans l'événement "Après
mise à jour"



--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------






Avatar
belok
Help !!!!

"belok" a écrit dans le message de
news:3facd3a0$0$2047$
tjs le même problème !!

c'est vraiment bizarr !!!


"3stone" a écrit dans le message de
news:3fac1729$0$32215$
Salut,

"belok" a écrit:
J'ai une liste modifiable qui sert de filtre, je voudrais qu'un intitulé
apparaisse et que les légendes disparaisse, s'il ne trouve pas
d'enregistrement.

Quand j'ouvre ce formulaire et que je séléctionne dans ma liste
modifiable


un choix qui ne possède pas d'enregistrement, ce que qui doit
disparaitre


et
apparaitre ne fonctionne pas, si je refait un essai juste après ça
fonctionne ....

Private Sub m2_Change()
Me.Filter = "[A_externe_scategorie] ='" & m2 & "'"



Si m2 est le nom de ta liste... mets ton code dans l'événement
"Après


mise à jour"


--
A+
Pierre (3stone) Access MVP
-------------------------------------------------------
Bien démarrer ? c'est ici http://users.skynet.be/mpfa/
( Je ne réponds pas aux emails qui concernent Access )
-------------------------------------------------------