1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
StrOpenArgs = StrDroits & "¤" & StrRegion & "¤" & StrStatut & "¤" & StrUser & "¤" & "Création"
stDocName = "FrmFormulaireIncident"
DoCmd.OpenForm stDocName, acNormal, , , acFormAdd, , StrOpenArgs ', acFormEdit, acDialog
' DoCmd.OpenForm stDocName, acNormal, , , acFormEdit, , StrOpenArgs ', acFormEdit, acDialog
If Not ModDroits.FctDroitsEnregistrement(StrDroits, StrRegion, StrStatut, StrUser) Then
Exit Function
End If
Set rs = Form_FrmFormulaireIncident.Recordset
rs.AddNew |
Partager