Discussion :

[Ram34]

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

[LedZeppII]

Bonjour,

Il se peut qu'il n'y ait pas d'objet compatible au premier plan.

Voila ce que j'ai essayé et qui fonctionne pour moi:

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
Dim f As Access.Form
Dim lRecord As AcRecord, bActiveObjIsValid As Boolean
 
lRecord = -1
Select Case ctl.ID
    Case "btnNavFirst_SdS": lRecord = Access.AcRecord.acFirst
    Case "btnNavPrev_SdS": lRecord = Access.AcRecord.acPrevious
    Case "btnNavNext_SdS": lRecord = Access.AcRecord.acNext
    Case "btnNavLast_SdS": lRecord = Access.AcRecord.acLast
End Select
 
' Si un déplacement a été requis
If lRecord <> -1 Then
   ' Est-qu'il y a un formulaire au premier plan ?
   On Error Resume Next
   Set f = Screen.ActiveForm
   On Error GoTo 0
   If Not f Is Nothing Then
      bActiveObjIsValid = True
   End If
 
   ' Est-qu'il y a une table/requête au premier plan ?
   On Error Resume Next
   Set f = Screen.ActiveDatasheet
   On Error GoTo 0
   If Not f Is Nothing Then
      bActiveObjIsValid = True
   End If
 
   ' Effectuer le déplacement s'il y a un objet compatible au premier plan
   If bActiveObjIsValid Then
      On Error Resume Next
      DoCmd.GoToRecord , , lRecord
      On Error GoTo 0
   End If
End If

On Error Resume Next avant DoCmd.GoToRecord , , lRecord sert à ne pas afficher d'erreur lorsque par exemple on est sur le premier enregistrement et qu'on demande un déplacement en arrière.

A+

[Ram34]

Alors cela ne fonctionne pas !!
je crois le problème viens du fait qu'Access n'arrive pas à identifier (à temps) le formulaire actif... je précise que ce code est lancer sur un ruban

[Ram34]

Après plusieurs recherches j'ai choisi de vérifier la présence du formulaire et mettre le focus sur lui. et ça marche.
Merci LedZeppII
(tu m'avais déjà apporter ton aide dans une autre discussion)