|
Я так и написал, но когда пускаю, то получаю окно
Run-time error '2118':
Необходимо сохранить текущее поле перед выполнением макрокоманды обновление.
Вот текст процедуры:
Private Sub ФакулИлиПредпр_NotInList(NewData As String, Response As Integer)
Dim SQL$
Response = MsgBox("Такой кафедры нет в списке, добавить?", vbYesNo)
If Response = vbYes Then
DoCmd.SetWarnings False
SQL = "INSERT INTO Кафедры (Название) Values('" & NewData & "')"
DoCmd.RunSQL SQL
Me.ФакулИлиПредпр.Requery
Me.ФакулИлиПредпр.Text = NewData
DoCmd.SetWarnings True
End If
End Sub
|