Discussion :

[morobaboumar]

Bonsoir membres du forum!
Les codes suivants de la zone de recherche "MoteurRechercheEleve" du formulaire "Eleve_INSCRIT" marchent bien.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub MoteurRechercheEleve_Change()
MoteurRechercheEleveAlphaNumerique
'Dim s
's = Me.MoteurRechercheELEVE.Text '--- texte tapé dans le champ, non validé (pas encore fait de MAJ)
'Filtrer '--- le filtre va effacer le texte vu qu'il n'a pas été validé
'Me.MoteurRechercheELEVE = s '--- reprise du texte
'If Len(s) > 0 Then Me.MoteurRechercheELEVE.SelStart = Len(s) '--- replace le curseur en fin du texte
End Sub

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
 
Sub MoteurRechercheEleveAlphaNumerique()
On Error Resume Next
    Dim sFilter As String
    sFilter = ""
    If Nz(Me.MoteurRechercheEleve, "") <> "" Then
        '--- pour le filtre, remplace les + par des espaces
        sFilter = Replace(Me.MoteurRechercheEleve.Text, "+", " ")
        sFilter = Replace(sFilter, "'", "' & Chr(39) & '")                            '--- gère l'apostrophe
        sFilter = " AND [NPrenomsEleves] Like '*" & sFilter & "*'"
    End If
    If Nz(Me.MoteurRechercheEleveFiltreID_ETABL_FREQ, "") <> "" Then
        sFilter = sFilter & " AND [ID_ETABL_FREQ]=" & Me.MoteurRechercheEleveFiltreID_ETABL_FREQ
    End If
    'If Nz(Me.mlepa_Enreg_ParResp, "") <> "" Then
        'sFilter = sFilter & " AND [mlepa_Enreg_ParResp]=" & Me.mlepa_Enreg_ParResp
    'End If
 
    If sFilter = "" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Debug.Print "Filtre: "; sFilter
        Me.Filter = Mid(sFilter, 6)         '--- pour retirer le 1er " AND "
        Me.FilterOn = True
        With Me.MoteurRechercheEleve
            .SetFocus
            .SelStart = Len(sFilter)
        End With
    End If
End Sub

Maintenant, la difficulté à laquelle suis confronté est lorsque je joins des sous-formulaires au formulaire principal,
le code en question génère des messages d'erreurs.
Pièces jointes:




Cordialement.

[hyperion13]

Salut,
Votre problème n'a rien à voir avec l'ajout de sform dans le main form.
Vous avez oublié de préciser que c'est lors d'une recherche multiple, plusieurs noms et prénoms de scolaire ou que le nom n'existe pas, que vous rencontrez des problèmes.
Enfin, c'est ce que je constate. La preuve en img
Il suffit d'analyser la fenêtre d'exécution. L'élève TOURE Fatimata KONE Fatoumata,n'existe pas et Private Sub Form_Current(),le considère comme un nouvel enregistrement.

[morobaboumar]

Bonjour hyperion13,
Désolé d'avoir mis un si long moment à vous répondre.
L'erreur ne se trouvant pas dans la superposition des formulaires, que doit on changer au niveau du code ?
Cordialement.

[morobaboumar]

Bonjour membres du forum,
Je pense avoir trouvé la solution pour le formulaire PARENT:

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
Private Sub MoteurRechercheParent_Change()
' MoteurRechercheParentAlphaNumerique
Dim s
s = Me.MoteurRechercheParent.Text '--- texte tapé dans le champ, non validé (pas encore fait de MAJ)
FiltrerMoteurRechercheParent '--- le filtre va effacer le texte vu qu'il n'a pas été validé
Me.MoteurRechercheParent = s '--- reprise du texte
If Len(s) > 0 Then Me.MoteurRechercheParent.SelStart = Len(s) '--- replace le curseur en fin du texte
End Sub
 
 
 Private Sub FiltrerMoteurRechercheParent()
    Dim sFiltre As String
    sFiltre = ""
' If Nz(Me.AnneeScolaire_ListeApercu, "") <> "" Then
        'sFiltre = sFiltre & " AND [ANNEE_SCOL] = """ & Me.AnneeScolaire_ListeApercu & """"
   'End If
    If Nz(Me.TXT_IDECOLE, 0) <> 0 Then
        sFiltre = sFiltre & " AND [ID_ETABL_ParResp] = " & Me.TXT_IDECOLE
    End If
    If Nz(Me.MoteurRechercheParent, "") <> "" Then
        sFiltre = sFiltre & " AND (NomPrenomsParent Like ""*" & _
        Me.MoteurRechercheParent & "*"" OR Num_Enreg_ParResp Like ""*" & _
        Me.MoteurRechercheParent & "*"" OR mlepa_Enreg_ParResp Like ""*" & _
        Me.MoteurRechercheParent & "*"")"
    End If
    If Me.ActiveControl.name = "MoteurRechercheParent" Then
        If Nz(Me.MoteurRechercheParent.Text, "") <> "" Then   '--- .Text pour avoir le texte non validé
            sFiltre = sFiltre & " AND [NomPrenomsParent] Like ""*" & MoteurRechercheParent.Text & "*"""
        End If
    Else
        If Nz(Me.MoteurRechercheParent, "") <> "" Then
            sFiltre = sFiltre & " AND [NomPrenomsParent] Like ""*" & Me.MoteurRechercheParent & "*"""
        End If
    End If
    If sFiltre = "" Then
        Me.Filter = sFiltre
        Me.FilterOn = False
    Else
        Me.Filter = Mid(sFiltre, 6)
        Me.FilterOn = True
    End If
End Sub

Plutôt c'est celui ci qui devrait marcher avec le formulaire ELEVE:

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
43
44
45
Private Sub MoteurRechercheEleve_Change()
'MoteurRechercheEleveAlphaNumerique
Dim s
s = Me.MoteurRechercheELEVE.Text '--- texte tapé dans le champ, non validé (pas encore fait de MAJ)
FiltrerMoteurRechercheEleve '--- le filtre va effacer le texte vu qu'il n'a pas été validé
Me.MoteurRechercheELEVE = s '--- reprise du texte
If Len(s) > 0 Then Me.MoteurRechercheELEVE.SelStart = Len(s) '--- replace le curseur en fin du texte
End Sub
 
Private Sub FiltrerMoteurRechercheEleve()
On Error Resume Next
    Dim sFiltre As String
    sFiltre = ""
    'If Nz(Me.SelectionAnnee, "") <> "" Then
        'sFiltre = sFiltre & " AND [AnneeScol] = """ & Me.SelectionAnnee & """"
    'End If
    If Nz(Me.MoteurRechercheEleveFiltreID_ETABL_FREQ, 0) <> 0 Then
        sFiltre = sFiltre & " AND [ID_ETABL_FREQ] = " & Me.MoteurRechercheEleveFiltreID_ETABL_FREQ
    End If
    'If Nz(Me.TxtMleeleve, 0) <> 0 Then
        'sFiltre = sFiltre & " AND [Mleeleve] = " & Me.TxtMleeleve
    'End If
    If Nz(Me.MoteurRechercheELEVE, "") <> "" Then
        sFiltre = sFiltre & " AND (NOM_PRENOMS_COMPLET_FR Like ""*" & _
        Me.MoteurRechercheELEVE & "*"" OR Num_Inscription Like ""*" & _
        Me.MoteurRechercheELEVE & "*"" OR mleeleve Like ""*" & _
        Me.MoteurRechercheELEVE & "*"")"
    End If
    If Me.ActiveControl.name = "MoteurRechercheEleve" Then
        If Nz(Me.MoteurRechercheELEVE.Text, "") <> "" Then   '--- .Text pour avoir le texte non validé
            sFiltre = sFiltre & " AND [NOM_PRENOMS_COMPLET_FR] Like ""*" & MoteurRechercheELEVE.Text & "*"""
        End If
    Else
        If Nz(Me.MoteurRechercheELEVE, "") <> "" Then
            sFiltre = sFiltre & " AND [NOM_PRENOMS_COMPLET_FR] Like ""*" & Me.MoteurRechercheELEVE & "*"""
        End If
    End If
    If sFiltre = "" Then
        Me.Filter = sFiltre
        Me.FilterOn = False
    Else
        Me.Filter = Mid(sFiltre, 6)
        Me.FilterOn = True
    End If
End Sub

mais c'en n'est pas le cas !

Cordialement.