Discussion :

[Alsvghn]

Bonjour,

Je me permets de vous exposer mon problème après ne pas avoir trouvé de réponse dans vos discussions précédentes.

Je suis actuellement en train de coder un moteur de recherche pour une base de données contenant pas loin de 36000 contrats.

Grâce au tutoriel présent sur le site j'ai pu créer mon formulaire F_Recherche et afficher des résultats dans une zone de liste (listbox) du nom de lst_resultat.

J'aimerais maintenant pouvoir double cliquer sur un résultat de cette liste pour que ça ouvre mon deuxième form (F_InfosContrat) pour y retrouver toutes les informations relatives au contrat sélectionné réparties dans différentes tables toutes reliées par le champ ID_SOR.

Je sais que je dois me servir de DoCmd.OpenForm mais je n'arrive pas obtenir de résultat...

Le code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Private Sub cmd_recherche_Click()
 
    Dim strTable As String, strField As String, strCriteria As String, strSql As String
    Dim Criter As Variant
 
    If Me.listbox_search = "Numéro de contrat" Then
 
    Debug.Print Me.listbox_search
 
    strTable = "AFN_LOT0"     
    strField = "NUMERO"         
 
 
    strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
 
    ' construction de la requête sql
    strSql = "SELECT DISTINCTROW " & strTable & "." & strField & "," & strTable & ".FORMULE," & strTable & ".DATE_EFFET," & strTable & ".DATE_ECHEANCE," & strTable & ".ETAT," & strTable & ".CODE_RESILIATION," & strTable & ".DATE_RESIL," & strTable & ".DATE_OPERATION"
    strSql = strSql & " FROM " & strTable
    strSql = strSql & " WHERE " & strCriteria & ";"
 
 
    Me.lst_resultat.RowSource = strSql  
    Me.lst_resultat.Requery             
 
 
    ElseIf Me.listbox_search = "Nom Prénom souscripteur" Then
 
        Debug.Print Me.listbox_search
 
        strSql = " SELECT DISTINCTROW AFN_LOT0.ID_SOR, TITRE_LOT0.LIBELLE_TITRE, PERSONNE_LOT0.NOM, PERSONNE_LOT0.PRENOM, AFN_LOT0.NUMERO, ENTITE_PRODUIT_LOT0.CODE_PRODUIT, AFN_LOT0.FORMULE, AFN_LOT0.DATE_EFFET, AFN_LOT0.DATE_ECHEANCE, AFN_LOT0.ETAT, ETAT_POLICE_LOT0.LIBELLE_ETAT, AFN_LOT0.CODE_RESILIATION, MOTIF_RESIL_LOT0.RESILIATION_LIB, AFN_LOT0.DATE_RESIL, AFN_LOT0.DATE_OPERATION"
        strSql = strSql & " FROM ENTITE_PRODUIT_LOT0"
        strSql = strSql & " INNER JOIN (TITRE_LOT0 INNER JOIN (PERSONNE_LOT0 INNER JOIN (MOTIF_RESIL_LOT0 INNER JOIN (ETAT_POLICE_LOT0 INNER JOIN AFN_LOT0 ON ETAT_POLICE_LOT0.ETAT=AFN_LOT0.ETAT) ON MOTIF_RESIL_LOT0.CODE_RESILIATION=AFN_LOT0.CODE_RESILIATION) ON PERSONNE_LOT0.ID_CLIENT=AFN_LOT0.ID_CLIENT) ON TITRE_LOT0.ID_TITRE=PERSONNE_LOT0.ID_TITRE) ON ENTITE_PRODUIT_LOT0.ID_PRODUIT=AFN_LOT0.ID_PRODUIT"
        strSql = strSql & " WHERE PERSONNE_LOT0.NOM LIKE """ & Me.txt_critere & """;"
 
        Me.lst_resultat.RowSource = strSql  
        Me.lst_resultat.Requery             
 
    End If
 
End Sub

J'ai tenté de faire ça mais ça n'ouvre qu'un formulaire avec rien dans la listbox

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub lst_resultat_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
Dim Selection As String
 
Selection = lst_resultat.Value
stLinkCriteria = "[ID_SOR] =" & Selection
 
DoCmd.OpenForm "F_InfosContrat", , , stLinkCriteria
End Sub

Merci par avance de votre aide !

[marot_r]

Tu es proche :

Code :

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

stLinkCriteria = "[ID_SOR] =" & me.TonChampId

où TonChampId est le champ qui identifie l'enr qui t'intéresse.

A+

[Alsvghn]

Merci de ton aide!

Mais j'ai finalement préféré transférer l'ID qui m'intéresse à l'aide de OpenArgs que je pourrai réutiliser dans me requêtes.


Pour ceux que ça intéresse,

Dans mon premier formulaire, j'écris cette ligne qui m'ouvre mon 2nd formulaire à l'aide de l'event DblClick :

Code :

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

1
2
3
Private Sub lst_resultat_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_InfosContratAUTO", acNormal, , , , , Me.lst_resultat.Value
End Sub

Où Me.lst_resultat.Value est la valeur de la première colonne de la ligne sur laquelle l'utilisateur double-clique.

Dans mon seconde formulaire, j'appelle cette valeur à l'aide de ce bout de code :

Code :

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

Me.OpenArgs