Discussion :

[morobaboumar]

Bonsoir membres du forum,
Voici un code utile dans la recherche multicritère. Ici le lien https://access.developpez.com/faq/?page=SourceDonnee

Méthode 1 :
La propriété RecordSource (Source) permet de spécifier la source des données d'un formulaire.
Le paramètre affecté à la propriété RecordSource (Source) peut être un nom de table, un nom de requête ou une instruction SQL.

Code :

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

Forms![NomFormulaire]![NomSousFormulaire].Form.RecordSource = "SELECT ...."

Méthode 2 :
La propriété SourceObject (ObjetSource) vous permet d'identifier le formulaire ou l'état qui représente la source du sous-formulaire ou du sous-état dans un formulaire ou un état :

Code :

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

Forms![Formulaire]![SousFormulaire].SourceObject = "FormulaireSource"

Voici mon code test:

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
 
Sub RechercheAlphaNumeriqueFR_SFrm()
Dim strSql As String, strWhere As String
strWhere = " AND IdEcole = " & Me.ID_ETABL_FREQ
strWhere = strWhere & " AND AnneeScol = '" & Me.lstAnnee_Evaluation & "'"
strWhere = strWhere & " AND COMPOSITION = " & Me.ListeComposition_Evaluation & ""
strWhere = strWhere & " AND NiveauCompositionFrancais = '" & Me.ListeNiveauEVALUATION & "'"
strWhere = strWhere & " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.Nom_Prenoms_EleveComposant Like '*" & _
Me.TxtRecherche_AlphaNumTbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Text & "*'"
 
strSql = "SELECT NumEnregistreComposant, IdEcole, AnneeScol, NumInsCreleve,Mleeleve, Nom_Prenoms_EleveComposant, COMPOSITION, NiveauCompositionFrancais" _
& " FROM Tbl_EVALUATION_NIVEAU_SCOLAIRE" _
& " WHERE Tbl_EVALUATION_NIVEAU_SCOLAIRE.IdEcole = Tbl_EVALUATION_NIVEAU_SCOLAIRE.IdEcole" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.AnneeScol = Tbl_EVALUATION_NIVEAU_SCOLAIRE.AnneeScol" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.NumInsCreleve = Tbl_EVALUATION_NIVEAU_SCOLAIRE.NumInsCreleve" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.MleEleve = Tbl_EVALUATION_NIVEAU_SCOLAIRE.MleEleve" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.Nom_Prenoms_EleveComposant = Tbl_EVALUATION_NIVEAU_SCOLAIRE.Nom_Prenoms_EleveComposant" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.COMPOSITION = Tbl_EVALUATION_NIVEAU_SCOLAIRE.COMPOSITION" _
& " AND Tbl_EVALUATION_NIVEAU_SCOLAIRE.NiveauCompositionFrancais = Tbl_EVALUATION_NIVEAU_SCOLAIRE.NiveauCompositionFrancais"
 
strSql = strSql & strWhere
 
Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Form.RecordSource = strSql
Me.Tbl_EVALUATION_NIVEAU_SCOLAIRE_SFrm.Requery
 
End Sub

Cordialement.

[morobaboumar]

Bonjour membres du forum,
Je reviens encore une fois avec le même sujet:
j'ai testé le code suivant avec la zone de recherche MoteurRechercheParent:

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 MoteurRechercheParent_Change()
RechercheAlphaNumeriquePARENT
End Sub
 
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND PARENT.NOM_PRENOMS_RECHERCHE Like '*" & _
Me.MoteurRechercheParent.Text & "*'"
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM [PARENT]" & " WHERE [PARENT].mlepa =" & [Parent].mlepa & "" _
& " AND [PARENT].NOM_PRENOMS_RECHERCHE = '" & [Parent].NOM_PRENOMS_RECHERCHE & "'"
strSql = strSql & strWhere
 
Me.RecordSource = strSql
Me.Requery
End Sub

voici les captures de messages d'erreur:





Pièce jointe

Cordialement.

[hyperion13]

L11/L12 de votre code qu'est-ce que [Parent] ? l'objet est inexistant dans votre bdd.

[morobaboumar]

L11/L12 de votre code qu'est-ce que [Parent] ? l'objet est inexistant dans votre bdd.

Bonjour hyperion13,

Je vous ai plutôt posté la table liée de PARENT en lieu et place de celle d'origine que j'aurais du y mettre
Maintenant c'est chose faite, je vous renvoie de nouveau la pièce jointe.



Cordialement.

[tee_grandbois]

bonjour,
il faut renommer la table PARENT en tbl_PARENT (par exemple) car dans VBA, PARENT est un mot réservé pour un sous-formulaire d'où l'erreur 2452

[morobaboumar]

bonjour,
il faut renommer la table PARENT en tbl_PARENT (par exemple) car dans VBA, PARENT est un mot réservé pour un sous-formulaire d'où l'erreur 2452

Bonjour tee_grandbois,
Voilà je viens d'effectuer le changement comme suggéré mais il y a toujours des messages d'erreurs:

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
 
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & _
Me.MoteurRechercheParent.Text & "*'"
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" & " WHERE Tbl_PARENT.mlepa= " & Tbl_PARENT.mlepa & "" & _
" AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE = '" & Tbl_PARENT.NOM_PRENOMS_RECHERCHE & "'"
strSql = strSql & strWhere
 
Me.RecordSource = strSql
Me.Requery
 
End Sub

Cordialement.

[morobaboumar]

Toujours le meme message d'erreur.

[tee_grandbois]

Toujours le meme message d'erreur.

non, ce n'est pas le même message, ici c'est un nom d'objet qui est demandé
en réalité la syntaxe & Tbl_PARENT.mlepa & n'est pas bonne car dans VBA on ne met pas directement un nom de table devant une variable (ce qui est hors des guillemets)

Code :

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

1
2
3
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" & " WHERE Tbl_PARENT.mlepa= " & Tbl_PARENT.mlepa & "" & _
" AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE = '" & Tbl_PARENT.NOM_PRENOMS_RECHERCHE & "'"

& Tbl_PARENT.mlepa & ici, cela correspond au nom du contrôle du formulaire donc on devrait avoir: & Me.mlepa & ou & forms!Nomduformulaire.mlepa &

idem ici: & Tbl_PARENT.NOM_PRENOMS_RECHERCHE & il faut mettre: & Me.NOM_PRENOMS_RECHERCHE &

[morobaboumar]

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
 
 
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& "FROM Tbl_PARENT" _
& "WHERE Tbl_PARENT.mlepa= " & Me.mlepa & _
 "AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE = & Me.NOM_PRENOMS_RECHERCHE &"
 strSql = strSql & strWhere
 
Me.Form.RecordSource = strSql
Me.Requery
 
End Sub

Message d'erreur:




A+

[hyperion13]

Il y a comme un mismatch dans votre code, notamment avec L5/L6 et L9/L10.
C'est comme une contrainte de partition, c'est l'un ou l'autre mais pas les 2 en même temps.

[morobaboumar]

Il y a comme un mismatch dans votre code, notamment avec L5/L6 et L9/L10.
C'est comme une contrainte de partition, c'est l'un ou l'autre mais pas les 2 en même temps.

Bonjour hyperion13,

mismatch

https://support.microsoft.com/en-us/...8-8129f372d59f
Je n'arrive pas résoudre l'erreur.

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
 
 
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" _
& " WHERE Tbl_PARENT.mlepa =  Tbl_PARENT.mlepa" _
& " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE =  Tbl_PARENT.NOM_PRENOMS_RECHERCHE"
 strSql = strSql & strWhere
 
Me.RecordSource = strSql
 
Me.Requery
End Sub

Cordialement.

[tee_grandbois]

Il y a comme un mismatch dans votre code, notamment avec L5/L6 et L9/L10.
C'est comme une contrainte de partition, c'est l'un ou l'autre mais pas les 2 en même temps.

@ morobaboumar:
en suivant les indications d'hyperion13, si tu ne vois pas ce que cela veut dire il faut arrêter de copier du code sans rien comprendre:
ceci:

Code :

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

1
2
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"

doit remplacer cela:

Code :

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

1
2
& " WHERE Tbl_PARENT.mlepa =  Tbl_PARENT.mlepa" _
& " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE =  Tbl_PARENT.NOM_PRENOMS_RECHERCHE"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
 
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" 
strWhere = " WHERE mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"
 
 strSql = strSql & strWhere
 
Me.RecordSource = strSql
 
Me.Requery
End Sub

[hyperion13]

Tu m'as devancé tee, je vais utiliser l'autre solution

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String
 
strSql = "SELECT RowNum, mlepa, civilite, nom, prenoms, profession, domicile, cel1, cel2, cel3, cel4, codepostal, boitepostale, ville, pays, observationpa, designationautresparents, autresparentsnometprenoms, NOM_PRENOMS_RECHERCHE" _
& " FROM tblPARENT" _
& " WHERE NOM_PRENOMS_RECHERCHE like '*" & Me.MoteurRechercheParent & "*'"
 
Me.RecordSource = strSql
Me.Requery
End Sub

Attention à la hiérarchie des form !
Post#29, il n'y a pas de sform donc en L13 Me.RecordSource et non pas Me.Form.RecordSource. Voir ici.

[morobaboumar]

@ morobaboumar:
en suivant les indications d'hyperion13, si tu ne vois pas ce que cela veut dire il faut arrêter de copier du code sans rien comprendre:
ceci:

Code :

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

1
2
strWhere = " AND mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"

doit remplacer cela:

Code :

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

1
2
& " WHERE Tbl_PARENT.mlepa =  Tbl_PARENT.mlepa" _
& " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE =  Tbl_PARENT.NOM_PRENOMS_RECHERCHE"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String, strWhere As String
 
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" 
strWhere = " WHERE mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"
 
 strSql = strSql & strWhere
 
Me.RecordSource = strSql
 
Me.Requery
End Sub

Je ne fais pas du copier coller sans comprendre le minimum du code.
Je vous rappelle le présent code se trouve dans les évènements du seul formulaire principal.
Mais toujours il ne marche pas.
Voici la preuve en images:




Cordialement.

[tee_grandbois]

je ne fais pas du copier coller sans comprendre le minimum du code.

un peu quand même: où vas-tu chercher l'information ci-dessous depuis le formulaire ?

Code :

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

strWhere = " WHERE mlepa = " & Me.mlepa

[hyperion13]

tee, dans mon Post#33 j'ai supprimé mlepa = " & Me.mlepa.
Pourquoi la textbox NomPrenomsParent du form formPARENTa pour SourceContrôle =NomPrenomParent([mlepa]) ? Parce que la tblParent contient le champ NOM_PRENOMS_RECHERCHE.
=NomPrenomParent([mlepa]) est situé dans le VBA du form PARENT_Bdialogue

[morobaboumar]

Tu m'as devancé tee, je vais utiliser l'autre solution

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub RechercheAlphaNumeriquePARENT()
Dim strSql As String
 
strSql = "SELECT RowNum, mlepa, civilite, nom, prenoms, profession, domicile, cel1, cel2, cel3, cel4, codepostal, boitepostale, ville, pays, observationpa, designationautresparents, autresparentsnometprenoms, NOM_PRENOMS_RECHERCHE" _
& " FROM tblPARENT" _
& " WHERE NOM_PRENOMS_RECHERCHE like '*" & Me.MoteurRechercheParent & "*'"
 
Me.RecordSource = strSql
Me.Requery
End Sub

Attention à la hiérarchie des form !
Post#29, il n'y a pas de sform donc en L13 Me.RecordSource et non pas Me.Form.RecordSource. Voir ici.

Bonsoir hyperion13,
Voici les messages d'erreurs d'après votre code:





Cordialement.

[hyperion13]

Probablement Post#33 code en L5 versus Post#34 3ème code en L5

[morobaboumar]

Probablement Post#33 code en L5 versus Post#34 3ème code en L5

Voulez dire que les erreurs se trouvent au niveau des lignes que vous avez indiquées ?
Si oui. Pourriez vous me donner la solution car il n'est aisé de faire du Vba. Vraiment désolé.
Cordialement.

[hyperion13]

Pourtant Post#33 code en L5 versus Post#34 3ème code en L5.

Code :

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

1
2
3
strSql = "SELECT RowNum, mlepa, civilite, nom, prenoms, profession, domicile, cel1, cel2, cel3, cel4, codepostal, boitepostale, ville, pays, observationpa, designationautresparents, autresparentsnometprenoms, NOM_PRENOMS_RECHERCHE" _
& " FROM tblPARENT" _
& " WHERE NOM_PRENOMS_RECHERCHE like '*" & Me.MoteurRechercheParent & "*'"

Code :

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

1
2
3
4
strSql = "SELECT RowNum,mlepa, civilite, nom, prenoms,profession, domicile, cel1, cel2,cel3,cel4,codepostal,boitepostale,ville,pays,observationpa,designationautresparents,autresparentsnometprenoms,NOM_PRENOMS_RECHERCHE" _
& " FROM Tbl_PARENT" 
strWhere = " WHERE mlepa = " & Me.mlepa
strWhere = strWhere & " AND Tbl_PARENT.NOM_PRENOMS_RECHERCHE Like '*" & Me.MoteurRechercheParent.Text & "*'"