chira
|
|
1 | |
Запустить функцию из таблицы (Access97)13.02.2008, 16:00. Показов 710. Ответов 3
Метки нет (Все метки)
Есть таблица MENU
Поля |kod_menu | name_menu | str_run | ==================================================== | 1 |Справочник счетов| DoCmd.OpenForm 'SPR'| Как запустить на исполнение строку DoCmd.OpenForm 'TEST', если мне ее надо хранить в поле таблицы, или подскажите другие варианты. Исполнение должно происходить при нажатии на кнопку. |
13.02.2008, 16:00 | |
Ответы с готовыми решениями:
3
Запуск базы mdb access97, если текущая дата совпадает с датой из таблицы Как можно запустить прогу, не используя функцию Shell, а используя API функцию? Можно ли написать функцию которая возвращала бы и выборку из таблицы и количество строк в исходной таблицы? Написать функцию Faktorial и программу, использующую эту функцию для вывода таблицы факториалов |
alexej
|
|
13.02.2008, 17:08 | 2 |
Бред. Давай подробнее.
|
0 / 0 / 0
Регистрация: 22.10.2007
Сообщений: 44
|
|
13.02.2008, 17:21 | 3 |
Ни хрена не бред, задача вполне понятная - делал аналогичное.
Решается в пол-пинка. Попозше отпишу - щас занят.
0
|
0 / 0 / 0
Регистрация: 22.10.2007
Сообщений: 44
|
|
13.02.2008, 19:13 | 4 |
Создай модуль, например, 'Temp_Module'
Вставь в него 3 строчки: Function Temp_Function() ''' В эту строку будет вставляться, чё ты хошь End Function Сохрани модуль. '... Исполнение должно происходить при нажатии на кнопку' В обработчик нажатия этой кнопки (у меня это - 'Кнопка0') вставь нижеприведенную текстулю: Private Sub Кнопка0_Click() Dim mdl As Module, StringCode As String, ReturnValue As String ReturnValue = InputBox('Введите номер выполняемой строки') If ReturnValue = '' Then Exit Sub StringCode = IIf(IsNull(DLookup('[str_run]', 'MENU', '[kod_menu] = ' & ReturnValue)), '', DLookup('[str_run]', 'MENU', '[kod_menu] = ' & ReturnValue)) If StringCode = '' Then MsgBox 'Строка с таким номером отсутствует': Exit Sub DoCmd.OpenModule 'Temp_Module' Set mdl = Application.Modules('Temp_Module') mdl.DeleteLines 2, 1 mdl.InsertLines 2, StringCode DoCmd.Close acModule, 'Temp_Module', acSaveYes Temp_Function End Sub Всё, успехов.
0
|
13.02.2008, 19:13 | |
13.02.2008, 19:13 | |
Помогаю со студенческими работами здесь
4
Составить функцию Faktorial и программу, использующую эту функцию для вывода таблицы факториалов Запустить функцию!! Запустить асинхронно функцию Как запустить функцию JS Не могу запустить цикл с данными из таблицы БД Запустить функцию в фоновом потоке Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |