Discussion :

[kimar]

Bonjour,
J'ai créé une liste déroulante pour recherché les enregistrement dans mon formulaire en choisissant la 3e option de l'assistant ... Bref jusqu'à là ca va.
J'ai donc le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub lstFind_AfterUpdate()
 
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N°] = " & Str(Me![lstFind])
    Me.Bookmark = rs.Bookmark
 
 
End Sub

Seulement, si on sélectionne cette liste, et que l'on presse Entrer alors que rien n'est écrit dedans, j'obtiens le message d'erreur: "Utilisation incorrect de Null". Pas très pro.
Quelqu'un sait il comment remedier à cela ?

[catoucat]

Tu peux tester au debut si le champ est bien rempli:

Code :

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

1
2
3
4
5
6
7
If IsNull(lstFind) Then
MsgBox "Vous n'avez pas oublie quelque chose? ;-)"
Else
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N°] = " & Str(Me![lstFind])
    Me.Bookmark = rs.Bookmark
End If

[kimar]

Oke, merci bien catoucat .