Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
нужно попробовать так:
dim My_Str as string '
dim i as long
My_Str = [Строка из поля]

for i=len(My_St) to 1 step -1
if isNumeric mid(My_St,i,1) = true then
exit for
end if
next i
' может надо будет i =i+1

Соседнее_Поле=left( My_Str,i)