Balayage d'enregistrements sur formulaire filtré... Est ce possible ?

Question

Bonjour,

Le nouveau probl&#232;me du jour vient du fait que j'essaye de balayer des enregistrements avec un formulaire que je lance sur un champs filtr&#233; dans Access 2003.

Est ce que c'est possible ?

A bient&#244;t et merci d'avance.

Marco.

A titre d'exemple, voici le code associ&#233; aux bouttons qui me permettent de me d&#233;placer d'un enregistrement &#224; l'autre (FctDroitsEnregistrement est une fonction qui doit me permettre en fonction des droits associ&#233;s &#224; la fiche incident qui est visualis&#233;e de dire si l'utilisateur a droit ou non de voir/modifier...) :



Private Sub CmdPremier_Click()
On Error GoTo ErrHandler
 
    DoCmd.GoToRecord , , acFirst
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, _
      Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
 
End Sub
 
Private Sub CmdPrecedent_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acPrevious
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, _
     Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub
 
Private Sub CmdSuivant_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acNext
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, _
      Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub
 
Private Sub CmdDernier_Click()
On Error GoTo ErrHandler
    DoCmd.GoToRecord , , acLast
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, _
      Statut.Value, StrUser) Then
        Exit Sub
    End If
ExitHandler:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Sub

Cotmar

cs_cotmar · Answer

En fait ce que je veux faire c'est dans s&#233;lection d'enregistrements, me positionner directement sur celui qui a &#233;t&#233; choisi et ensuite pourvoir faire d&#233;filer tous les autres (premier, pr&#233;c&#233;dent, suivant, dernier avec les boutons sur le formulaire).


 


En fait mon probl&#232;me vient du fait comme j'ouvre mon formulaire sur un filtre il me renvoie un message d'erreur lorsque je clique sur pr&#233;c&#233;dent, suivant... Le message est ainsi libell&#233; : "Impossible d'atteindre l'enregistrement sp&#233;cifi&#233;"


 


Je sais pas si c'est plus clair comme &#231;a ?

Cotmar

Balayage d'enregistrements sur formulaire filtré... Est ce possible ?

1 réponse

Discussions similaires