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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115
|
Select Case Cappel
Case 1
For Each ctl In Me.Controls
'On vérifie les quatres premières lettres du nom du contrôle
Select Case Left(ctl.name, 4)
'si le nom du contrôle commence par "Frmv"
Case "Frmv"
'On récupère le numéro du paramètre par la propriété remarque du contrôle
'si le contrôle est vide on met le chiffre 0
'v_ctl = Nz(ctl.Value, 0)
VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
'On insère les données dans la table EI_Parametre
DoCmd.RunSQL ("Insert into [Tbl_Ei_Parametre] (ID_EI,Id_Parametre_EI,Valeure_nominale) values " & _
"(" & ID_EI & ", '" & VID & "' ,'" & ctl.Value & "')")
Case "Frmx"
'On récupère le numéro du paramètre par la propriété remarque du contrôle
' VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
DoCmd.RunSQL ("Update [Tbl_EI_Parametre] Set [Tol_Max]= '" & ctl.Value & "' where [Id_EI]= " & ID_EI & " And [Id_Parametre_EI]= " & VID)
Case "Frmm"
'On récupère le numéro du paramètre par la propriété remarque du contrôle
VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
'v_ctl = Nz(ctl.Value, 0)
DoCmd.RunSQL ("Update [Tbl_EI_Parametre] Set [Tol_Min]= '" & ctl.Value & "' where [Id_EI]= " & ID_EI & " And [Id_Parametre_EI]= " & VID)
End Select
Next ctl
For Each ctl In Me.Controls
VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
Select Case Left(ctl.name, 9)
Case "frmmodif1"
' v_ctl = Nz(ctl.Value, 0)
DoCmd.RunSQL ("Update [Tbl_EI_Parametre] Set [Tol_Min_Spe]= '" & ctl.Value & "' where [Id_EI]= " & ID_EI & " And [Id_Parametre_EI]= " & VID)
Case "frmmodif2"
VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
'v_ctl = Nz(ctl.Value, 0)
DoCmd.RunSQL ("Update [Tbl_EI_Parametre] Set [Tol_Max_Spe]= '" & ctl.Value & "' where [Id_EI] = " & ID_EI & " And [Id_Parametre_EI] = " & VID)
End Select
Next ctl
Indice = DCount("[Id_ei]", "tbl_ei", "[vorgang]=" & Me.VORGANG & " And [Num_OF] = '" & Me.Num_OF & "' And [Num_EI] <> Null")
Indice = Indice + 1
DoCmd.RunSQL ("Update [Tbl_ei] set [num_ei] = " & Indice & " where [id_ei]=" & ID_EI)
msg = "L'EI à été modifié voulez-vous imprimer le @nouveau rapport@ ?"
Style = vbYesNo + vbInformation + vbDefaultButton2
Title = "EI modifié ?"
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
DoCmd.Close
DoCmd.Close acForm, "Frm_Donnees_rapport"
DoCmd.OpenForm "Frm_Crea_EI"
DoCmd.OpenReport "Frm_Rapport11", , , "[Id_EI]=" & Cidmodif, acHidden
'DoCmd.OpenReport "Frm_Rapport11"
DoCmd.PrintOut acSelection, 1, 2, , 1
DoCmd.Close acReport, "Frm_Rapport11"
'Call SendNotesMail(2)
Else
MyString = "No"
DoCmd.Close
DoCmd.Close acForm, "Frm_Donnees_rapport"
DoCmd.OpenForm "Frm_menu_principal"
'Call SendNotesMail(2)
End If
End Select
line1:
Statut = "En cours"
'DoCmd.OpenReport "Frm_Rapport11", , , "[Id_EI]=" & ID_EI
'DoCmd.OpenReport "Frm_Rapport11"
'DoCmd.PrintOut acSelection, 1, 2, , 1
'Call SendNotesMail(1)
DoCmd.SetWarnings True
line2:
'msg = "Voulez_vous créer un autre EI?"
'Style = vbYesNo + vbInformation + vbDefaultButton2
'Title = "Que voulez-vous faire ?"
'Response = MsgBox(msg, Style, Title)
'
'If Response = vbYes Then
'
' MyString = "Yes"
' DoCmd.Close
' DoCmd.Close acForm, "Frm_Donnees_rapport"
' DoCmd.OpenForm "Frm_Crea_EI"
'
'Else
' MyString = "No"
' DoCmd.Close
' DoCmd.Close acForm, "Frm_Donnees_rapport"
' DoCmd.OpenForm "Frm_menu_process"
'End If
DoCmd.OpenForm "Frm_msg_sortie_ rapport"
DoCmd.SetWarnings False
End Sub |
Partager