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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| Sub CREATION()
Dim SYSID As String
Dim TAGID As String
Dim FUNCTIONID As String
Dim UNITID As String
Dim EQUIPID As String
Dim NUMID_T As Integer
Dim NUMID_T2 As Integer
Dim NUMID As String
Dim TAG1ID As Variant
TAG1ID = "" & TAG1.Value
TAG2ID = "" & TAG2.Value
TAG3ID = "" & TAG3.Value
TAG4ID = "" & TAG4.Value
TAG5ID = "" & TAG5.Value
TAG6ID = "" & TAG6.Value
TAG7ID = "" & TAG7.Value
TAG8ID = "" & TAG8.Value
TAG9ID = "" & TAG9.Value
TAG10ID = "" & TAG10.Value
DESCID = C_DESCRIPTION.Value
WPID = CP_WP.Value
REQUESTERID = C_REQUESTER.Value
POSTEID = C_POSTE.Value
COMMENTSID = C_REASON.Value
TYPEID = C_TYPE.Value
TEMP1ID = Texte1.Value
TEMP2ID = Texte2.Value
TEMP3ID = Texte3.Value
TEMP4ID = Texte4.Value
TEMP5ID = Texte5.Value
TEMP6ID = Texte6.Value
TEMP7ID = Texte7.Value
If TAG1ID <> "" And TAG2ID = "" And TAG3ID = "" And TAG4ID = "" And TAG5ID = "" And TAG6ID = "" And TAG7ID = "" And TAG8ID = "" And TAG9ID = "" And TAG10ID = "" Then
'Single inhibition
NUMID_T = DLookup("NUM", "NUMBER", "NUMBERID = 1 ")
NUMID_T2 = NUMID_T + 1
NUMID_T3 = "S" & NUMID_T2
TAGID = TAG1ID
strSQL = "UPDATE NUMBER SET NUMBER.NUM= '" & NUMID_T2 & "'WHERE NUMBER.NUMBERID =1 "
CurrentDb.Execute strSQL
Call TRANSFER2(TAGID, NUMID, WPID, REQUESTERID, POSTEID, COMMENTSID, TYPEID, NUMID_T3, TEMP1ID, TEMP2ID, TEMP3ID, TEMP4ID, TEMP5ID, TEMP6ID, TEMP7ID)
MsgBox ("Form submitted for Assessment / Record the following number ")
MsgBox ("'" & " " & NUMID_T3 & " " & "' SINGLE INHIBITION")
Else |
Partager