Подскажите, как автоматизировать код / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите, как автоматизировать код

16 сообщений из 16, страница 1 из 1

Подскажите, как автоматизировать код

#32837232

Пользователь2

Гость

Access 2000. MDB.

Есть форма. На ней организован поиск по номеру.

При появлении данных, эти даные выделяются жирным шрифтом.

Код такой:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

    If Me.fldF1 <>  0  Then
        Me.fldF1.FontBold = True
    Else
        Me.fldF1.FontBold = False
    End If
    If Me.fldF2 <>  0  Then
        Me.fldF2.FontBold = True
    Else
        Me.fldF2.FontBold = False
    End If
    If Me.fldF3 <>  0  Then
        Me.fldF3.FontBold = True
    Else
        Me.fldF3.FontBold = False
    End If
    If Me.fldF4 <>  0  Then
        Me.fldF4.FontBold = True
    Else
        Me.fldF4.FontBold = False
    End If

Все работает. Одно но - очень громоздко, когда полей более 15.

Подскажите как можно автоматизировать такой код?

...

Рейтинг:

0 / 0

21.12.2004, 15:30:23

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32837247

e_basil

Участник

Откуда: Москва (и окрестности)

Сообщения: 1 767

Рейтинг: 0 / 0

Код: plaintext

1.
2.
3.
4.
5.

dim ct as control
dim i as integer
for i =  1  to n
set ct = me("fldF" & i)
ct.FontBold = (ct <>  0 )
next

a еще лучше условное форматирование - кода не надо

...

Рейтинг:

0 / 0

21.12.2004, 15:36:48

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32837281

Пользователь2

Гость

А с использованием условного форматирования, как будет выглядить?

...

Рейтинг:

0 / 0

21.12.2004, 15:46:06

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32837391

Пользователь2

Гость

e_basil, спасибо. Все работает.

А как модифицировать код:

Код: plaintext

1.
2.
3.
4.
5.
6.

dim ct as control
dim i as integer
for i =  1  to n
set ct = me("fldF" & i)
ct.FontBold = (ct <>  0 )
next

Если поля будут не fldF1, fldF2, fldF3, ..., fldFn , а fldF1, fldF3, fldF10, fldF15 ?

Т.е. нужно, чтобы, если нет такого поля, программа переходила к следущему и т.д.

...

Рейтинг:

0 / 0

21.12.2004, 16:16:22

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32837609

e_basil

Участник

Откуда: Москва (и окрестности)

Сообщения: 1 767

Рейтинг: 0 / 0

Пользователь2e_basil, спасибо. Все работает.

А как модифицировать код:

Код: plaintext

1.
2.
3.
4.
5.
6.

dim ct as control
dim i as integer
for i =  1  to n
set ct = me("fldF" & i)
ct.FontBold = (ct <>  0 )
next

Если поля будут не fldF1, fldF2, fldF3, ..., fldFn , а fldF1, fldF3, fldF10, fldF15 ?

Т.е. нужно, чтобы, если нет такого поля, программа переходила к следущему и т.д.

1. on error resume next
условное форматирование см в хелпе

...

Рейтинг:

0 / 0

21.12.2004, 17:26:28

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838168

Пользователь2

Гость

Пытаюсь использовать автоматизированный код с использованием условного форматирования:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

    For i =  1  To  70 
        Set ctr = Me("Поле" & i)
        If ctr <>  0  Then
            With ctr.FormatConditions
                .BackColor = RGB( 255 ,  255 ,  255 )
                .FontBold = True
                .ForeColor = RGB( 255 ,  0 ,  0 )
            End With
        Else
            ctr.FormatConditions = False
        End If
        On Error Resume Next
    Next

Ругается на строчку:

Код: plaintext

.BackColor = RGB( 255 ,  255 ,  255 )

Пишет, что объект не поддерживает данный метод.

Подскажите где ошибка?

...

Рейтинг:

0 / 0

22.12.2004, 09:24:20

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838758

e_basil

Участник

Откуда: Москва (и окрестности)

Сообщения: 1 767

Рейтинг: 0 / 0

а не проще ли в реж констр-ра формы установить условное форматирование для выбранных полей?

ошибка может быть из-за того, что

Код: plaintext

On error resume next

стоит после выполнения кода, и

Код: plaintext

set ctr

указывает на несуществующий контрол или контрол типа, не поддерживающего метод

...

Рейтинг:

0 / 0

22.12.2004, 12:09:22

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838819

Shark

Участник

Сообщения: 2 357

Рейтинг: 0 / 0

Для отбора нужных контролов удобно испльзовать tag
For c1 in Me.Controls
If c1.Tag="Этот надо обработать" then Чтотоужасное
Next c1

...

Рейтинг:

0 / 0

22.12.2004, 12:22:17

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838825

Shark

Участник

Сообщения: 2 357

Рейтинг: 0 / 0

В смысле for each :^)

...

Рейтинг:

0 / 0

22.12.2004, 12:23:22

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838891

Пользователь2

Гость

У ctr нет такого свойства.

А если пишу Me.Поле1. то есть такое свойство FormatConditions.

Ведь:

Код: plaintext

Set ctr = Me("Поле" & i)

Где я ошибаюсь?

...

Рейтинг:

0 / 0

22.12.2004, 12:41:04

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838971

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Пользователь2А как модифицировать код:

Код: plaintext

1.
2.
3.
4.
5.
6.

dim ct as control
dim i as integer
for i =  1  to n
set ct = me("fldF" & i)
ct.FontBold = (ct <>  0 )
next

Если поля будут не fldF1, fldF2, fldF3, ..., fldFn , а fldF1, fldF3, fldF10, fldF15 ?
dim s as variant
for each s in array("fldF1", "fldF3", "fldF10", "fldF15")
set ct=me(s)
...

...

Рейтинг:

0 / 0

22.12.2004, 12:58:26

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32838998

Поль

Гость

Можно использовать конечно:

Формат --> Условное форматирование

Но! Хочется знать как можно это реализовать программно.

Владимир Саныч, я просто привел пример. Полей около 20, надо, чтобы он в цикле все обрабатывал.

...

Рейтинг:

0 / 0

22.12.2004, 13:07:15

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32839032

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

ПольВладимир Саныч, я просто привел пример. Полей около 20, надо, чтобы он в цикле все обрабатывал.
for each s in array("vghg", "dghjdhgjd", "gfh", "fghdhg", "dghj", "ghdjhgd", "dgjnhgdd", "sdfhg", "ghdjs", "sfhsg", "gdhjkjfh", "sfghfd", "fhk", "dghjdg", "dghjdgh", "dghj", "sfghsf", "jhkf", "zdfhg", "sfdhh")

...

Рейтинг:

0 / 0

22.12.2004, 13:15:16

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32839088

Пользователь2

Гость

Владимир Саныч, а как с условным форматированием реализовать?

...

Рейтинг:

0 / 0

22.12.2004, 13:25:42

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32839588

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Пользователь2Владимир Саныч, а как с условным форматированием реализовать?
Я не знаю.

...

Рейтинг:

0 / 0

22.12.2004, 15:43:45

| Ответить | Цитировать | Написать

Подскажите, как автоматизировать код

#32839732

Пользователь2

Гость

Саныч, ну как же так? :)

...

Рейтинг:

0 / 0

22.12.2004, 16:23:17

| Ответить | Цитировать | Написать

16 сообщений из 16, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подскажите, как автоматизировать код

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32838998&tid=1669612]:	0ms
get settings:	8ms
get forum list:	19ms
check forum access:	3ms
check topic access:	3ms
track hit:	31ms
get topic data:	10ms
get forum data:	2ms
get page messages:	61ms
get tp. blocked users:	1ms
others:	237ms

total:	375ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы