Trier et afficher que les champs remplis uniquement

Le
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/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #18919971
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
Cinémas Décavision
Le #18919951
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/
Eric
Le #18920141
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
Cinémas Décavision
Le #18922041
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/
Eric
Le #18922291
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
Cinémas Décavision
Le #18922471
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/
Eric
Le #18922461
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
Cinémas Décavision
Le #18922851
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/
Publicité
Poster une réponse
Anonyme