M
May
This is not a hard job, but tough to explain how to do it.
dim rst as new adodb.recordset
dim criter as string
dim result as string
rst.open "tablename", currentproject.connection,
adopenkeyset
do until rst.eof
for i = 1 to len(rst!name)
criter = mid(rst!name,i,1)
case a
result = "01"
case b
result = "02"
so on and on
hope you have an idea now
May
MCP in Access and SQL Server
dim rst as new adodb.recordset
dim criter as string
dim result as string
rst.open "tablename", currentproject.connection,
adopenkeyset
do until rst.eof
for i = 1 to len(rst!name)
criter = mid(rst!name,i,1)
case a
result = "01"
case b
result = "02"
so on and on
hope you have an idea now
May
MCP in Access and SQL Server