powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Microsoft Access 2003, помогите написать скрипт
6 сообщений из 6, страница 1 из 1
Microsoft Access 2003, помогите написать скрипт
    #39476222
UnderWear
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В Microsoft Access есть форма, в которой графы на ввод данных паспорта - серия и номер. В связи с появлением биометрических паспортов, в которых нет серии и 9-значный номер, нужно урегулировать ввод паспортных данных. Первая мысля - установить чекбокс с подписью "Биометрический паспорт", и по его нажатию убирать графу "серия" и в графе "номер" заменить проверку с 6 цифр на 9 цифр. Из озвученного плана не знаю как написать скрипт:
нажатие_на_флажок=>{убрать поле "серия",изменить кол-во цифр в графе "номер"}

Прошу помощи в написании скрипта или совета с более подходящей идей. С VBA не знаком. Всем откликнувшимся заранее благодарен!

Модератор: Тема перенесена из форума "Другие СУБД".
...
Рейтинг: 0 / 0
Microsoft Access 2003, помогите написать скрипт
    #39476358
Verbovsky Innokenty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я бы добавил в таблицу условие на значение

Код: sql
1.
([Биометрический]=0 And Len([Номер])=6) Or (([Биометрический]=Истина And Len([Серия])=0) AND Len([Номер])=9)
...
Рейтинг: 0 / 0
Microsoft Access 2003, помогите написать скрипт
    #39476872
UnderWear
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое, это то что я хотел. Немного допилил по названиям переменных, но все равно Access ругается. Не ругается только если флажок установлен и вбиваются 9 цифр в программе Прием_t1. И в аналогичной программе Прием_t2 ругается, что невозможно сделать изменение в базе данных в связанной таблице. Понимаю, что это наглость, но оставлю архивчик с исходниками, вдруг у Вас будет время мне помочь! Заранее благодарен!
...
Рейтинг: 0 / 0
Microsoft Access 2003, помогите написать скрипт
    #39476977
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
UnderWear,
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub типПаспорта_AfterUpdate()
If Me.NewRecord Then
    If Me.типПаспорта Then
        Me.серия.Locked = True
               Me.номер.InputMask = "000000000"
    Else
               Me.серия.Locked = False
        Me.номер.InputMask = "000000"
    End If
End If
End Sub
...
Рейтинг: 0 / 0
Microsoft Access 2003, помогите написать скрипт
    #39477032
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Microsoft Access 2003, помогите написать скрипт
    #39477537
UnderWear
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Благодарю "sdku" и "Verbovsky Innokenty" за ответы!!! Плюсов вам в карму и успехов в работе!
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Microsoft Access 2003, помогите написать скрипт
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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