How can code work with 'dbCurrent' instead of 'CurrentDb'?
Your UPDATE syntax is not correct. Need to concatenate. Missing quote marks.
dbCurrent.Execute "UPDATE tbl_Bulk_Email SET E_Mail ='#mailto:" & rsa!E_Mail & "#'"
Also, this code is incomplete. It will update all records with the same email address. Need a WHERE clause. Or:
Code:
Dim rsa As DAO.Recordset
strSQL = "SELECT E_Mail FROM tbl_Bulk_Email" 'E-Mail address field in temporary table stored as text
'Open a recordset of EMail addresses
Set rsa = dbCurrent.OpenRecordset(strSQL)
If Not rsa.BOF And Not rsa.EOF Then
rsa.MoveFirst
'Loop through the records updating the addresses to mailto:hyperlinks
Do While Not rsa.EOF
rsa.Edit
rsa!E_Mail = "#mailto:" & rs!E_Mail & "#"
rsa.Update
rsa.MoveNext
Loop
End If
However, don't need to loop recordset. Just update all records in one UPDATE action. All that code can be replaced with one line (note the use of embedded apostrophes and &:
CurrentDb.Execute "UPDATE tbl_Bulk_Email SET E_Mail ='#mailto:' & [E_Mail] & '#'"