"Impossible d'atteindre l'enregistrement spécifié"

Question

Bonsoir &#224; tous,

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 vous pouvez m'aider ?

A tr&#232;s bient&#244;t.

Marco.


Cotmar

cs_Jack · Answer

Salut
Tu parles de Filtre, de s&#233;lection ... de ta cafeti&#232;re ?
S&#233;rieux : On ne sait pas de quel langage tu parles; dans quel environnement tu es ! Comment veux-tu qu'on te r&#233;ponde ?
Pr&#233;cise nous quel VB : VB6, Net, VBA de Excel, Access, Word ...
Avec quel objet ?
Et donne beaucoup plus de pr&#233;cision : "me positionner directement sur celui qui a &#233;t&#233; choisi" <-- Choisi comment, dans quoi ?

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Champion du monde de boule de cristal - 2005
Le savoir est la seule mati&#232;re qui s'accroit quand on la partage (Socrate)

cs_cotmar · Answer

Bonjour Jack,

Oui c'est vrai d&#233;sol&#233;. C'&#233;tait pourtant bien inscrit en clair dans ma t&#234;te. :D
Oups pardon...

Oui effectivement c'est de l'Access 2003/VBA.

A bient&#244;t j'esp&#232;re.

Cotmar.

cs_Jack · Answer

... et c'est tout ? pas bavard ...

"j'ouvre mon formulaire sur un filtre" <-- &#231;a veut dire quoi ? Quelle ligne de programme as-tu &#233;cris pour faire &#231;a ?
Sur quelle ligne de programme &#233;met-il cette erreur ?
Es-tu s&#251;r que ta DB est ouverte au moment o&#249; cette ligne est ex&#233;cut&#233;e ?

cs_cotmar · Answer

Oui pardon,
C'est vrai effectivement.
Donc voici le source de l'appel du formulaire :

Public Function FctOpenFicheIncident( _
    ByRef StrRegion As String, _
    ByRef StrDroits As String, _
    ByRef StrStatut As String, _
    ByRef StrUser As String) As Boolean
    
On Error GoTo ErrHandler
    
    Dim StrSvDroits       As String
    Dim StrSvRegion       As String
    Dim StrSvStatut       As String
    Dim StrSvUser         As String
    
    Dim StrCheminPJ As String
    
    FctOpenFicheIncident = False
    
    
    If IsNull(Form_FrmListeDesIncidents.LstResultQuery.Column(7)) Then
        GoTo ExitHandler
    Else
        StrStatut = Form_FrmListeDesIncidents.LstResultQuery.Column(7) '.ItemsSelected(0)
    End If
    
    DoCmd.OpenForm "FrmFormulaireIncident"
    
    If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, StrStatut, StrUser) Then
        Exit Function
    End If


    If Not ModSQL.FctGetRowSourceFicheIncident(StrRowSource) Then
        Exit Function
    Else        Form_FrmFormulaireIncident.Filter "[NumIncident] " & Form_FrmListeDesIncidents.LstResultQuery.Column(0, Form_FrmListeDesIncidents.LstResultQuery.ItemsSelected(0))
        Form_FrmFormulaireIncident.FilterOn = True
    End If
    
    Form_FrmFormulaireIncident.Requery
            Form_FrmFormulaireIncident.TxtRegionParam.Value StrRegion 'IIf(StrRegion "NAT", "*", StrRegion)
    
    If Not FctChargeRegion(StrRegion) Then
        Exit Function
    End If
    
    If Not ModFichier.FctChercheCheminPJ(StrCheminPJ) Then
        Exit Function
    End If
    
    If IsDate(Form_FrmFormulaireIncident.ClosLe) Then
        Form_FrmFormulaireIncident.CmdCloturer.Enabled = False
    End If
    
    Form_FrmFormulaireIncident.Requery
    
    FctOpenFicheIncident = True


ExitHandler:
    Exit Function


ErrHandler:
'Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
    
End Function

Cotmar

cs_cotmar · Answer

Sinon, Jack en fait j'avais essayer de poser des questions autour de &#231;a et j'acvais donn&#233; trops de d&#233;tails. Du coups l&#224; j'ai essay&#233; d'&#234;tre plus clair et de dire juste ce qu'il faut.

 Mais si tu veux d'autres pr&#233;cisions pour r&#233;pondre &#224; cette question, dis moi et je ferais de mon mieux.

Cotmar

cs_cotmar · Answer

Sinon, voici comment je m'y prends pour "balayer" les enregistrements :

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

"Impossible d'atteindre l'enregistrement spécifié"

6 réponses

Discussions similaires