'
' Initialize
Dim strName As String
Dim strSQL As String
'
' Escape Single Quote (Apostrophe)
strName = Replace([PRTrans_Export]![SubContractorName], Chr(39), Chr(39) & Chr(39))
'
' Build SQL statement. String data is enclosed within a quotes.
strSQL = _
"UPDATE [PRTrans_Export] " & _
" SET [PRTrans_Export].[SubContractorName] = " & Chr(39) & strName & Chr(39)
'
' Execute SQL Statement
DoCmd.RunSQL (strSQL)
UPDATE [MyTable]
SET [MyTable].[MyLength] = '5'''
When using vba,
Open in new window