Trier et afficher que les champs remplis uniquement
8 réponses
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
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
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
End Sub _______________________________________________________________
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
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
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
End Sub _______________________________________________________________
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
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/
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
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
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
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
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
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
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
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
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/
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
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
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
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
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
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/
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
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
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
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
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
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/
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