Hello,
Paste the following function in a standard module:
Code:
Public Function f_ModifyData(strInput As String) As String
Dim strCharacters As String
Dim strOutput As String
strCharacters = Left$(strInput, 2)
strOutput = strCharacters & "***"
f_ModifyData = strOutput
End Function
Paste the following SQL statement in your query designer in SQL View:
Code:
UPDATE tblData SET tblData.DataItem = f_ModifyData(DataItem);
Or in query design view:
Field: DataItem
Table: tblData
UpdateTo: f_ModifyData(DataItem)
HTH,
Bob
Field