Comment Field Update

Sub Comments()

Dim myUser As String

myUser = Environ("username")

myUser = StrConv(myUser, vbProperCase)

Asset = "123456789"

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb

'Set rs = New ADODB.Recordset

Set rs = db.OpenRecordset("select * from qryTitles")

'DoCmd.GoToRecord , "data", acNewRec

rs.OpenRecordset

With rs

While (Not .EOF)

contract_id_var = rs.Fields("[contract_id]")

asset_id_var = rs.Fields("[asset_id]")

customer_name_var = rs.Fields("[Customer Name]")

equip_desc_var = rs.Fields("[equip_desc]")

serial_no_var = rs.Fields("[serial_no]")

Processed_By_var = rs.Fields("[Processed By]")

Complete_Date_var = rs.Fields("[Complete Date]")

Comments_var = rs.Fields("[Comments]")

If Trim(asset_id_var) = Asset Then

TempVar = Comments_var

Comments_Update_var = myUser & " " & Now & ": Email Blast." & vbCrLf & TempVar

End If

rs.MoveNext

Wend

rs.Close

End With

Dim db4 As DAO.Database

Dim rs4 As DAO.Recordset

Set db4 = CurrentDb

'Set rs = New ADODB.Recordset

Set rs4 = db.OpenRecordset("select * from qryTitles")

'DoCmd.GoToRecord , "data", acNewRec

rs4.OpenRecordset

With rs4

While (Not .EOF)

contract_id_var = rs4.Fields("[contract_id]")

asset_id_var = rs4.Fields("[asset_id]")

customer_name_var = rs4.Fields("[Customer Name]")

equip_desc_var = rs4.Fields("[equip_desc]")

serial_no_var = rs4.Fields("[serial_no]")

Processed_By_var = rs4.Fields("[Processed By]")

Complete_Date_var = rs4.Fields("[Complete Date]")

Comments_var = rs4.Fields("[Comments]")

If Trim(asset_id_var) = Asset Then

rs4.Edit

rs4.Fields("[Comments]") = Comments_Update_var

rs4.Update

'rs4.Close

End If

rs4.MoveNext

Wend

rs4.Close

End With

MsgBox "Process Completed"

End Sub