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 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
Sub Commande36_Click()
On Error GoTo Err_Commande36_Click
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim connex As ADODB.Connection
Dim recset As ADODB.Recordset
Dim MonSQL As String
Dim requete As String
Dim strsortie As Integer
Dim stDocName As String
Dim variable As String
MonSQL = "SELECT Count([change_control].[num_change])AS nb_date FROM change_control WHERE year([change_control].[date_demande])=" & Year(date_dem) & "And month([change_control].[date_demande])=" & Month(date_dem) & "And day([change_control].[date_demande])=" & Day(date_dem) & "And ([change_control].[num_atelier])='" & num_at & "';"
Set connex = CurrentProject.Connection
Set recset = New ADODB.Recordset
recset.Open MonSQL, connex
strsortie = recset.Fields("nb_date")
If strsortie = 0 Then
num_change = num_atelier & "/" & Year(date_dem) & "-" & Month(date_dem) & "-" & Day(date_dem) & "/"
Else
strsortie = strsortie + 1
num_change = num_atelier & "/" & Year(date_dem) & "" & Month(date_dem) & "" & Day(date_dem) & "/" & strsortie
End If
recset.Close
variable = num_change
If num_lot <> "" Then
num_lot = Replace(num_lot, " ", "")
End If
connex.Close
Set connex = Nothing
Set recset = Nothing
DoCmd.GoToRecord , , acNewRec
MsgBox " Enregistrement du formulaire change control réussi avec succès !!!"
'-------------- impression -----------------------------------------------------
SupprimerRequete "req_etat_change_direct"
requete = "SELECT DISTINCTROW [change_control].[num_change], [change_control].[num_atelier], [change_control].[date_demande], [change_control].[nom_initiateur], [atelier].[nom_resp], [change_control].[nom_produit], [change_control].[ code], [change_control].[num_lot], [change_control].[description], [change_control].[raison] FROM atelier INNER JOIN change_control ON [atelier].[num_atelier]=[change_control].[num_atelier] WHERE [change_control].[num_change]='" & variable & "';"
CreerRequete "req_etat_change_direct", requete
stDocName = "etat_change_control_direct"
DoCmd.OpenReport stDocName, acNormal
MsgBox " La demande de change control a bien été imprimée !!!"
'-------------------------------------------------------------------------------
'--------------- audit trail ---------------------------------------------------
Dim connex1 As ADODB.Connection
Dim recset1 As ADODB.Recordset
Dim MonSQL1 As String
MonSQL1 = "INSERT INTO audit (qui,quand,action) VALUES ('" & User_id & "','" & date & "','demande de change control');"
MsgBox MonSQL1
Set connex1 = CurrentProject.Connection
Set recset1 = New ADODB.Recordset
recset1.Open MonSQL1, connex1
'-------------------------------------------------------------------------------
Exit_Commande36_Click:
Exit Sub
Err_Commande36_Click:
MsgBox err.description
Resume Exit_Commande36_Click
recset1.Close
connex1.Close
Set connex1 = Nothing
Set recset1 = Nothing
End Sub |
Partager