Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Задачки по Access (http://forum.oszone.net/showthread.php?t=44822)

SVlad 02-02-2005 18:17 294737

Задачки по Access
 
Может кто подскажет как из Поля1 получить Поле2 без определенных символов (например в Поле1 "61-6985/6 STD" - надо получить в поле2 (или запросе) "6169856STD" - т.е. удалить все символы кроме цифр и латинских букв)

SVlad 14-04-2005 11:53 315580

Неужели нет знатоков Access, которые могли бы написать такую функцию? как все-таки очистить от лишних символов поля с большим объемом информации (500000 записей) если делать обычной заменой - очень долго и заменяет только 8-9 тыс. - чтобы была возможность отмены

hasherfrog 18-04-2005 10:12 316720

Точно уже было...
Ладно.

http://songhaysystem.com/document.ph...get=2076071635
Ctrl+F "ReplaceChars"

SVlad 30-04-2005 14:12 320632

SVlad
Спасибо что откликнулись. Вставил в модуль, вызываю функцию в запросе (хочу удалить пробелы в поле [CROSS]![KKKNummer])
Pin: ReplaceChars([CROSS]![KKKNummer];" ";"";10;1;0)
а Access ругается Ambiguous name. in query expression 'ReplaceChars([CROSS]![KKKNummer];" ";"";10;1;0)'

hasherfrog 30-04-2005 14:27 320638

Эммм. Может вместо ReplaceChars([CROSS]![KKKNummer];" ") сделать что-нибудь типа a=[CROSS]![KKKNummer].AsString:ReplaceChars(a;" "):[CROSS]![KKKNummer]=a

Я плохо помню как там всё правильно пишется, извините... VBA - не мой конёк

aESThete 01-05-2005 08:26 320766

имхо в запросе выполняются не всегда/не все VBA функции
попробуйте в одном из модулей базы определить глобальную (public) функцию вида:

Public Function RemoveSpace(S as String) As String
RemoveSpace = ReplaceChars(S;" ";"";10;1;0)
End Function

соответственно в запросе:

select RemoveSpace([CROSS]![KKKNummer]) as Pin ....


Время: 07:45.

Время: 07:45.
© OSzone.net 2001-