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 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93
| Private Sub Commande44_Click()
Dim db As Database
Dim sql As String
Dim Rs20 As DAO.Recordset
Dim qfd20 As DAO.QueryDef
Dim n20 As String
Dim t20 As String
Dim ncd20 As String
'soluce2
'Dim sql As String
'DoCmd.SetWarnings False ' pour ne pas avoir de message a chaque ajout
' sql = "INSERT INTO Table2(champ1, champ2) VALUES (" & nomducontrolequialavaleurduchamp1.Value & "," & nomducontrolechamp2.Value & ");"
' DoCmd.RunSQL sql
' sql = "INSERT INTO Table3(champ1, champ2) VALUES (" & nomducontrolequialavaleurduchamp1.Value & "," & nomducontrolechamp2.Value & ");"
' DoCmd.RunSQL sql
'...
'DoCmd.SetWarnings True
DoCmd.SetWarnings False ' pour ne pas avoir de message a chaque ajout
sql = "INSERT INTO [T_base_de_données](N°_identification_outil,Abrégé_outillage,Opération, Date_suivi, Nbre_de_coups_donnés,Longueur_après_affûtage,Observations) VALUES ([Forms]![F_suivi outils]![N° outil],[Forms]![F_suivi outils]![type_outillage],[Forms]![F_suivi outils]![Opération],[Forms]![F_suivi outils]![date_suivi],[Forms]![F_suivi outils]![cps_donnés],[Forms]![F_suivi outils]![longhaut_affûtage],[Forms]![F_suivi outils]![observations])"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
'Référence la base de données
Set db = CurrentDb
If [Forms]![F_suivi outils]![type_outillage] = "MCAR" Then GoSub mcar
If [Forms]![F_suivi outils]![type_outillage] = "PCAR" Then GoSub pcar
If [Forms]![F_suivi outils]![type_outillage] = "MRON" Then GoSub mron
If [Forms]![F_suivi outils]![type_outillage] = "PRON" Then GoSub pron
If [Forms]![F_suivi outils]![type_outillage] = "MREF" Then GoSub mref
If [Forms]![F_suivi outils]![type_outillage] = "PREF" Then GoSub pref
If [Forms]![F_suivi outils]![type_outillage] = "MOBL" Then GoSub mobl
If [Forms]![F_suivi outils]![type_outillage] = "POBL" Then GoSub pobl
GoSub line31
mcar:
'code pour activer requête "R_cumul_cps_donnés"
Set qfd20 = CurrentDb.QueryDefs("R_cumul_cps_donnés")
'1er paramètre : permet de prendre en compte le type d'outillage dans la requête "R_cumul_cps_donnés"
qfd20.Parameters("[Formulaires]![F_Suivi outils]![type_outillage]") = [Forms]![F_suivi outils]![type_outillage]
'2nd paramètre : permet de prendre en compte le N° d'outil dans la requête "R_cumul_cps_donnés"
qfd20.Parameters("[Formulaires]![F_Suivi outils]![N° outil]") = [Forms]![F_suivi outils]![N° outil]
'ouvre le recordset basé sur la requête
Set Rs20 = qfd20.OpenRecordset
'Vérifie s'il y a des enregistrements dans le Recordset pour éviter message d'erreur
If Rs20.BOF = True And Rs20.EOF = True Then GoTo line31
'stocke dans les variables les données de la table sélectionnée en fonction de la requête
Rs20.MoveFirst
While Not Rs20.EOF
With Rs20
n20 = .Fields("N°_identification_outil").Value
t20 = .Fields("Abrégé_outillage").Value
ncd20 = .Fields("SommeDeNbre_de_coups_donnés").Value
End With
Rs20.MoveNext
Wend
sql = "UPDATE [Matrices_carrées] SET [Matrices_carrées].Nbre_de_coups_total = " & ncd20 & " WHERE [Matrices_carrées].N°= '" & n20 & "'"
' sql = "UPDATE [Matrices_carrées] SET [Matrices_carrées].Nbre_de_coups_total = " & ncd20 & " WHERE [Matrices_carrées].Abrégé_outillage= '" & t20 & "'"
DoCmd.RunSQL sql
Return
pcar:
Return
mron:
Return
pron:
Return
mref:
Return
pref:
Return
mobl:
Return
pobl:
Return
line31:
End Sub |
Partager