Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Combobox (добавление записи в справочник) / 7 сообщений из 7, страница 1 из 1
18.11.2003, 05:38
    #32326936
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
Задача:
В таблицу подставляются индексы значений из справочной таблицы. Для подстановки используется Combobox (Выбирается фамилия, а в таблицу заносится её индекс), свойство 'ограничиться списком'=да, т.к. пустых и не справочных значений быть не может.
Вопрос:
Какие события и свойства Combobox использовать для обновления справочника, когда в Combo вносится новая запись?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 08:13
    #32326967
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
Выбирается фамилия, а в таблицу заносится её индекс
когда в Combo вносится новая запись

и что же будет писаться в таблицу, если в твой комбо вносится фамилия ?

свойство 'ограничиться списком'=да,

и как она (новая фамилия) будет писаться в комбо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 09:58
    #32327036
bazaea
bazaea
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
Ограничится списком ДА
Отсутствие в списке [Процедура обработки событий]

в [Процедура обработки событий] вызываешь форму для редактирования справочника или что вообще захочешь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 12:11
    #32327225
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
после обработки события выдается сообщение, что значения нет в списке (даже когда значения списка были обновлены). Я так полагаю, что это сообщение по умолчанию, та чему должен быть равен возвращаемый параметр Response , чтобы сообщение не появлялось?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 12:15
    #32327233
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
help писал:acDataErrDisplay (Default) - Displays the default message to the user. You can use this when you don't want to allow the user to add a new value to the combo box list.
acDataErrContinue - Doesn't display the default message to the user. You can use this when you want to display a custom message to the user. For example, the event procedure could display a custom dialog box asking if the user wanted to save the new entry. If the response is Yes, the event procedure would add the new entry to the list and set the Response argument to acDataErrAdded. If the response is No, the event procedure would set the Response argument to acDataErrContinue.
acDataErrAdded - Doesn't display a message to the user but enables you to add the entry to the combo box list in the NotInList event procedure. After the entry is added, Microsoft Access updates the list by requerying the combo box. Microsoft Access then rechecks the string against the combo box list, and saves the value in the NewData argument in the field the combo box is bound to. If the string is not in the list, then Microsoft Access displays an error message.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.11.2003, 12:21
    #32327241
Pavel
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Private Sub To_Name_field_NotInList(NewData As String, Response As Integer)
    Dim cmd As ADODB.Command
    On Error GoTo Sub_Err
    If MsgBox( "В списке отсутствует. Добавить?" , vbYesNo) = vbNo Then
        Response = acDataErrContinue
        Me!To_Name_field.Undo
        Exit Sub
    End If
    Response = acDataErrAdded
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText =  "dbo.Proc_AddOrganization" 
    cmd.CommandType = adCmdStoredProc
    cmd.parameters.append cmd.CreateParameter( "@Organization_name" , adVarChar, adParamInput,  255 , NewData)
    cmd.Execute
Sub_Exit:
    On Error Resume Next
    Set cmd = Nothing
    Exit Sub
Sub_Err:
    Beep
    MsgBox Err.Description
    Err.Clear
    Resume Sub_Exit
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.11.2003, 06:41
    #32328101
chkalov
chkalov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox (добавление записи в справочник)
БАЛЬШОЕ спасибо - помогли разобраться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Combobox (добавление записи в справочник) / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 391ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1678166]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 40ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 243ms
total:  391ms
x
x
Закрыть


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