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
| Private Sub bt_enregistrerDcDEF_Click()
On Error GoTo err
Dim oRst As DAO.Recordset
Dim oDB As DAO.Database
Set oDB = CurrentDb
Set oRst = oDB.OpenRecordset("T_temp", dbOpenTable)
'passe à l'ajout
oRst.AddNew
'Affecte les differents champs
oRst.Fields("nDC") = Me.nDC
oRst.Fields("DateReal") = Me.DateReal
oRst.Fields("HrReal") = Me.HrReal
oRst.Fields("DateEngaTheo") = Me.DateEngaTheo
oRst.Fields("HrEngaTheo") = Me.HrEngaTheo
oRst.Fields("DateSITE") = Me.DateSITE
oRst.Fields("HrSITE") = Me.HrSITE
oRst.Fields("DateLivr") = Me.DateLivr
oRst.Fields("HrLivr") = Me.HrLivr
oRst.Fields("DateAnnul") = Me.DateAnnul
oRst.Fields("HrAnnul") = Me.HrAnnul
oRst.Fields("MotifAnnul") = Me.motifAnnul
oRst.Fields("Origine") = Me.Origine
oRst.Fields("destination") = Me.destination
oRst.Fields("etatDC") = Me.EtatDC
oRst.Fields("Nom_CLIENT") = Me.NOM_CLIENT
oRst.Fields("nbWag") = Me.nbWag
oRst.Fields("LgUAF") = Me.lgUAF
oRst.Fields("mUAF") = Me.mUAF
oRst.Fields("charge") = Me.charge
oRst.Fields("b_en_b") = Me.b_en_b
oRst.Fields("DateReelEnga") = Me.DateReelEnga
oRst.Fields("DEFPPC") = Me.DEFPPC
oRst.Fields("ARectifier") = Me.ARectifier
oRst.Fields("Secteur") = Me.Secteur
oRst.Fields("Segment") = Me.Segment
oRst.Fields("prenom_GDC") = Me.prenom_GDC
oRst.Fields("nom_GDC") = Me.nom_GDC
oRst.Fields("Inter") = Me.Inter
oRst.Fields("RA") = Me.RA
oRst.Fields("PUF") = Me.PUF
oRst.Fields("Observation") = Me.Observation
'met à jour
oRst.Update
oRst.Close
oDB.Close
Set oRst = Nothing
Set oDB = Nothing
Dim sql As String
Dim nb As Recordset
sql = "SELECT nDC,DEFPPC,Secteur,Segment,Origine,Destination,DateReal,DateEngaTheo,HrEngaTheo,DateReelEnga,nom_GDC,observation from T_temp where nom_GDC = " & Chr(34) & Forms!F_DC_DEF.nom_GDC & Chr(34) & " and DEFPPC= ""DEF"""
'MsgBox SQL
Me.list_temp_DEF.RowSource = sql
Me.list_temp_DEF.Requery
Refresh
err:
Select Case err.Number
Case 3022: MsgBox "DC demandé a déjà enregistré !"
End Select
End Sub |
Partager