Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Гоблин
Акбар, вот как по логике гоблин-программерства. (без правил) По умолчанию в форме разрешены только добавления. Удаления и изменения запрещены. Источник строк - табла Пароли. В ней скрыто поле Пароль. Поле0 - свободное, куда вводим пароль.
Dim Par As String 'Объявляем переменную
Par = Me.Поле0 'Присваиваем ей то, что ввели
If Par = Me.Пароль Then 'Если значение переменной = тому, что в скрытом поле из таблы, то выводим сообщение
MsgBox ("На кнопку закрыть не нажимай. Корректируй записи. По закрытии формы1 корректура будет невозможна.")
With Forms![Таблица1].Form ' в свойствах формы Таблица1 меняем свойства
.AllowDeletions = True 'Разрешаем удаление
.AllowEdits = True 'Разрешаем изменения
End With 'Заканчиваем свойства
Else 'Если пароль неверен, то выводим сообщение
MsgBox ("В данном случае пароль Плут. Введи его для удаления и изменения записей в форме Таблица1")
Ну еще можно было бы типа
Me.Поле0.Setfocus
Me.Поле0="" 'Ну типа поставить фокус в поле ввода и очистить его

End If
Так как источник строк формы таблица Пароли, то поле пароль - в нее выведено и скрыто. Оно так и будет называться.


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.