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

ник: osmor
вообще ваша функция не универсальна
вот нашел в закромах

Function NotInListWOFrm(strTbl As String, strFld As String) As Integer '*************************************************************************************** ' Author     :  Oleg Smorchkov ' Date       :  6 Октябрь 1999 ' Comments   : добавление данных в таблицу при событии NotInList ' strTbl - имя таблицы для добавления ' strFld - имя поля для добавления '***************************************************************************************     On Local Error GoTo NotInListWOFrm_ERR     Dim ctlList As Control        Set ctlList = Screen.ActiveControl        If MsgBox("Значение отсутствует в списке. Добавить?", vbOKCancel) = vbOK Then                  CurrentDb.Execute ("INSERT INTO " & strTbl & "(" & strFld & ") VALUES ('" & ctlList.Text & "');")        NotInListWOFrm = acDataErrAdded     Else        NotInListWOFrm = acDataErrContinue         ctlList.Undo     End If NotInListWOFrm_EXIT:     Exit Function NotInListWOFrm_ERR:          MsgBox "Ошибка #: " & Format$(Err.Number) & vbCrLf & Err.Description, vbInformation, "NotInListWOFrm"         Resume NotInListWOFrm_EXIT End Function

Пример вызова:

Private Sub idMetal_NotInList(NewData As String, Response As Integer)          Response = NotInListWOFrm("tblMetal", "Metal")     End Sub