Probleme vba pour moteur de recherche ACCESS

[sylvaindenisbe]

Bonjour à tous,

voila j'ai un petit souci avec un code

Je suis en train de faire un moteur de recherche avec un seul champ qui peut me donner une liste cliquable

voici le code VBA :

'

Code VBA :

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
initialisation du formulaire
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 5)
        Case "coche"
            ctl.Value = 0
        Case "modif"
            ctl.Visible = False
        Case "texte"
            ctl.Visible = False
    End Select
Next ctl
'Initialisation du résultat avec tous les enregistrements disponibles.
listeResultat.RowSource = "select Nom,Prenom1,EnOrdre from Etudiant;"
listeResultat.Requery
End Sub

'Fonction rafraichir
Private Sub rafraichir()
Dim SQL As String
SQL = "SELECT Nom,Prenom1,EnOrdre from Etudiant where Etudiant!id<>0"
'If cocheNom Then
'    SQL = SQL & "And Etudiant!Nom='" & modifNom & "'"
'End If
If cocheNom Then
On Error Resume Next
    SQL = SQL & "And Etudiant!Nom like '*" & texteNom.Text & "*'"
End If
SQL = SQL & ";"
listeResultat.RowSource = SQL
listeResultat.Requery
End Sub

Private Sub cocheNom_Click()
texteNom.Visible = Not texteNom.Visible C'est ici que s'affiche l'erreur 
rafraichir
End Sub

Private Sub texteNom_KeyUp(KeyCode As Integer, Shift As Integer)
rafraichir
End Sub

Pouvez vous m'aider ???
une autre question, comment faire pour que lorsque je double clique sur une ligne cela m'ouvre le formulaire de la personne concerné


un grand merci d'avance

[Herman]

Salut,

Sur DoubleClick :

Code :

1
2
3
4
5
Private Sub Liste7_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "nom_de_ton_form", acNormal, , "[le_champ_qui_lie_les_deux] = " & nom_de_ta_liste
 
End Sub