Discussion :

[Phrederik]

Bonjour,
j'ai besoin de votre aide pour definir une syntaxe correct pour une commande Docmd.openform.

j'ai essayé tout ce que je connait comme methode possible (bref pas grand chose lol) mais pas moyen de filtrer mon formulaire comme je le desire.
A mon avis ça doit etre tout con mais bon ... je debut en vba.

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Commande19_Click()
If RechercheForm = Null Then
Else
Recherche = "([SF FRecherche].[Nomcommerce] Like ""*" & RechercheForm & "*"")"
DoCmd.OpenForm "SF_FRecherche", acNormal, "Recherche"
End If
End Sub

RechercheForm fait reference a un objet independant.
Le but est donc de faire une recherche sur ma table et d'afficher les reponses qui contienne RechercheForm.

Pouvez-vous m'aider ?

Merci d'avance

[Qwazerty]

Salut
Je ne suis pas du tout spécialiste Access, mais par contre en VBA pure, je peux dire que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF_FRecherche", acNormal, "Recherche"

n'est pas correct, si tu fais référence a une variable, il ne faut pas la mettre entre quottes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF_FRecherche", acNormal, Recherche

[Edit]
De plus le nom de ta feuille semble changer entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[SF FRecherche].[Nomcommerce]

SF [espace] FRecherche
Et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenForm "SF_FRecherche"

[/Edit]
++
Qwaz

[Phrederik]

Bonjour,

Effectivement une erreur de ma part.
J'ai modifié mon code, actuellement le formulaire s'ouvre mais le filtre n'est pas utilisé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande19_Click()
If RechercheForm = Null Then
Else
Recherche = "([Nomcommerce] Like ""*" & RechercheForm & "*"")"
DoCmd.OpenForm "SF FRecherche", acFormDS, Recherche
MsgBox Recherche
End If
End Sub
 
Private Sub Form_Load()
Recherche = ""
Connecté = Utilisateurconnect
ActuForm = 0
End Sub
Private Sub Form_Timer()
If ActuForm = 1 Then
ActuForm = 0
ListeClient.Requery
ListeRDV.Requery
ListeDateImportante.Requery
End If
End Sub

Quand je mes un MsgBox sur le load de mon formulaire de recherche il m'affiche une boite de dialogue vide (donc filtre non transmit.
Une idée ?

[Qwazerty]

Salut
Ce que tu envoie avec recherche ne ressemble pas a un filtre mais plutôt a une condition Where.
Essai comme ça plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF FRecherche", acFormDS,ConditionWhere:=Recherche

++
Qwaz

[Oliv'83]

Je ne suis absolument pas spécialistes non plus mais essaye juste de rajouter une virgule dans ta commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF FRecherche", acFormDS,, Recherche

Bonne journée

Oliv'

[Phrederik]

Alors !!

Salut
Ce que tu envoie avec recherche ne ressemble pas a un filtre mais plutôt a une condition Where.
Essai comme ça plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF FRecherche", acFormDS,ConditionWhere:=Recherche

++
Qwaz

Ceci ne marche pas, apparement ce n'est pas la bonne syntax, il me dit que j'ai mal utilisé la propriete mais c pas grave parce que la methode de Oliv'83 marche impec !!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "SF FRecherche", acFormDS,, Recherche

Je vous remercie tout les 2 pour votre aide.
Ouff !!
Juste une question, j'ai l'intention (pour plus de visibilité) de mettre le formulaire de recherche en Sous-Formulaire.
Comment pui-je appliquer cette condition a un sous formulaire ?

[Oliv'83]

Tant mieux si j'ai pu t'aider.

Pour ta dernière question regarde cette discussion qui doit répondre en partie à ta question.

http://www.developpez.net/forums/d97...us-formulaire/

Et si tu as tes réponses n'oublies pas de signaler que ta question est résolue et cliquant sur cela facilite les recherches des autres et la gestion du site.

A bientôt peut être

Oliv'