Всвем доброго дня.
Есть проблемка!
При выборе района в форме (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
строковый функции в ACCESS
Сообщений: 13
• Страница 1 из 1
Scalder » Вс янв 13, 2008 8:36 am
Так....
Я правильно понял, что тебе не нужно чтоб в .Selection.Text попадало название района?
Тогда просто сделай так:
.Selection.Text = "ИНН 1655102196 р/с № 40101810800000010001 БИК 049205001 Кор/сч 19210806000011000110 ОКАТО 92401380000"
Если я не прав - не серчай =)
Я 2 раза читал твой вопрос =)
Я правильно понял, что тебе не нужно чтоб в .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>
<!--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-->
А с этой переменной потом, что происходит?
Выбираеться значение из выпадающего списка?
<!--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>
<!--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.
Если интересно, то в ООП это делаеться чуть-чуть по другому =)
У тебя текст выбираеться из выпадающего списка, а т.к. если текст сделать другим и его не будет в списке - он не выбираеться.
Значит тебе надо просто изменить заполнение выпадающего списка (плюсом к тому, что я тебе сказал до этого =) )
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>
<!--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"
Осталось в месте разрыва сделать перевод строки и как то выравнить по правовому краю вторую часть?
.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) Проверить.
В твоем случае:
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>
<!--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>
<!--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>
<!--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
Сообщений: 13
• Страница 1 из 1
Кто сейчас на форуме
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1