VBNet - Форум - Автоматическое нажатие кнопки

Вопрос: Автоматическое нажатие кнопки Добавлено: 20.06.08 09:56

Автор вопроса: denis84

Добрый день!
Помогите пожалуйста!
Нужно, чтобы данная кнопка срабатывала автоматически каждые 5 сек.
Это кнопка обновления формы в Access.

Private Sub Кнопка138_Click()
On Error GoTo Err_Кнопка138_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка138_Click:
    Exit Sub

Err_Кнопка138_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка138_Click

End Sub
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| Цитата \| #1	Добавлено: 20.06.08 10:28
	call Кнопка138_Click в таймер? Ответить

Номер ответа: 2 Автор ответа: denis84 Вопросов: 4 Ответов: 13	Профиль \| Цитата \| #2	Добавлено: 20.06.08 10:40
	Есть форма. В данной форме несколько полей. Значения некоторых полей рассчитываются через функцию. Данные в полях не обновляются пока не нажмешь F9. Я сделал кнопку, по нажатию на которую обновляются данные. Но нужно, чтобы данные в полях обновлялись автоматически. Как это сделать... Ответить

Номер ответа: 3 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| Цитата \| #3	Добавлено: 20.06.08 11:04
	я понял. вот по организации таймера тебе, в него все и запихнешь, что в кнопке: http://forum.sql.ru/forum/actualthread.aspx?tid=468565 http://www.taurion.ru/access/13/52 а если коротко, то вот: Private Sub Form_Load() Me.TimerInterval = 5000 End Sub Private Sub Form_Timer() On Error GoTo Err_timer oCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_timer: Exit Sub Err_timer: MsgBox Err.Description Resume Exit_timer End Sub что-то вроде этого..... Ответить

Номер ответа: 4 Автор ответа: denis84 Вопросов: 4 Ответов: 13	Профиль \| Цитата \| #4	Добавлено: 20.06.08 11:33
	Форма обновляется, а данные остаются такие же. Ответить

Номер ответа: 5 Автор ответа: denis84 Вопросов: 4 Ответов: 13	Профиль \| Цитата \| #5	Добавлено: 20.06.08 11:51
	Данные обновляются, если только курсор ставить в какое-нибудь поле на форме. А если просто изменил и не поставил курсор в поле на форме, то не обновит данные. Ответить

Номер ответа: 6 Автор ответа: denis84 Вопросов: 4 Ответов: 13	Профиль \| Цитата \| #6	Добавлено: 20.06.08 12:45
	Подскажите, как сделать следующее: Есть главная форма и подчиненная форма, встроенная в первую. При изменении данных в поле подчиненной формы, должны обновляться данные в главной форме. Если делать так: Private Sub Form_Load() Me.TimerInterval = 5000 End Sub Private Sub Form_Timer() On Error GoTo Err_timer oCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_timer: Exit Sub Err_timer: MsgBox Err.Description Resume Exit_timer End Sub То обновляются данные в текущей форме. Ответить

Номер ответа: 7 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| Цитата \| #7	Добавлено: 20.06.08 12:58
	ну так таймер в другой форме создай. Ответить

Номер ответа: 8 Автор ответа: denis84 Вопросов: 4 Ответов: 13	Профиль \| Цитата \| #8	Добавлено: 20.06.08 13:23
	Таймер в другой Форме тоже создал. Но данные в формах обновляются по отдельности. Ответить

Номер ответа: 9 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| Цитата \| #9	Добавлено: 20.06.08 17:33
	так в другой форме создал, а в этой - удали. можно и наоборот. и уже из этой процедуры вызывай другую форму. не знаю, как в акссесе, я не пишу на VBA, а в VB6 - примерно так: Form2.Procedure..... Ответить

Страница: 1 |