Private Sub Btn_Ajout_Click()
If Me.txt_nom <> "" And Me.txt_description <> "" And Me.txt_prix <> "" And Me.txt_mini <> "" Then
If Update_Fields( _
"Insert into " & Get_Table([T_Article]) & _
" (`Ref article`,Nom,Fournisseur,description,`Prix unitaire`,`mini`,Status) " & _
" values ( '" & Me.Label_info.Caption & "'" & _
",'" & Me.txt_nom & "'" & _
",'" & Me.Cbx_fournisseur1 & "'" & _
",'" & Me.txt_description & "'" & _
",'" & CCur(Me.txt_prix) & "'" & _
",'" & Me.txt_mini & "'" & _
",'Active'" & _
")") Then
Worksheets("Config").[D19] = Worksheets("Config").[D19] + 1
ThisWorkbook.Save
Unload Me
Else
MsgBox Err.Description
End If
End If
End Sub