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