Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
Привет всем!
Вопрос таков: Есть база на SQl
Я сделала связь с ее таблицами. Эти таблицы я не могу изменять. Но мне надо формировать различные отчеты. И как в отчете избавиться от обозначения кавычек _&_guot_;_? Там как в таблицах хранится, так в Ворд и вставляется! В VBA ведь не так преобразовываются.
А мне нужны кавычки!!!
Просто найти и заменить я не могу! Ошибки!
18 ноя 05, 07:18    [2081690]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
если у вас mdb, стройте отчет на запросе, а в запросе используйте функцию Replace.
18 ноя 05, 07:40    [2081711]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
Replace не позволяет изменить знак & и ; ни в запросе, ни в VBA. Уже пробовала. Да еще и Заменить на ("""), тоже касяк!
18 ноя 05, 07:49    [2081720]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
'Запрос на выборку. Результат: реквизиты 1 предприятия, которое было выбрано на форме
Set qd = CurrentDb.QueryDefs![Запрос1]
For Each tParam In qd.Parameters
    tParam.Value = Eval(tParam.Name)
Next
Set rs = qd.OpenRecordset()
f = "'&guot;'"
st = "'BBB'"
N = Replace(rs![rekvizit], f, st)
'ищем поле в ворде
wdd.Bookmarks("pole12").Select
'заносим в это поле результаты
wda.Selection.TypeText Text:=N

Никаких ошибок и НИКАКИХ изменений!!!
18 ноя 05, 08:15    [2081746]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Можно посмотреть реальные данные? Что-то меня ваши апострофы вот тут
f = "'&guot;'"
смущают.

?Replace("_&_guot_;_", "&", "ЗАМЕНА")
_ЗАМЕНА_guot_;_
18 ноя 05, 09:20    [2081871]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
Если я здесь напишу _&_guot_;_ без нижнего слеша, то в сообщении получится посто "
Базой SQL пользуются через Интернет и там также появляется кавычка. А в Accessе вылазиет _&_guot_;_ без слеша и заменить программно я не могу.
Попробуйте, может у кого получится.
18 ноя 05, 13:59    [2083487]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Запутавшийся
Guest
Запости картинку с куском таблицы, чтобы было видно, что там на самом деле.
18 ноя 05, 14:13    [2083577]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Fat Lamer
Member

Откуда:
Сообщений: 360
Anytka
'Запрос на выборку. Результат: реквизиты 1 предприятия, которое было выбрано на форме
Set qd = CurrentDb.QueryDefs![Запрос1]
For Each tParam In qd.Parameters
    tParam.Value = Eval(tParam.Name)
Next
Set rs = qd.OpenRecordset()
f = "'&guot;'"
st = "'BBB'"
N = Replace(rs![rekvizit], f, st)
'ищем поле в ворде
wdd.Bookmarks("pole12").Select
'заносим в это поле результаты
wda.Selection.TypeText Text:=N

Никаких ошибок и НИКАКИХ изменений!!!


В отладке проверяли? Может быть, что N изменилось, а фигня с присвоением идет. Кстати Replace у меня прокатил на ура (в Immediate Window).
18 ноя 05, 14:52    [2083841]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Fat Lamer
Member

Откуда:
Сообщений: 360
Anytka
'Запрос на выборку. Результат: реквизиты 1 предприятия, которое было выбрано на форме
Set qd = CurrentDb.QueryDefs![Запрос1]
For Each tParam In qd.Parameters
    tParam.Value = Eval(tParam.Name)
Next
Set rs = qd.OpenRecordset()
f = "'&guot;'"
st = "'BBB'"
N = Replace(rs![rekvizit], f, st)
'ищем поле в ворде
wdd.Bookmarks("pole12").Select
'заносим в это поле результаты
wda.Selection.TypeText Text:=N

Никаких ошибок и НИКАКИХ изменений!!!


В отладке проверяли? Может быть, что N изменилось, а фигня с присвоением идет. Кстати Replace у меня прокатил на ура (в Immediate Window).
18 ноя 05, 14:54    [2083853]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
На всякий случай: там не guot, а quot (отсюда слово квота, а не гвота). Может, в этом дело?
18 ноя 05, 15:30    [2084110]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
варпа
Guest
Alexander G
Можно посмотреть реальные данные? Что-то меня ваши апострофы вот тут
f = "'&guot;'"
смущают.

?Replace("_&_guot_;_", "&", "ЗАМЕНА")
_ЗАМЕНА_guot_;_


Анюта, кажется, джентельмен прав. Нужно

f = "&guot;"
18 ноя 05, 15:34    [2084140]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
Извините, я действительно опечаталась! :-)

К сообщению приложен файл. Размер - 0Kb
21 ноя 05, 06:21    [2088337]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Какая разница....
?Replace("OOO "Управление рабочего снабжения"", """, """")
OOO "Управление рабочего снабжения"

Все в VBA работает.
21 ноя 05, 07:08    [2088357]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Alexander G
Member

Откуда: Чукчи мы, однако
Сообщений: 3270
Прошу извинить

К сообщению приложен файл. Размер - 0Kb
21 ноя 05, 07:11    [2088359]     Ответить | Цитировать Сообщить модератору
 Re: Что это такое и как от этого избавиться?  [new]
Anytka
Member

Откуда: Томская область, г. Стрежевой
Сообщений: 136
Спасибо за помощь!
21 ноя 05, 07:53    [2088389]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить