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

ник: Дядя Федор
исправил с условием
SELECT Таблица1.Номер, str_to_num([Номер]) AS Выражение2
FROM Таблица1
WHERE (((str_to_num([Номер]))>=2001 And (str_to_num([Номер]))<=3002))
ORDER BY str_to_num([Номер]);


где в модуле описана ф-я

Public Function str_to_num(s As String) As Long ' или as string если 0-важен Dim sn As String Dim i As Integer Const v = "0123456789" sn = "" For i = 1 To Len(s)  sn = sn & IIf(InStr(v, Mid(s, i, 1)) > 0, Mid(s, i, 1), "") Next str_to_num = CInt(sn) ' или str_to_num = sn, если 0-важен End Function

или по Explorer'у

Public Function str_to_num(s As String) As Long ' или as string если 0-важен Dim sn As String Dim i As Integer sn = "" For i = 1 To Len(s)  sn = sn & IIf(IsNumeric(Mid(s, i, 1)), Mid(s, i, 1), "") Next str_to_num = CInt(sn) 'или str_to_num = sn, если 0-важен End Function