строковый функции в ACCESS

Форум для программистов

Сообщение Piloan » Вс янв 13, 2008 6:37 am

Всвем доброго дня.
Есть проблемка!
При выборе района в форме (ACCESS) код в низу в платежку(WORD) заносится одной строкой сам район и реквизиты подряд, хотелось бы чтоб район в платежку не писался, перевод строки происходил скажем после БИК, выравнивание с право последнего ОКАТО
Я не могу разорвать строку .Selection.Text = sText & " ИНН .............380000" не хватает мозгов.




' заполняем ОКАТО района
sText = Me!Район
.Documents("госпошлинаВП.doc").Bookmarks("Raion").Select
If sText = "Приволжский" Then
.Selection.Text = sText & " ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"
End If
If sText = "Вахитовский" Then
.Selection.Text = sText & " ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 КБК 19210806000011000110 ОКАТО 92401367000"
End If
If sText = "Ново-Савиновский" Then
.Selection.Text = sText & " ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401379000"
End If
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Вс янв 13, 2008 8:36 am

Так....
Я правильно понял, что тебе не нужно чтоб в .Selection.Text попадало название района?
Тогда просто сделай так:
.Selection.Text = "ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"

Если я не прав - не серчай =)
Я 2 раза читал твой вопрос =)
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0

Сообщение Piloan » Вс янв 13, 2008 10:16 am

Scalder писал(а):Так....
Я правильно понял, что тебе не нужно чтоб в .Selection.Text попадало название района?
Тогда просто сделай так:
.Selection.Text = "ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"

Если я не прав - не серчай =)
Я 2 раза читал твой вопрос =)


Да все правильно, но
Selection.Text =
не подходит, вообще ни чего не выходит.
Спасибо
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Вс янв 13, 2008 10:30 am

Piloan,
<!--quoteo--><div class='quotetop'>Цитата</div><div class='quotemain'><!--quotec-->Selection.Text <!--QuoteEnd--></div><!--QuoteEEnd-->
А с этой переменной потом, что происходит?
Выбираеться значение из выпадающего списка?
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0

Сообщение Piloan » Вс янв 13, 2008 5:30 pm

Scalder писал(а):Piloan,

А с этой переменной потом, что происходит?
Выбираеться значение из выпадающего списка?


Да, выбирается из списка район и вставляется в квитанцию(word),
потом квитанция идет на принтер (на печать) с данными, затем просто закрывается без сохранения то есть выходит следующий документ.
Всего 7 документов для распечатки, данные остаются в базе ACCESS, WORD документы закрываются без сохранения чередуя дру друга.
Хочется немного отредактировать то есть разорвать строку с переносом на следующую:кореспондетский счет и ОКАТО
Selection.Text = " ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Вс янв 13, 2008 8:34 pm

Ну вот и ответ =)
У тебя текст выбираеться из выпадающего списка, а т.к. если текст сделать другим и его не будет в списке - он не выбираеться.
Значит тебе надо просто изменить заполнение выпадающего списка (плюсом к тому, что я тебе сказал до этого =) )

p.s.
Если интересно, то в ООП это делаеться чуть-чуть по другому =)
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0

Сообщение Piloan » Пн янв 14, 2008 5:32 am

Scalder писал(а):Ну вот и ответ =)
У тебя текст выбираеться из выпадающего списка, а т.к. если текст сделать другим и его не будет в списке - он не выбираеться.
Значит тебе надо просто изменить заполнение выпадающего списка (плюсом к тому, что я тебе сказал до этого =) )

p.s.
Если интересно, то в ООП это делаеться чуть-чуть по другому =)


Если не трудно, напиши как или что можно придумать в моем случае?
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Piloan » Вт янв 15, 2008 4:17 pm

строка разрывается просто
.Selection.Text = sText & " ИНН 1655102196 р/с № 40101810800000010001 " & " БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"
Осталось в месте разрыва сделать перевод строки и как то выравнить по правовому краю вторую часть?
Последний раз редактировалось Piloan Вт янв 15, 2008 4:18 pm, всего редактировалось 1 раз.
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Вт янв 15, 2008 5:44 pm

Piloan,
В твоем случае:
1) найти где происходит заполнение выпадающего списка.
2) Убрать из него не нужные строки (чтоб те которые ты передаешь и наполнение совпадало один в один)
3) Проверить.
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0

Сообщение Piloan » Ср янв 16, 2008 7:38 am

Scalder писал(а):Piloan,
В твоем случае:
1) найти где происходит заполнение выпадающего списка.
2) Убрать из него не нужные строки (чтоб те которые ты передаешь и наполнение совпадало один в один)
3) Проверить.


Так не получится, в выпадающем списке название районов, а в строках реквизиты банка
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Ср янв 16, 2008 8:32 am

Piloan,
Хм... Тогда я вообще не понимаю чего ты хочешь сделать =)
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0

Сообщение Piloan » Чт янв 17, 2008 5:17 pm

Scalder писал(а):Piloan,
Хм... Тогда я вообще не понимаю чего ты хочешь сделать =)

Ответ найден:

Selection.Text = " ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001" <!--coloro:#FF0000--><span style="color:#FF0000"><!--/coloro-->& Chr$(13) & <!--colorc--></span><!--/colorc--> "Кор/сч 19210806000011000110 ОКАТО 92401380000"

Спасибо.
Примером сложной строковой константы может служить выражение:
Chr$(9) & "Отступ" & Chr${10)& Chr$(13)& "Новая строка"
Здесь Chr$ (9) — символ табуляции <Tab>; Chr$ (10), символ возврата каретки; Chr$(13), символ перевода строки. Все подстроки объединены с помощью оператора конкатенации.
Piloan
Капитан
 
Сообщений: 187
Зарегистрирован: Сб янв 04, 2003 7:16 am
Откуда: Казань
Пункты репутации: 0

Сообщение Scalder » Чт янв 17, 2008 7:34 pm

о_О ?!?!?!?!?!?!?!
<!--coloro:green--><span style="color:green"><!--/coloro-->А что я не так сказал?<!--colorc--></span><!--/colorc-->
<!--coloro:red--><span style="color:red"><!--/coloro-->А ты как думал? Конечно это ИМХО<!--colorc--></span><!--/colorc-->

<!--coloro:red--><span style="color:red"><!--/coloro-->>В каждом системном администраторе есть что-то от Бога.<!--colorc--></span><!--/colorc-->
В каждом программисте есть что-то от Бога для Бога. :-р
<a href="http://www.erepublik.com/en/referrer/mrScalder" target="_blank">Изображение</a>
Scalder
Генерал-майор
 
Сообщений: 2587
Зарегистрирован: Пн апр 08, 2002 10:21 am
Пункты репутации: 0


Вернуться в Программирование

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

cron