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
|
Public Function fctAfficheListeDesIncidents( _
ByRef StrRegion As String, _
ByRef StrDroits As String, _
ByRef StrStatut As String, _
ByRef StrUser As String) As Boolean
On Error GoTo ErrHandler
fctAfficheListeDesIncidents = False
Dim StrOpenArgs As String
StrOpenArgs = StrDroits & "¤" & StrRegion & "¤" & StrStatut & "¤" & StrUser
DoCmd.OpenForm "FrmListeDesIncidents", , , , , , StrOpenArgs
Form_FrmListeDesIncidents.Requery
If Not ModDroits.FctDroitsListeIncident(StrDroits, StrRegion, StrStatut, StrUser) Then
Exit Function
End If
Form_FrmListeDesIncidents.Visible = True
fctAfficheListeDesIncidents = True
ExitHandler:
Exit Function
ErrHandler:
Resume
MsgBox Err.Description, vbExclamation, CstAppName
Resume ExitHandler
End Function |
Partager