Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Trier et afficher que les champs remplis uniquement

Trier et afficher que les champs remplis uniquement

8 réponses
Avatar
Cinémas Décavision
Bonjour Amis pros d'A2K sp3

J'ai un bouton de commande qui me trie des champs dont certains ne sont pas
encore remplis..
Je voudrais voir dans mon formulaire que les champs ou il y a quelque chose
dedans pas les champs vides...
Est-ce possible ? Avec vous tout est possible, donc merci de m'aider dans
mon code( Je ne connais Rien au VBA, mais travaille avec des copier/coller
et beaucoups d'essais !

Si vous pouviez me transformer ce code (qui marche, mais pas comme je
voudrais) pour trier et afficher que les champs remplis uniquement ...
Grand merci à tous.
Bernard
_________________________________________________________________

Private Sub Commande25_Click()
'Pour TRIER par film Arret ou Départ
Dim criteria$, d

Application.Forms(FRM_Films).orderby = "[Film_Info]"
Application.Forms(FRM_Films).OrderByOn = True
Application.Forms(FRM_Films).Recordset.FindFirst criteria = "*"

End Sub
_______________________________________________________________
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36

pdg@decavision.fr
http://www.decavision.com/
Signaler un problème avec ce contenu

8 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
Eric
Bonjour Bernard,

Pourquoi ne pas mettre dans la requête sous-jacente au formulaire sur le
champ [Film-Info] en critère Est Pas Null ?
Inconvénient : tu n'affiches que les films pour lesquels le champ
[Film-Info] est renseigné. Peut-être que ça ne correspond pas à ton besoin.

Cinémas Décavision a écrit :
Bonjour Amis pros d'A2K sp3

J'ai un bouton de commande qui me trie des champs dont certains ne sont pas
encore remplis..
Je voudrais voir dans mon formulaire que les champs ou il y a quelque chose
dedans pas les champs vides...
Est-ce possible ? Avec vous tout est possible, donc merci de m'aider dans
mon code( Je ne connais Rien au VBA, mais travaille avec des copier/coller
et beaucoups d'essais !

Si vous pouviez me transformer ce code (qui marche, mais pas comme je
voudrais) pour trier et afficher que les champs remplis uniquement ...
Grand merci à tous.
Bernard
_________________________________________________________________

Private Sub Commande25_Click()
'Pour TRIER par film Arret ou Départ
Dim criteria$, d

Application.Forms(FRM_Films).orderby = "[Film_Info]"
Application.Forms(FRM_Films).OrderByOn = True
Application.Forms(FRM_Films).Recordset.FindFirst criteria = "*"

End Sub
_______________________________________________________________



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Cinémas Décavision
Merci Eric,
Mais j'ai une dizaine de tri différent et il me faut une Rq qui montre TOUT
sauf dans le cas annoncé...
Une autre piste SVP.
Mais MERCI pour la réponse.

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/
Avatar
Eric
re,

Alors il te faut définir un filtre dans cette procédure
Private Sub Commande25_Click()
'Pour TRIER par film Arret ou Départ
Dim criteria$, d

Me.Filter ="[Film_Info] is not Null"
Me.FilterOn=True
Application.Forms(FRM_Films).orderby = "[Film_Info]"
Application.Forms(FRM_Films).OrderByOn = True
Application.Forms(FRM_Films).Recordset.FindFirst criteria = "*"

End Sub

et tu devras mettre, sur les autres boutons qui permettent de trier sur
les autres champs, avant la définition du tri, ainsi que sur le bouton
d'annulation des tris si tu en as un :

Me.FilterOnúlse

Ca donnerait :
Private Sub Commande26_Click()
'Pour TRIER par réalisateur ' c'est un exemple
Dim criteria$, d

Me.FilterOnúlse ' <---------
Application.Forms(FRM_Films).orderby = "[Realisateur]"
Application.Forms(FRM_Films).OrderByOn = True
Application.Forms(FRM_Films).Recordset.FindFirst criteria = "*"

End Sub

A tester

Cinémas Décavision a écrit :
Merci Eric,
Mais j'ai une dizaine de tri différent et il me faut une Rq qui montre TOUT
sauf dans le cas annoncé...
Une autre piste SVP.
Mais MERCI pour la réponse.

Bernard




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Cinémas Décavision
Merci ERIC ^pour ta réponse,
Je vais essayer cela de suite, mais à première vue dans le :
Me.Filter ="[Film_Info] is not Null"
le Me. n'est pas bon, car c'est un autre formulaire qui me commande tout
cela (Pour gagner de la place sur l'interface principale...)
je le transformerait donc en :

Application.Forms(FRM_Films).Film_Info] is not Null"

et je reviens pour dire si cela fonctionne...

Merci beaucoup à Eric et à tous ceux qui m'ont lu.

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/
Avatar
Eric
Re,

Il faudra alors peut-être mettre :
Application.Forms(FRM_Films).Filter="[Film_Info] is not Null"
Application.Forms(FRM_Films).FilterOn=True

Cinémas Décavision a écrit :
Merci ERIC ^pour ta réponse,
Je vais essayer cela de suite, mais à première vue dans le :
Me.Filter ="[Film_Info] is not Null"
le Me. n'est pas bon, car c'est un autre formulaire qui me commande tout
cela (Pour gagner de la place sur l'interface principale...)
je le transformerait donc en :

Application.Forms(FRM_Films).Film_Info] is not Null"

et je reviens pour dire si cela fonctionne...

Merci beaucoup à Eric et à tous ceux qui m'ont lu.

Bernard




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Cinémas Décavision
Re-Bonjour Eric,

cela ne va toujours pas alors je contourne le problème...

Peux tu m'éclairer si tu connais (déjà vu... Mais ou ?) le trie dans l'autre
sens dans cette ligne là je crois !!!

Application.Forms(FRM_Films).OrderByOn = True

Merci de tout ce temps passé avec un nul...
Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/
Avatar
Eric
Tu as essayé ma dernière proposition ?
Si ça ne marche pas, quel message d'erreur as-tu ?

Sinon, pour le tri décroissant, il faut mettre :
Application.Forms(FRM_Films).OrderBy = "[Film_Info] Desc"
Application.Forms(FRM_Films).OrderByOn = True

Cinémas Décavision a écrit :
Re-Bonjour Eric,

cela ne va toujours pas alors je contourne le problème...

Peux tu m'éclairer si tu connais (déjà vu... Mais ou ?) le trie dans l'autre
sens dans cette ligne là je crois !!!

Application.Forms(FRM_Films).OrderByOn = True

Merci de tout ce temps passé avec un nul...
Bernard




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Avatar
Cinémas Décavision
MERCI avec TRI descendant c'est super et cela va bien...!.

Merci pour tout...
Désolé pour le mauvais élève que je suis, mais trop de boulot pour tout
connaitre sur Access.
à+

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36


http://www.decavision.com/