![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 11.10.2012
Сообщений: 5
|
![]()
Здравствуйте, уважаемые специалисты!
Помогите пожалуйста переправить данный код: Function haba() If CurrentDb.Properties("LastUpdatedDa te") < Date Then MsgBox "Ахтунг !" Application.Quit Else MsgBox "Можете работать" End If End Function Мне нужно чтобы в первом случае (не удовлетворившем условие) вместо информационного сообщения к (в данном примере "Ахтунг") появилось поле ввода для пароля, после ввода которого и совпадения с заранее заданным пользователь мог дальше продолжать работу в программе и автоматически в свойство базы прописался такой код (задающий время выдачи следующего такого сообщения с вводом пароля): CurrentDb.Properties("LastUpdatedDa te").Value = Date()+120 Помогите, пожалуйста, совсем запутался... Как будет выглядеть код? |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 11.03.2011
Сообщений: 67
|
![]()
Помимо msgbox есть еще inputbox, вместо msgbox "aхтунг" пишешь if, где сравнивается твой пароль со значением inputbox
Если помог, жми спасибо
![]() |
![]() |
![]() |
![]() |
#3 | |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
![]()
Здравствуйте Nightwalker666_1@m.
"..Мне нужно чтобы.." - желание понятно, но способ его решения Цитата:
В свойствах базы данных не удастся сохранить служебную информацию о дате... (тем более что свойства LastUpdatedDate не существует). Данные необходимо хранить в соответствующим хранилище - в месте предназначенном для этой цели. Хранилищем может быть как таблица текущей или другой базы данных, так и реестр операционной системы (для подобных целей в нём существует ветка для доступа из VB(A)). И потому прежде чем задавать вопрос "..Как будет выглядеть код?.." стоит определиться с задачей - где и что, и только потом как. Евгений. P.S. для удобочитаемости выкладываемый код заключайте в тэги [соde] ... [/соde] для этого на панели инструментов размещена кнопка #. |
|
![]() |
![]() |
![]() |
#4 | |
Новичок
Джуниор
Регистрация: 11.10.2012
Сообщений: 5
|
![]() Цитата:
Мне бы просто хотелось чтобы данная функция не просто выдавала такое сообщение как одно из двух приведенных выше, а запрашивало пароль и если он верный, то прописывало уже, например, по нажатию кнопки "ОК" или автоматом новый параметр свойства. тем самым продляя выдачу такого сообщения с запросом паролея на определенное количество дней с момента предыдущего ввода пароля. Сейчас это реализовано до момента выдачи таких двух сообщений. Если дата удовлетворяет, то выдается сообщение "Можно работать" и приложение запускается, если нет, то выдается сообщение "Ахтунг !" и закрывается. Чтобы изменить параметр я просто добавляю через окно отладчика новый параметр, который писал выше. А хотелось бы, чтобы он сам прописывался какой-то командой после ввода правильного пароля, который должен быть прописан в функции. В этом-то и суть вопроса. Я не знаю как это реализовать. Способ наверняка есть, просто я не совсем силен именно в кодах VBA. Простите, если непонятно и витиевато описал все. Мне лучше задавать конкретные вопросы ![]() Последний раз редактировалось Nightwalker666_1@m; 11.10.2012 в 23:13. |
|
![]() |
![]() |
![]() |
#5 |
Новичок
Джуниор
Регистрация: 11.10.2012
Сообщений: 5
|
![]()
Вот как раз этой командой я изменяю свойство базы даннх:
Код:
|
![]() |
![]() |
![]() |
#6 |
Новичок
Джуниор
Регистрация: 11.10.2012
Сообщений: 5
|
![]()
Проверьте, пожалуйста, правильность кода. Я не очень силен в VBA.
Код:
|
![]() |
![]() |
![]() |
#7 |
Новичок
Джуниор
Регистрация: 11.10.2012
Сообщений: 5
|
![]()
Код поправил. Все работает как необходимо. Спасибо.
|
![]() |
![]() |
![]() |
#8 |
Участник клуба
Регистрация: 10.08.2009
Сообщений: 1,796
|
![]()
Здравствуйте Nightwalker666_1@m.
Мнение: "..в базе уже создано такое свойство..": мои слова ".. не удастся сохранить служебную информацию.." не о том, что нельзя создать, технически создать и добавить свойство конечно можно (CreateProperty и Properties.Append) Базы данных предназначены для хранения информации (иногда даже применяется термин "банк данных"). БД MS Access не блещут устойчивостью к взлому, но способ ограничения доступа который Вы планируете использовать это даже не ключ от банковской ячейки под ковриком у входной двери, это замок на воротах - при отсутствии забора. О какой надёжности/сохранности может идти речь. ![]() (это не критика, это мнение) Евгений. |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переделать в код Delphi!! | Настена290 | Помощь студентам | 2 | 01.02.2012 15:52 |
переделать с делфи код в СИ | Dezolyator | Фриланс | 7 | 24.05.2010 23:19 |
Как переделать код? | P®o©omp@s | Помощь студентам | 2 | 26.10.2009 19:21 |
Переделать код | Hepri | Работа с сетью в Delphi | 3 | 20.08.2009 20:28 |
Помогите переделать код | stayer | Общие вопросы Delphi | 3 | 25.10.2008 21:09 |