внесение данных в поле со списком

Вопрос, как програмно прописать возможность внесения данных в поле со списком.

Уточняю..., есть базовая таблица "тблМатериалы", есть таблица "тблВидМатериала" связанная с "тблМатериалы" связью множество к одному. При внесении данных о материале "фрмВнесениеМат" помимо прочих данных, я выбираю из списка "спсВид" данные таблицы "тблВидМатериала" и вношу [кодВида] соответственно в поле "тблМатериалы", если нет определенного вида в таблице "тблВидМатериала" приходиться с помощью спец кнопки и доп. формы вносить данные в "тблВидМатериала" а потом прописывая обновление списка "спсВид", что не совсем удобно, хочется, чтобы при просмотре данных списка в случае не обнаружения данных списка возможно было сразу в списке внести новые данные.
Спасибо!

1. перехватывай ошибку
2. добавляй новое значение в справочник
3. рефрешь комбик
4. и можешь передать в него новое значение

у меня на событии "нет в списке" выходит форма для внесения нового значения сразу заполненная значением из списка... при закрытии список рекверится....
посмотрите... может то

msn13
можно пример с кодом? Я еще малограмотный, не получиться, хотя идея понятна!
1. перехватывай ошибку - не понятно каким образом
2. добавляй новое значение в справочник - желательно уточнить как
3. рефрешь комбик - это разберусь
4. и можешь передать в него новое значение - это - думаю тоже не проблема

msn13
можно пример с кодом? Я еще малограмотный, не получиться, хотя идея понятна!
1. перехватывай ошибку - не понятно каким образом
2. добавляй новое значение в справочник - желательно уточнить как
3. рефрешь комбик - это разберусь
4. и можешь передать в него новое значение - это - думаю тоже не проблема

в комбике даже есть событие NotInList анализируй его

DiDis - дал базу, которую невозможно открыть для просмотра кода в В.Б подскажи как открыть для просмотра, или скинь новую.
msn13 - да, нашел событие- отсутствуеи в списке, а что делать дальше? как присвоить значение, думал пойму сам, однако как, что-то не догоню. Примерчик с кодом можно?

Private Sub поискВида_NotInList(NewData As String, Response As Integer)

End Sub

DiDis - дал базу, которую невозможно открыть для просмотра кода в В.Б подскажи как открыть для просмотра, или скинь новую.
msn13 - да, нашел событие- отсутствуеи в списке, а что делать дальше? как присвоить значение, думал пойму сам, однако как, что-то не догоню. Примерчик с кодом можно?

Private Sub поискВида_NotInList(NewData As String, Response As Integer)

End Sub

[quot metall]DiDis - дал базу, которую невозможно открыть для просмотра кода в В.Б подскажи как открыть для просмотра, или скинь новую.
[quot]

что значит невозможно?
держи шифт и запускай базу....

п.с. я по два раза не повторяю не повторяю

DiDis
спасибо, забыл я, что через шифт.
Посмотрел я твою базу

Public Sub txtOrganization_NotInList(NewData As String, Response As Integer)
txtOrganization_DblClick (0)
End Sub

Public Sub txtOrganization_DblClick(Cancel As Integer)

Dim Linkcrit As String
Linkcrit = "[txtNameOrgUnique]=" & "'" & Me.[txtOrganization] & "'"
txtNameOrg = Me.txtOrganization.Text

If Me.txtOrganization.Text > "" Then
    DoCmd.OpenForm "pssOrganisation", , , Linkcrit, acFormEdit, , txtNameOrg
    Else
    DoCmd.OpenForm "pssOrganisation", , , , acFormAdd
End If

End Sub

понятно, но мне нужно, несколько иное, мне не нужно, чтобы открывалась форма с помощью которой по сути подтверждается ввод, мне нужно, чтобы я просо набрал в поле со списком данные, и они попали в соответствующую таблицу, может подскажешь как это сделать!