Bonjour à tous,

voila j'aimerai savoir pourquoi ce code me renvoi une erreur (erreur 2046 "la commande .... n'est pas disponible pour l'instant" :
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
 
Dim f As Access.Form
Dim lRecord As AcRecord
 
If (Forms.count > 0) Then
        Set f = Screen.ActiveForm
End If
 
    Select Case ctl.ID
        Case "btnNavFirst_SdS": lRecord = acFirst
        Case "btnNavPrev_SdS": lRecord = acPrevious
        Case "btnNavNext_SdS": lRecord = acNext
        Case "btnNavLast_SdS": lRecord = acLast
    End Select
 
    ' Effectuer le déplacement
    DoCmd.GoToRecord , , lRecord
merci à vous