Помогите. Подскажите, где я ошибся.

Четверг, 21 Декабря 2017 г. 18:43 + в цитатник

Есть форма, в ней подчинённая форма.

На форме я сделал кнопку удаления строки в подчинённой форме, прикрепил процедуру:

Dim stSQl As String
If IsNull(Me![Код]) Then Exit Sub
If MsgBox("Подтвердите удаление записи " & Me![Код].Value, vbYesNo + vbDefaultButton2, "Запись будет удалена") = vbYes Then
stSQl = "DELETE [Код].* " & "FROM [Код] " & "WHERE ((([Данные_подч_приб].[Код])=" & Me![Код].Value & "))"
CurrentDb.Execute (stSQl)
Me![Код].Requery
End If
End Sub