[AC-2010] Docmd.openform, je n'arrive pas a le faire marcher

[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 :

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 :

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 :

DoCmd.OpenForm "SF_FRecherche", acNormal, Recherche

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

Code :

[SF FRecherche].[Nomcommerce]

SF [espace] FRecherche
Et

Code :

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 :

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 :

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 :

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

Bonne journée

Oliv'

[Phrederik]

Alors !!

Envoyé par 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 :

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 :

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'