Private Sub Set_tf(ByRef Ta() As String)
Ta(0) = "'" & Trim$(TBx(1).Text) & "'"
Ta(1) = "'" & Trim$(TBx(0).Text) & "'"
Ta(2) = "'" & Trim$(TBx(2).Text) & "'"
Ta(3) = "'" & Trim$(TBx(3).Text) & "'"
Ta(4) = "'" & Trim$(TBx(4).Text) & "'"
Ta(5) = "'" & Trim$(TBx(5).Text) & "'"
Ta(6) = "'" & Trim$(TBx(6).Text) & "'"
Ta(7) = "'" & Trim$(MBx(0).Text) & "'"
Ta(8) = "'" & Trim$(MBx(1).Text) & "'"
Ta(9) = "'" & Left$(Combo(0).Text, 1) & "'"
Ta(10) = "'" & Trim$(TBx(9).Text) & "'"
Ta(11) = "'" & Trim$(TBx(10).Text) & "'"
Ta(12) = "'" & Left$(Combo(1).Text, 1) & "'"
Ta(13) = Val(TBx(12).Text)
Ta(14) = Val(TBx(13).Text)
Ta(15) = Val(TBx(14).Text)
Ta(16) = "'" & Trim$(TBx(7).Text) & "'"
Ta(17) = "'" & Trim$(TBx(8).Text) & "'"
Ta(18) = "'#" & DTPik(0).Value & "#'"
Ta(19) = "'" & Trim$(MBx(2).Text) & "'"
Ta(20) = "'" & Trim$(RTBx.Text) & "'"
Ta(21) = "'#" & DTPik(1).Value & "#'"
Ta(22) = "'#" & DTPik(2).Value & "#'"
Ta(23) = Chk(0).Value
Ta(24) = Chk(1).Value
Ta(25) = Val(TBx(11).Text)
End Sub
Private Sub Update_employee()
On Error GoTo DispError
Dim sSQL As String, cn As ADODB.Connection, I As Integer, Tf(25) As String
Me.MousePointer = 11
Call Set_tf(Tf())
sSQL = "UPDATE Employees SET "
sSQL = sSQL & "First_name = " & Tf(0) & ", "
sSQL = sSQL & "Last_name = " & Tf(1) & ", "
sSQL = sSQL & "Middle = " & Tf(2) & ", "
sSQL = sSQL & "Address = " & Tf(3) & ", "
sSQL = sSQL & "City = " & Tf(4) & ", "
sSQL = sSQL & "State = " & Tf(5) & ", "
sSQL = sSQL & "Zip = " & Tf(6) & ", "
sSQL = sSQL & "Phone = " & Tf(7) & ", "
sSQL = sSQL & "Alt_phone = " & Tf(8) & ", "
sSQL = sSQL & "Type = " & Tf(9) & ", "
sSQL = sSQL & "User_id = " & Tf(10) & ", "
sSQL = sSQL & "Password = " & Tf(11) & ", "
sSQL = sSQL & "Status = " & Tf(12) & ", "
sSQL = sSQL & "Commission_p = " & Tf(13) & ", "
sSQL = sSQL & "Commission_f = " & Tf(14) & ", "
sSQL = sSQL & "Commission_m = " & Tf(15) & ", "
sSQL = sSQL & "DLN = " & Tf(16) & ", "
sSQL = sSQL & "DL_state = " & Tf(17) & ", "
sSQL = sSQL & "DL_exp = " & Tf(18) & ", "
sSQL = sSQL & "SSN = " & Tf(19) & ", "
sSQL = sSQL & "Notes = " & Tf(20) & ", "
sSQL = sSQL & "Start_date = " & Tf(21) & ", "
sSQL = sSQL & "End_date = " & Tf(22) & ", "
sSQL = sSQL & "Salary_chk = " & Tf(23) & ", "
sSQL = sSQL & "Comn_chk = " & Tf(24) & ", "
sSQL = sSQL & "M_salary = " & Tf(25) & " "
sSQL = sSQL & "WHERE Emp_id = " & Val(Lbl1.Caption)
Set cn = New ADODB.Connection 'weve declared it as a ADODB connection lets set it.
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & App.Path & "\Vehicle_sales.mdb" 'this is the connection string.
cn.Open
Call cn.Execute(sSQL)
cn.Close
Set cn = Nothing
Me.MousePointer = 0
Exit Sub
DispError:
Call ShowError(sSQL, "ADEEmployeeP1", "Update_employee", Err.Number, Err.Description, Err.Source)
Me.MousePointer = 0
cn.Close
Set cn = Nothing
End Sub