'Premier source => Ouverture de la fenêtre...

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)       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
'Me.Filter = "Country = 'USA'"
'Me.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
 
    FctOpenFicheIncident = True
ExitHandler:
    Exit Function
ErrHandler:
'Resume
    MsgBox Err.Description, vbExclamation, CstAppName
    Resume ExitHandler
 
End Function

'Second source => Extrait du code permettant de passer d'un enregistrement à l'autre...
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