Rechercher sur deux champs différents

**lbitane** · 01/04/2020, 23h13

Bonjour à tous,

Je m'arrache betement les cheveux, sans parvenir à trouver une solution.

J'ai une table prospect avec un champ Tel
Une autre table liée à prospect avec des contacts, et des numéros de Tel directs

Sur mon formulaire prospect (qui charge en sous formulaire la table contacts), j'essaie de rechercher un numéro de téléphone aussi bien sur le champ telprospect que sur le champ telcontact

Lorsque je code de manière distincte, tout fonctionne, mais impossible de joindre les deux champs pour la recherche

Quelqu'un a t il une idée SVP?

Je vous joins mon code, le second est bloqué, naturellement

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
'Champs de recherche Tel prospect ou Tel Contact sur la fiche prospect
Private Sub RechTel_AfterUpdate()
Dim x As Variant
x = RechTel
Dim bd As Dao.Database
Set bd = CurrentDb()
Dim rst As Recordset
Dim Chstr As String
    Chstr = "SELECT Contacts.noprospects, Contacts.nocontact, Contacts.TelContact FROM Contacts WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
    'Chstr = "SELECT prospects.noprospects, prospects.TelProspects FROM prospects WHERE ((prospects.TelProspects) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
        Set rst = bd.OpenRecordset(Chstr)
        rst.MoveFirst
        DoCmd.GoToControl "NoProspects"
        DoCmd.FindRecord rst("NoProspects"), , True, , True
 
End Sub

**Zekraoui_Jakani** · 02/04/2020, 07h53

En supposant que x est une constante, remplacer ceci :

Code :

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

"WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"

par cela :

Code :

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

"WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & "'" & x & "'" & Chr(42) & Chr(39) & ");"

**lbitane** · 02/04/2020, 18h25

Salut et merci pour ta réponse, cependant...

Peut etre que je me suis mal exprimé

Ce que je souhaite, c'est que la recherche de x se fasse sur le champ Telprospects du formulaire et également sur la champ telContact du sous formulaire chargé

Les formules rédigées séparément fonctionnent bien
J'ai donc un manque sur la jonction de ces deux formules

**tee_grandbois** · 02/04/2020, 21h47

bonsoir,

J'ai donc un manque sur la jonction de ces deux formules

je ne comprend pas bien la notion de "jonction" mais as-tu essayé d'exécuter les commandes de recherche l'une après l'autre: d'abord le formulaire, ensuite le sous-formulaire ?

**lbitane** · 02/04/2020, 22h08

Bonsoir,

Oui, l'une après l'autre, cela fonctionne

Donc ce code:

Code :

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

Chstr = "SELECT Contacts.noprospects, Contacts.nocontact, Contacts.TelContact FROM Contacts WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"

Et celui ci:

Code :

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

Chstr = "SELECT prospects.noprospects, prospects.TelProspects FROM prospects WHERE ((prospects.TelProspects) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"

fonctionnent séparément

Ce que je voudrais, c'est joindre ces deux codes, afin de pouvoir faire une recherche sur les deux champs

**tee_grandbois** · 03/04/2020, 16h01

bonjour,

Ce que je voudrais, c'est joindre ces deux codes, afin de pouvoir faire une recherche sur les deux champs

à mon avis on ne peut pas: ce sont 2 objets différents un formulaire et un sous-formulaire et 2 sources de données différentes, on ne peut que le faire l'un après l'autre.

Et je ne comprend toujours pas ce que tu entends par "joindre", si c'était possible de faire une recherche dans 2 tables en même temps, cela se saurait

**Didier_BONANSEA** · 03/04/2020, 17h05

Bonjour,

Puisqu'il semble complexe d'effectuer ta requête sur deux tables simultanément (mes connaissances en SQL ne me permettent pas d'infirmer cette affirmation), la solution consiste peut-être à stocker les résultats de la première requête dans une liste quelconque (Dim Res1(1000) as String, par exemple, ou un contrôle de type ListBox masqué sur ton formulaire).
Puis, lorsque tu lances ta seconde requête, tu en compares les résultats avec le contenu de ta liste.

Cordialement,

**Zekraoui_Jakani** · 03/04/2020, 21h40

Je ne vois pas très bien, non plus, mais si tu es familiarisé avec les UNION queries, tu peux en créer une combinant les recordsets des deux formulaires, puis lancer la recherche sur cette UNION query.
Désolé pour les puristes préférant la terminologie française, mais j'ai toujours travaillé avec des versions anglaises de MS-Office.

**lbitane** · 04/04/2020, 20h15

Comment?
Vous voulez dire qu’il n’est pas possible de coder une recherche sur deux champs de tables différentes en sql?
Ca me surprend...

**tee_grandbois** · 04/04/2020, 20h42

il n'est pas possible de faire cela en une seule fois sur 2 tables différentes:

Code :

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

1
2
        DoCmd.GoToControl "NoProspects"
        DoCmd.FindRecord rst("NoProspects"), , True, , True

Access n'est pas multi-tâches et de toute façon le FindRecord recherche le premier enregistrement correspondant au critère
[EDIT] :mise à jour du message

**micniv** · 05/04/2020, 11h27

Salut,
je suppose que bien sur tu as fait une relation entre les tables Prospects et Contacts via noprospects
alors tu peux exploiter simplement la requete :

Code :

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

1
2
3
SELECT prospects.noprospects, prospects.TelProspects,
 Contacts.nocontact, Contacts.TelContact
FROM Prospects LEFT JOIN Contacts ON Prospects.noProspects = Contacts.noProspects

( LEFT JOIN te permet d'avoir les telephones des prospects qui n'ont encore pas de contacts)

cdlt

**lbitane** · 05/04/2020, 19h29

Envoyé par micniv

Salut,
je suppose que bien sur tu as fait une relation entre les tables Prospects et Contacts via noprospects

Salut et merci!
Oui, je te confirme, j'ai bien fait la relation entre les tables prospects et contacts via noprospects.

J'ai renseigné ton code ainsi:

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 RechTel_Click()
On Error Resume Next
Dim x As Variant
x = RechGnl
Dim bd As Dao.Database
Set bd = CurrentDb()
Dim rst As Recordset
Dim Chstr As String
    Chstr = "SELECT prospects.noprospects, prospects.TelProspects, Contacts.nocontact , Contacts.TelContact FROM Prospects LEFT JOIN Contacts ON Prospects.noProspects = Contacts.noProspects WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
        Set rst = bd.OpenRecordset(Chstr)
        rst.MoveFirst
        DoCmd.GoToControl "NoProspects"
        DoCmd.FindRecord rst("NoProspects"), , True, , True
    If NoProspects <> rst("NoProspects") Then
    MsgBox "Pas de Résulat pour votre Recherche"
    End If
RechGnl = ""

Mais cela ne fonctionne pas... aurais je mal écris le code?

**micniv** · 06/04/2020, 09h11

Tu ne fais aucun traitement si noProspects est trouvé

déjà , enleve la ligne 'on error resume next'

est-ce que la requete "SELECT prospects.noprospects, prospects.TelProspects, Contacts.nocontact , Contacts.TelContact FROM Prospects LEFT JOIN Contacts ON Prospects.noProspects = Contacts.noProspects" exécutée directement dans le QBE te donne des résultats ,

si oui ton code peut être simplifié

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
Private Sub RechTel_Click()
'On Error Resume Next

Dim bd As Dao.Database
Dim rst As DAO.Recordset
Dim Chstr As String

Set bd = CurrentDb()
    Chstr = "SELECT prospects.noprospects, prospects.TelProspects, Contacts.nocontact , Contacts.TelContact FROM Prospects LEFT JOIN Contacts ON Prospects.noProspects = Contacts.noProspects WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ") " _
& " AND prospects.noprospects =" & me.NoProspects 
debug.print chstr    ' lire la valeur de chstr dans la fenetre exécution
        Set rst = bd.OpenRecordset(Chstr)
if rst.recordcount = 0 then
MsgBox "Pas de Résultat pour votre Recherche"
else
' les prospect(s)-contact(s) est trouvé
rst.movefirst
rst.movelast
while not rst.eof
'ici traitement des lignes trouvées
...
rst.movenext
wend
end if

cdlt

**micniv** · 06/04/2020, 09h18

dans ton 1er message :

J'ai une table prospect avec un champ Tel
Une autre table liée à prospect avec des contacts, et des numéros de Tel directs
Sur mon formulaire prospect (qui charge en sous formulaire la table contacts), j'essaie...

Or il m'apparait que tu as une relation 1-n de Prospects vers Contacts : donc ce devrait être le form Contacts qui se charge en ss-form de Prospects ?

**lbitane** · 02/06/2020, 14h12

Je viens enfin de trouver une solution à mon souci

Je la poste pour que d'autres puissent en profiter

;-)

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
42
 
    'Recherche Tel
    Private Sub RechTel_AfterUpdate()
            On Error Resume Next
            Dim x As Variant
            x = RechTel
            Dim bd As dao.Database
            Set bd = CurrentDb()
            Dim rst As Recordset
            Dim Chstr As String
            Dim chsts As String
            Dim chstt As String
                'Recherche sur le tel des contacts
                Chstr = "SELECT Contacts.noprospects, Contacts.nocontact, Contacts.TelContact FROM Contacts WHERE ((Contacts.TelContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
                    Set rst = bd.OpenRecordset(Chstr)
                    rst.MoveFirst
                    DoCmd.GoToControl "NoProspects"
                    DoCmd.FindRecord rst("NoProspects"), , True, , True
 
                    'S'il ne trouve rien, recherche sur les tels des prospects
                    If NoProspects <> rst("NoProspects") Then
                    chsts = "SELECT prospects.noprospects, prospects.TelProspects FROM prospects WHERE ((prospects.TelProspects) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
                        Set rst = bd.OpenRecordset(chsts)
                        rst.MoveFirst
                        DoCmd.GoToControl "NoProspects"
                        DoCmd.FindRecord rst("NoProspects"), , True, , True
 
                            'S'il ne trouve rien recherche sur les mobiles des prospects
                            If NoProspects <> rst("NoProspects") Then
                            chstt = "SELECT Contacts.noprospects, Contacts.nocontact, Contacts.MobileContact FROM Contacts WHERE ((Contacts.MobileContact) Like " & Chr(39) & Chr(42) & x & Chr(42) & Chr(39) & ")"
                                Set rst = bd.OpenRecordset(chstt)
                                rst.MoveFirst
                                DoCmd.GoToControl "NoProspects"
                                DoCmd.FindRecord rst("NoProspects"), , True, , True
 
                                    If NoProspects <> rst("NoProspects") Then
                                            MsgBox "Pas de Résulat pour votre Recherche"
                                    End If
                            End If
                    End If
            RechTel = ""     ' permet de remettre le champs à 0
    End Sub

Rechercher sur deux champs différents [AC-2016]

VBA Access

Discussions similaires

Partager

Partager