Débutant: Ouvrir formulaire après dble clic sur le résultat d'une liste de zone

**jrogron** · 10/08/2006, 17h04

Bonjour,

Je me suis basé sur le tuto de Caféine pour réalisé un formulaire de recherche multi critères et ça marche nikel maintenant.

Je souhaite maintenant y apporter quelques modifs et c'est là que les problèmes commences lol

Dans ce formulaire recherche je peux rechercher des entreprises en fonction de 5 critères. Dans ma liste de résultat quand je double clic sur un des résultats alors mon formulaire principal s'ouvre avec la fiche de l'entreprise et qu'avec celle ci. Si je souhaite regarder les autres je ne peux pas. Seul la fiche de l'entreprise sélectionné s'ouvre.

Comment puis je changer cela sachant que mon code est le suivant:

Code :

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

1
2
3
4
5
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "Principal", acNormal, , "[Company] = '" & Me.lstResults & "'"
 
End Sub

Merci de votre aide,

Jocelyn

**marot_r** · 10/08/2006, 18h59

C'est tu as un critère qui demande une seule fiche :

DoCmd.OpenForm "Principal", acNormal, , "[Company] = '" & Me.lstResults & "'"

Il suffit de modifier ton critère et tu pourra avoir plusieurs enrs affichés.

un truc du genre :

Code :

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

1
2
 
"[Champ1]=" & critere1 & " AND [Champ2]=" & critere2

eidement si critere1 et 2 sont des chaines il faut mettre des guillemets autours.

A+

**jrogron** · 10/08/2006, 21h55

Mon souci c'est que je veux ouvrir tous mes enregistrements mais voir celui sur lequel je double clic en premier.

Je ne vois pas comment faire.

Jocelyn

**User** · 10/08/2006, 22h17

Slt,

si j'ai bien compris ta demande:

sur double clique tu passe le critère en argument openArg de la méthode OpenForm (dernier argument de la méthode Openform)

Code :

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

1
2
3
4
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.OpenForm "Principal", acNormal, , , , , "[Company] = '" & Me.lstResults & "'"
 
End sub

et sur Open de ton form "Principal":

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
Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset
 
If Nz(Me.OpenArgs, "") <> "" Then 'Si un critère a été passé
Set rs = Me.RecordsetClone
With rs
  .FindFirst Me.OpenArgs 'On cherche le premier record correspondant au critère
  If Not .NoMatch Then 'Si un enregistrement a été trouvé
    Me.Bookmark = .Bookmark
  End If
End With
Set rs = Nothing
End If
 
End Sub

@+

**jrogron** · 10/08/2006, 22h50

Salut User,

Je n'arrive pas avec ta méthode à faire fonctionner l'application.
J'ai des erreurs du type

"Membre de méthode ou de données introuvable" sur .FindFirst et .NoMatch

Je suis perdu,

Jocelyn

**User** · 10/08/2006, 22h59

Rien de grave,

dans le module du formulaire tu fais Outils->référence-> et tu coches Microsoft DAO

et après:

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
Private Sub Form_Open(Cancel As Integer)
Dim rs As DAO.Recordset
 
If Nz(Me.OpenArgs, "") <> "" Then 'Si un critère a été passé
Set rs = Me.RecordsetClone
 
  rs.FindFirst Me.OpenArgs 'On cherche le premier record correspondant au critère
  If Not rs.NoMatch Then 'Si un enregistrement a été trouvé
    Me.Bookmark = rs.Bookmark
  End If
 
Set rs = Nothing
End If
 
End Sub

J'ai viré le with pour plus de lisibilité..

@+

**jrogron** · 10/08/2006, 23h35

Cela fonctionne à 90%, respect user.

Mon souci maintenant c'est que l'appli ne fonctionne pas dans un cas.
Au début mon formulaire sur lequels toutes les entreprises sont enregitrées s'ouvre (1 fiche par entreprise). Je veux donc faire une recherche et je clic donc sur mon bouton "recherche" qui m'ouvre mon formulaire de recherche multi critères. Sur ce formulaire apparait toute les entreprises dans la zone de liste de résultat de recherche car aucun critère n'est activé (ce qui est normal) or c'est ici que j'ai un souci car si je sélectionne une entreprise sans avoir effectué de recherche au préalable alors mon formulaire de principal (fiches des entreprises) s'ouvrira avec pour première fiche (celle ouverte à l'écran) le nom de la première société dans ma zone de liste et non pas celle sur laquelle j'ai cliqué.

Tu as une idée user?

Et merci encore pour ton aide

Jocelyn

**User** · 10/08/2006, 23h46

Pour le cas ou le form s'ouvre sur la 1ère entreprise,
c'est peux être que le critère:

"[Company] = '" & Me.lstResults & "'"

n'est pas bon, donc il reste sur le 1er enrg..

As tu essayé de faire un

debug.print "[Company] = '" & Me.lstResults & "'"

Pour ce cas précis ...

Pour voir la valeur de Me.lstResults

@+

**jrogron** · 11/08/2006, 00h19

Après avoir fait un debug print je m'aperçois ke tout est ok. Ce ke je veux dire c'est que quand je clic sur une société j'ai bien Company = la société que j'ai sélectionné.

C'est vraiment bizarre.

En faite j'ai remarqué que cela fonctionnait que quand je fermais la fenêtre du formulaire principal avant de cliquer sur mon choix dans le formulaire de recherche. Mon problème vient peut être de mon code du bouton recherche?
C'est celui ci:

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
Private Sub Commande910_Click()
On Error GoTo Err_Commande910_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Search"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande910_Click:
    Exit Sub
 
Err_Commande910_Click:
    MsgBox Err.Description
    Resume Exit_Commande910_Click
 
End Sub

Cordialement,

Jocelyn

**jrogron** · 11/08/2006, 13h33

J'ai mis le code suivant pour que cela fonctionne:

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
 
Private Sub Commande910_Click()
On Error GoTo Err_Commande910_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim stDocName2 As String
 
    stDocName2 = "Close"
    stDocName = "Search"
    DoCmd.RunMacro stDocName2
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande910_Click:
    Exit Sub
 
Err_Commande910_Click:
    MsgBox Err.Description
    Resume Exit_Commande910_Click
 
End Sub

Je ne comprends pas pourquoi je suis obligé de fermer mon formulaire principale pour ne plus avoir de problème lorsque je double clic sur un des résultats présent dans ma liste de zone résultat.

Ma question est donc y a t-il un autre moyen de palier à ce problème?

Jocelyn

**User** · 11/08/2006, 16h34

Slt,

Tu as essayé de fermer ton formulaire avant de l'ouvrir:

Code :

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

1
2
3
4
5
6
 
Private Sub lstResults_DblClick(Cancel As Integer)
DoCmd.Close acForm, "Principal"
DoCmd.OpenForm "Principal", acNormal, , , , , "[Company] = '" & Me.lstResults & "'"
 
End sub

@+

**jrogron** · 11/08/2006, 16h52

En effet cela fonctionne. Ta façon de procédé me permet de garder mon formulaire principal ouvert en fond.

Thanks a lot

Débutant: Ouvrir formulaire après dble clic sur le résultat d'une liste de zone

Access

Discussions similaires

Partager

Partager