Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Microsoft Access 2003, помогите написать скрипт / 6 сообщений из 6, страница 1 из 1
22.06.2017, 14:53:05
    #39476222
UnderWear
UnderWear
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft Access 2003, помогите написать скрипт
В Microsoft Access есть форма, в которой графы на ввод данных паспорта - серия и номер. В связи с появлением биометрических паспортов, в которых нет серии и 9-значный номер, нужно урегулировать ввод паспортных данных. Первая мысля - установить чекбокс с подписью "Биометрический паспорт", и по его нажатию убирать графу "серия" и в графе "номер" заменить проверку с 6 цифр на 9 цифр. Из озвученного плана не знаю как написать скрипт:
нажатие_на_флажок=>{убрать поле "серия",изменить кол-во цифр в графе "номер"}

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

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

Код: sql
1.
([Биометрический]=0 And Len([Номер])=6) Or (([Биометрический]=Истина And Len([Серия])=0) AND Len([Номер])=9)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2017, 17:05:34
    #39476872
UnderWear
UnderWear
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft Access 2003, помогите написать скрипт
Спасибо большое, это то что я хотел. Немного допилил по названиям переменных, но все равно Access ругается. Не ругается только если флажок установлен и вбиваются 9 цифр в программе Прием_t1. И в аналогичной программе Прием_t2 ругается, что невозможно сделать изменение в базе данных в связанной таблице. Понимаю, что это наглость, но оставлю архивчик с исходниками, вдруг у Вас будет время мне помочь! Заранее благодарен!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2017, 20:25:57
    #39476977
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft Access 2003, помогите написать скрипт
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
| Ответить | Цитировать | Написать  
23.06.2017, 22:46:27
    #39477032
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft Access 2003, помогите написать скрипт
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2017, 10:50:31
    #39477537
UnderWear
UnderWear
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Microsoft Access 2003, помогите написать скрипт
Благодарю "sdku" и "Verbovsky Innokenty" за ответы!!! Плюсов вам в карму и успехов в работе!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Microsoft Access 2003, помогите написать скрипт / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 319ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1612315]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 204ms
total:  319ms
x
x
Закрыть


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