Discussion :

[adelion7015]

Bonjour,

J'ai une liste déroulante et sur son événement après mis a jour mis le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub filtreperi_AfterUpdate()
Me.Requery
 
 Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Nom Perimetres] = " & Str(Me![filtreperi])
    If rs.NoMatch Then
        MsgBox "Perimetre introuvable! veuillez verifier votre saisi"
    Else
        Me.Bookmark = rs.Bookmark
    End If
    End Sub

Des que je l’exécute j'ai le message d'erreur que j'ai mis en titre, sans vraiment savoir ou voir pour porter une correction a cette erreur.

cordialement.

[Jean-Philippe André]

Salut,

ton champ [Nom Perimetres] n'est il pas de type texte ?

Code :

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

rs.FindFirst "[Nom Perimetres] = '" & Me![filtreperi] & "'"

[adelion7015]

bonjour,

Oui il est texte.

[adelion7015]

bonjour,

ça marche très bien merci.

cordialement.