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
| Private Sub Initiation_Click()
Dim strsQL As String
Dim Rs
Dim mytime
mytime = Time
OpenConnexion Fichier
sql = "select * from [" & Feuille1 & "] where ucase(trim(NUM_CLIENT)) ='" & Trim(TextBox1.Value) & "';"
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
strsQL = "insert into [" & Feuille1 & "] ([DATE_INITIATION],[NUM_CLIENT],[REVENU],[CUMUL_ENGAGEMENT],[VISA_DEMANDE],[AUTORISATION],[SOLDE_AVANT_VISA],[SOLDE_APRES_VISA],[SITUATION_NETTE],[DELAI_DE_RECUPERATION],[COMMENTAIRE_CC],[NIVEAU_URGENCE],[CODE_INITIATEUR],[HEURE_ENVOI]) "
strsQL = strsQL & "Values ('" & Trim(Date) & "','" & Trim(TextBox1.Value) & _
"','" & Trim(TextBox2.Value) & "','" & Trim(TextBox7.Value) & "','" & _
Trim(TextBox8.Value) & "','" & Trim(TextBox9.Value) & "','" & Trim(TextBox10.Value) & "','" & Trim(TextBox11.Value) & "','" & Trim(TextBox12.Value) & "','" & Trim(TextBox13.Value) & "', '" & TextObjet.Value & " ', '" & Label20.Caption & " ', '" & Trim(TextBox14.Value) & " ', '" & Trim(mytime) & "');"
Cnx.Execute strsQL
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
End Sub |
Partager