|
|
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Привет всем!!! Есть поле "НомераДокументов" с разными данными: УЕ195867, 7894856685, М465768, мне нужно получить поле с данными: 195867, 7894856685, 465768, т.е. если первые буквы, то их откинуть, если цифры, то оставить. Попробывала написать вот так: Номер: IsNumeric(Mid([НомерДокумента];1;2))=ложь, но.......? Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 13:05:06 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Я бы свою функцию написал. Если бы точно знать, что, например, может быть либо 2 буквы либо нисколько, то можно было бы напр. IIF + isnumeric+ left+mid использовать. Если быстро, дешево (т.е. даром) и ненадежно (без гарантий) :-), то: Public Function LetNum(N As String) As String On Error GoTo ERRTRAP If IsNumeric(N) Then LetNum = N Else LetNum = LetNum(Mid(N, 2)) End If EXIT_FUN: Exit Function ERRTRAP: MsgBox "Произошла ошибка" & err.Number & ". " & err.Description, vbInformation Resume EXIT_FUN End Function С буквами в конце НЕ РАБОТАЕТ! - нужно дописать проверку на условие IsNumeric(Right(N,1)) -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 13:37:23 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Например, так: Public Function LetNum(N As String) As String On Error GoTo ERRTRAP If IsNumeric(N) Then LetNum = N Else If IsNumeric(Right(N, 1)) = False Then MsgBox ("Буква в конце") Exit Function End If LetNum = LetNum(Mid(N, 2)) End If EXIT_FUN: Exit Function ERRTRAP: MsgBox "Произошла ошибка " & err.Number & ". " & err.Description, vbInformation Resume EXIT_FUN End Function Пусть меня поправят, ибо я не программист. Надеюсь, что с этим делать дальше, знаешь. Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 13:48:18 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
MadinaПривет всем!!! Есть поле "НомераДокументов" с разными данными: УЕ195867, 7894856685, М465768, мне нужно получить поле с данными: 195867, 7894856685, 465768, т.е. если первые буквы, то их откинуть, если цифры, то оставить. Попробывала написать вот так: Номер: IsNumeric(Mid([НомерДокумента];1;2))=ложь, но.......? Заранее спасибо. А так ? Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. Я так думая! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 13:48:25 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Давид, а ты свою zzz проверял? Ну и как? Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 13:56:50 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Давид, а ты свою zzz проверял? Ну и как? Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 А как же. Обижаеш началник! Ну правда надо так... Код: plaintext Звиняйте, бывает -> Очепятка! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:07:16 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Зрю через стены, что у тебя Option Explicit не стоит. А напрасно, батенька! -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:14:32 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Зрю через стены, что у тебя Option Explicit не стоит. А напрасно, батенька! Ну не стоит... Ну упал... На пол... Но ведь работает и подходит к случаю, а если не позволяет воспитание, поставтье Код: plaintext 1. С приветом! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:21:42 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Давид, можно вопрос, вот я написала в модуле ту функцию, что вы мне дали, назвала ее RreDaty() потом когда в запросе я пишу в строке условия, в скобки я должна написать название поля [НомерДокумента], да? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:21:49 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Все равно не работает - по крайней мере у меня. А вот если все-таки объявить функции аргумент (как оно здесь по логике вещей и требуется) Public Function (Field as String) as String etc., то работает. Что я сделал. Вставил твою функцию в модуль (пришлось дописать dim i as Integer). Вызвал в запросе. Выдает ошибку TypeMismatch. -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:23:07 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Мадина, извините на навязчивость, но любопытно, мой вариант у вас сработал? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:23:56 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
MadinaДавид, можно вопрос, вот я написала в модуле ту функцию, что вы мне дали, назвала ее RreDaty() потом когда в запросе я пишу в строке условия, в скобки я должна написать название поля [НомерДокумента], да? Madina Пожалуйста, напишие запрос, о котором Вы говорите. К сожалению я не понял, о чем конкретно речь. Isrander68 Возможно потому, что у меня А'97 ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:34:07 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Извините Искандер68, но нет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:39:29 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Давид у меня ещё одна проблема, у меня это поле числовое, а в процедуре тип переменным дали строковые, вот., как быть... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:46:07 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
MadinaДавид, можно вопрос, вот я написала в модуле ту функцию, что вы мне дали, назвала ее RreDaty() потом когда в запросе я пишу в строке условия, в скобки я должна написать название поля [НомерДокумента], да? Кажется понял. Это я проверя, потом копировал, вот кое-что и пропало.Извините. Исправленное... Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:47:55 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
я поменяла на текстовый, а она все равно выдает ошибку: "Неопределенная функция PreDaty() в выражение" Сам запрос простой : SELECT ГВЦ.НомерДокумента FROM ГВЦ WHERE (((ГВЦ.НомерДокумента)=PreDaty())); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:51:22 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Мадина, а что вы сделали (с моей функцией), опишите, пожалуйста -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 14:59:33 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Madinaя поменяла на текстовый, а она все равно выдает ошибку: "Неопределенная функция PreDaty() в выражение"] Ничего не понял!!! Если использовать в запросе ф-цию то ей надо передать поле в качастве параметра и саму ф-цию переписать с параметрами. Но тогда что с чем в запросе сравнивать??? Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:03:04 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
"Давид у меня ещё одна проблема, у меня это поле числовое, а в процедуре тип переменным дали строковые, вот., как быть..." Это какое поле числовое, в котором "УЕ195867, 7894856685, М465768"? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:03:55 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Давид, а у тебя моя функция сработала? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:04:53 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Давид, а у тебя моя функция сработала? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 Не пробовал. НО, а если в переди 1 буква, или сзади 3, а в середине 2 . Необходимо изымать ВСЕ буквы, оставляя только цифири. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:12:21 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Насколько я понял задачу, в значении поля может быть некоторое количество букв (1-2). Остальные - цифру. Исходя из этого и написал функцию. Если нужно вычленить все цифры, то само собой, нужно по другому делать. -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:17:18 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:19:16 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
ДАВИД Iskander68 Давид, а у тебя моя функция сработала? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 Не пробовал. НО, а если в переди 1 буква, или сзади 3, а в середине 2 . Необходимо изымать ВСЕ буквы, оставляя только цифири. написано что первые буквы остальные цифры ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:21:02 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
ББББББББББББ Можно сначала, я уже сама запуталась и кажеться вас запутала, столько данных уйма........ Так вот у меня текстовое поле [НомерДокументов], они вот такого вида УЕ456326, М73576, 67474734768, 00000999875, и все . Две и одна буква. Мне приходят другие данные 456326, 73576, 67474734768, короче без букв. и мне нужно их сравнить, те и эти. Вот какое условие нужно поставить, что бы в поле у меня стали только цифры без букв. И большое вам спасибо за помощь :-* ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:28:10 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Похоже, Мадина всех кинула :-) Байке, твоя работает. Но если вдруг есть буква после цифры, то она эту букву тоже включает. У меня возвращает то, что после последней буквы. У Давида (с необходимыми исправлениями) возвращает все цифры из строки. Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:29:56 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Мадина, осмелюсь повторить вопрос. Что вы сделали (чтобы моя функция не сработала)- по шагам? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:31:50 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
SELECT PreDaty(ГВЦ.НомерДокумента) FROM ГВЦ INNER JOIN [Табл. с цифрами] PreDaty(ГВЦ.НомерДокумента) = [Табл. с цифрами].[Поле с цифрами] ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:36:53 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Похоже, Мадина всех кинула :-) Байке, твоя работает. Но если вдруг есть буква после цифры, то она эту букву тоже включает. У меня возвращает то, что после последней буквы. У Давида (с необходимыми исправлениями) возвращает все цифры из строки. Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 В соответвии с заданием ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:41:37 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
ДАВИДSELECT PreDaty(ГВЦ.НомерДокумента) FROM ГВЦ INNER JOIN [Табл. с цифрами] PreDaty(ГВЦ.НомерДокумента) = [Табл. с цифрами].[Поле с цифрами] Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:43:59 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Блин, так у всех делает то, что нужно Мадине. Токо что-то она не спешит отчитаться о проверках. -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 15:45:53 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Блин, так у всех делает то, что нужно Мадине. Токо что-то она не спешит отчитаться о проверках. А НУЖНО-ЛИ ??? ВОТ ИЗ ЗЕ КВЕЩИН !!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 20:16:06 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Элементарные правила вежливости, my dear Watson. -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 20:17:53 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 Элементарные правила вежливости, my dear Watson. Миль гранд пардонте! Причем тут это. Мы веть говорим о Даме??? Забыл человек, замотался... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.11.2004, 20:55:45 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
ВООБще то я ни кого не кидала!!!! На счет благадарности я помню, но просто по нашему времени было уже позно и я с работы пошла домой (всетки как вы сказали я дама, позно ходить страншно ;-) ), вы это не учли, А на счет отчиталась по работе ваших подсказак, так пока у меня не работает, стараемся тут. Так что, без обид :)) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 12:07:07 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Мадина, при чем здесь благодарность? Вопрос был два раза: что и как было сделано, чтобы работающие функции отказывались работать? Может, что-то не так делаете? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 12:10:17 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Сам запрос я переделала, он вот такой: UPDATE [гвц(опыт)] SET [гвц(опыт)].НомерДокумента = LetNum([гвц(опыт)]!НомерДокумента); В модуле написала вот так: Option Compare Database Public Function LetNum(N As String) As String On Error GoTo ERRTRAP If IsNumeric(N) Then LetNum = N Else If IsNumeric(Right(N, 1)) = False Then MsgBox ("Буква в конце") Exit Function End If LetNum = LetNum(Mid(N, 2)) End If EXIT_FUN: Exit Function ERRTRAP: MsgBox "Произошла ошибка " & err.Number & ". " & err.Description, vbInformation Resume EXIT_FUN End Function Может что я не так делаю, у меня уже сил нэту, на все нюансы которые выходят каждый день :' ' ( Большое Вам спасибо что помогаете ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 13:13:44 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
А в какой модуль? Если функция в запросе, то нужно в общий модуль, а не в модуль формы - если Вы вдруг не знаете. А как, кстати "не получается"? Сообщение об ошибке, выползает, или еще что нибудь? -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 13:34:15 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
ДАВИД Код: plaintext 1. Напоминаю уще раз ! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 13:56:09 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Iskander68 : Это уж я знаю, пишу в общем модуле. Когда запускаю запрос выдает ошибку в модуле, на 2 и 16 строке :-(. ДАВИД : Когда запускаю запрос, который вы написали, мне выходит ошибка что не может равняться [Табл. с цифрами].[Поле с цифрами] или недопустимое выражение :-( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 14:12:19 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
2 и 16 строка это что? какие команды? Можете обработчик ошибок пока в комментарий убрать. -- Regards Alexander Artamonov Posted via ActualForum NNTP Server 1.1 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.11.2004, 14:24:36 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
MadinaIskander68 : Это уж я знаю, пишу в общем модуле. Когда запускаю запрос выдает ошибку в модуле, на 2 и 16 строке :-(. ДАВИД : Когда запускаю запрос, который вы написали, мне выходит ошибка что не может равняться [Табл. с цифрами].[Поле с цифрами] или недопустимое выражение :-( Madina, вы вопрос нормально сформулируйте. Что вам нужно? А то получается вопрос глуго со слепым. Приведите пример вашего запроса, требуемый результат, таблицы с полями которые нужно вывести и данные которые нужно сравнить. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2004, 11:59:08 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Извените, фигня какая-то. Там должно быть разговор глухого со слепым. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2004, 12:01:41 |
|
||
|
Преобразовать данные поля!!
|
|||
|---|---|---|---|
|
#18+
Madina Номер: IsNumeric(Mid([НомерДокумента];1;2))=ложь текущий частный случай (без VBA) Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.11.2004, 14:21:35 |
|
||
|
|

start [/forum/topic.php?all=1&fid=45&tid=1670166]: |
0ms |
get settings: |
9ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
44ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
53ms |
get tp. blocked users: |
1ms |
| others: | 223ms |
| total: | 354ms |

| 0 / 0 |
