Access : Filtre ne fonctionne pas
Pinay
-
smartway14 Messages postés 857 Date d'inscription Statut Membre Dernière intervention -
smartway14 Messages postés 857 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai un menu qui me permet d'ouvrir divers formulaires :
Client
Devis
...
J'ai deux possibilités d'ouverture pour chaque formulaire :
soit on clique sur le bouton "CmdOuvClients" ou le bouton "CmdOuvDevis" et l'on ouvre le formulaire correspondant vide,
soit on sélectionne dans la liste déroulante "ChoixClient" un "Client" ou dans la liste déroulante "ChoixNuDevis" un "NuDevis" puis on clique sur le bouton "CmdOuvClients" pour ouvrir le formulaire Client filtré sur le Client sélectionné ou le bouton "CmdOuvDevis" pour ouvrir le formulaire Devis filtré sur le NuDevis sélectionné.
Pour le cas Client, tout marche!
Mais alors que j'ai tout fait pareil, pour le cas NuDevis ça marche pas : dans tous les cas mon formulaire s'ouvre à vide.
Sauf si... je fais l'opération suivante : je sélectionne le NuDevis dans la liste déroulante, je clique sur CmdOuvDevis, mon formulaire Devis s'ouvre à vide je l'affiche en mode création, il disparaît alors derrière mon menu (ce qui doit être dû peut-être à la propriété Fen Indépendante "Oui" de tous mes formulaires et à la macro à l'ouverture DoCmd.Maximize pour un affichage en plein écran)
Et là si je clique à nouveau sur CmdOuvDevis, alors le filtre fonctionne et le formulaire affiche le devis correspondant au NuDevis sélectionné.
C'est pas banal hein? Oo
Voici la macro pour ouvrir avec filtre ou sans pour mon bouton CmdOuvClients
Private Sub ComOuvClients_Click()
If Form_F_Menu.ChoixClient <> "" Then
StrFiltre = "NuClient =" & Form_F_Menu.ChoixClient
DoCmd.OpenForm "F_Clients", , , StrFiltre
Else
DoCmd.OpenForm "F_Clients", , , , acFormAdd
End If
End Sub
et celle pour CmdOuvDevis
Private Sub CmdOuvDevis_Click()
If Form_F_Menu.ChoixNuDevis <> "" Then
StrFiltre = "NuDevis =" & Form_F_Menu.ChoixNuDevis
DoCmd.OpenForm "F_Devis", , , StrFiltre
Else
DoCmd.OpenForm "F_Devis", , , , acFormAdd
End If
End Sub
Alors y'a surement un bug lié à une incompatibilité de macro mais laquelle?
Si quelqu'un a une solution à me proposer, je lui dirai merci à vie!
Merci d'avance...
J'ai un menu qui me permet d'ouvrir divers formulaires :
Client
Devis
...
J'ai deux possibilités d'ouverture pour chaque formulaire :
soit on clique sur le bouton "CmdOuvClients" ou le bouton "CmdOuvDevis" et l'on ouvre le formulaire correspondant vide,
soit on sélectionne dans la liste déroulante "ChoixClient" un "Client" ou dans la liste déroulante "ChoixNuDevis" un "NuDevis" puis on clique sur le bouton "CmdOuvClients" pour ouvrir le formulaire Client filtré sur le Client sélectionné ou le bouton "CmdOuvDevis" pour ouvrir le formulaire Devis filtré sur le NuDevis sélectionné.
Pour le cas Client, tout marche!
Mais alors que j'ai tout fait pareil, pour le cas NuDevis ça marche pas : dans tous les cas mon formulaire s'ouvre à vide.
Sauf si... je fais l'opération suivante : je sélectionne le NuDevis dans la liste déroulante, je clique sur CmdOuvDevis, mon formulaire Devis s'ouvre à vide je l'affiche en mode création, il disparaît alors derrière mon menu (ce qui doit être dû peut-être à la propriété Fen Indépendante "Oui" de tous mes formulaires et à la macro à l'ouverture DoCmd.Maximize pour un affichage en plein écran)
Et là si je clique à nouveau sur CmdOuvDevis, alors le filtre fonctionne et le formulaire affiche le devis correspondant au NuDevis sélectionné.
C'est pas banal hein? Oo
Voici la macro pour ouvrir avec filtre ou sans pour mon bouton CmdOuvClients
Private Sub ComOuvClients_Click()
If Form_F_Menu.ChoixClient <> "" Then
StrFiltre = "NuClient =" & Form_F_Menu.ChoixClient
DoCmd.OpenForm "F_Clients", , , StrFiltre
Else
DoCmd.OpenForm "F_Clients", , , , acFormAdd
End If
End Sub
et celle pour CmdOuvDevis
Private Sub CmdOuvDevis_Click()
If Form_F_Menu.ChoixNuDevis <> "" Then
StrFiltre = "NuDevis =" & Form_F_Menu.ChoixNuDevis
DoCmd.OpenForm "F_Devis", , , StrFiltre
Else
DoCmd.OpenForm "F_Devis", , , , acFormAdd
End If
End Sub
Alors y'a surement un bug lié à une incompatibilité de macro mais laquelle?
Si quelqu'un a une solution à me proposer, je lui dirai merci à vie!
Merci d'avance...
A voir également:
- Access : Filtre ne fonctionne pas
- Access appdata - Guide
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- [Access] creer base données client-produits - Forum Programmation