Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Своя функция / 22 сообщений из 22, страница 1 из 1
14.01.2017, 02:36
    #39384626
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Добренькой ночи/дня!

Есть простая функция

Код: vbnet
1.
2.
3.
4.
5.
Private Function MYFUNC (ctl1 As control)
Dim Переменная1
Переменная1=3000
ctl1.height = ctl1/Переменная1
End function



Пытаюсь при нажатии кнопки изменить высоту поля (упрощенно)

Код: vbnet
1.
2.
3.
Private Sub Кнопка1_Click()
call MYFUNC (Поле1)
End sub



Но высота Поля1 не меняется. Если вместо вызова функции я пишу: поле1.height = поле1/Переменная1, то все работает, а так нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 07:40
    #39384644
MrShin
MrShin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
У типа данных Control нет свойства по умолчанию, насколько я знаю. Когда вы вызываете изменение высоты в окне, тип данных не Control, а, например TextBox, который уже имеет свойство по умолчанию Value, откуда и читается значение. Не совсем понятно, что вы делаете, насколько я понял, меняеете высоту текстбокса в зависимости от значения в текстовом поле. Если так, то попробуйте такое выражение:
Код: vbnet
1.
ctl1.height = ctl1.Value / Переменная1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 10:39
    #39384658
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция,
а чем не устраивает штатное свойство "расширение"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 12:57
    #39384680
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
MrShin, добавление value не помогает.

sdku, а можно поподробнее?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 13:04
    #39384683
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция...sdku, а можно поподробнее?...
Раз судоку молчит. то позволю себе предположить. что имелось в виду вот это -
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 13:48
    #39384699
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Лапух, нет, совсем не то.
Я ведь привел пример упрощенный. У меня там немного более сложная формула и меняется не только высота, но и поля и отступы.

Поэтому вопрос остается. Как сделать свою функцию с переменными. Ведь вроде сделал все правильно. Объявил переменные в функции. Что не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 14:31
    #39384707
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция..... меняется не только высота, но и поля и отступы....О каких таких "полях" речь. Вам надо изменять положение текста(данных в поле) или положение самого элемента управления (поля)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 14:33
    #39384709
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция...Лапух, нет, совсем не то....
Я конечно в - VBA - Лапух (что видно из моего погоняла ), но кое чего и знаю, возможно и присоветую.
Но т. к. видимо не въезжаю в суть вопроса, то попрошу вас не стесняться и поподробнее рассказать о том. чего возжелали, что бы даже я понял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 15:26
    #39384723
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция,
и еще:
Код: vbnet
1.
ctl1.height = ctl1/Переменная1

все нормально работает если тип данных числовой
(менять высоту в зависимости от числа записанного в поле по меньшей мере странно-почему для 11 и 99 высота поля должна быть разной )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 15:48
    #39384727
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Лапух...что видно из моего погоняла Вопрос к модераторам: Уместен ли на форуме в профильных темах подобный блатной жаргон?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 15:52
    #39384729
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция,

В точности воспроизвела все действия.
Все работает, ctl1 в функции опознается правильно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 16:09
    #39384732
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
__MichelleЛапух...что видно из моего погоняла Вопрос к модераторам: Уместен ли на форуме в профильных темах подобный блатной жаргон?
Мишель, вы же первые попросили о перемирии и высказали желание нас с вами не упоминать в - СУЕ.
Чё случилось?
Я вас не трогал.
Чё вы так взбрыкнули?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 16:12
    #39384735
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
1. Я никого ни о чем не просила и не высказывала никаких желаний.
2. Вопрос был к модераторам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 16:44
    #39384741
Лапух
Лапух
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
__Michelle...2. Вопрос был к модераторам....
Ладно, продолжим подлавливать друг друга во всяких нюансах, если уж вы так шибко возжелали и у вас засвербило в неких местах.
Я всегда. практически за любой, дозволеный кипишь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 16:51
    #39384744
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция,

Прошу прощения за то, что невольно дала повод для флуда в Вашей теме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 17:36
    #39384754
mds_world
mds_world
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
__Michelle, Лапух! Я настоятельно еще раз прошу не обращать внимания друга на друга. Ваша взаимная симпатия не секрет.

__Michelle, это выражение хотя и не из джентльменского лексикона, но не противоречит никаким правилам форума. Режет слух, да. Но формально нет причин его удалять, а применившего банить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 17:42
    #39384758
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Понял свою ошибку. Нужно было раньше состряпать файл и не морочить вам голову. Прошу прощения. Вот файлик. Если нажимать кнопки УВЕЛИЧИТЬ, УМЕНЬШИТЬ, то вы увидите, как меняется верхнее поле (topmargin) и соответственно двигается текст в соответствие с текущим значением. Чтобы движение было заметно, я поставил кратно 100 пока.

Но если для изменения topmargin поля Текущее использовать функцию, которая сейчас закомментирована, то ничего не двигается. Значение меняется, но текст не двигается.

Вот теперь вопрос более конкретный. Прошу подсказать. Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 18:16
    #39384769
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
mds_world,

Спасибо за ответ.
Но подчеркиваю, что я обратила внимание на выражение, а не не автора этого выражения.
От кого оно исходило, мне было безразлично.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2017, 19:02
    #39384773
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функция,

Ну и накрутили...
1. Для начала укажите OPTION EXPLICIT, запустите компиляцию и посмотрите на сообщения.
2. Зачем обновляете значение поля формы через CurrentProject.Connection.Execute и Requery?
Достаточно этого: Текущее=Текущее+Поле807 и Me.Dirty=False.
3. Когда разберетесь с объявлением переменных (пункт 1), все заработает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2017, 00:04
    #39384868
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
__Michelle,
1. c OPTION EXPLICIT получаю Invalid outside procedure. Кручу-верчу, ни фига не получается.
2. Зачем обновляете значение поля формы через CurrentProject.Connection.Execute и Requery? Это в данном примере источник формы таблица1. В моей базе это необновляемый запрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2017, 00:13
    #39384874
Своя функция
Своя функция
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Всё, заработало. Правда непонятно как. Ничего особо не менял. В общем, всем спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2017, 00:24
    #39384876
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Своя функция
Своя функцияВсё, заработало. Правда непонятно как. Ничего особо не менял. В общем, всем спасибо.То есть, Вы действуете бессознательно?)))
Выкладывайте здесь получившийся текст модуля формы - я скажу, почему заработало.
Почему не работало - знаю.
И никакого необновляемого запроса там нет, и вообще ни одного запроса нет.
Источник формы - таблица Таблица1.
Выкладывайте, не бойтесь. Только не надо базу, достаточно текст модуля формы..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Своя функция / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 496ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1612808]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 348ms
total:  496ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]