ник: KrukVN
не поленился...
попробуйте этот вариант кода:
Public Function AddNomZ()
On Error GoTo Err_AddNomZ
Dim rst As DAO.Recordset
Dim SearchCriteria As String
Set rst = CurrentDb.OpenRecordset("SELECT * FROM тНомТемп WHERE 1") '("тНомТемп")
SearchCriteria = "кодНом=" & P("кодНом") '& "'"
If rst.EOF Then ' нет записей
rst.AddNew
rst!Обозначение = P("Обозначение")
rst!Наименование = P("Номенкл")
rst!заявка = P("Заявка")
rst!Цех = P("Цех")
rst!кодНом = P("кодНом")
If P("ППп") = "Истина" Then rst!Прим = P("ДСЕ")
rst.Update
Else
rst.FindFirst SearchCriteria
If rst.NoMatch Then ' ничего не нашли надо добавлять
rst.AddNew
rst!Обозначение = P("Обозначение")
rst!Наименование = P("Номенкл")
rst!заявка = P("Заявка")
rst!Цех = P("Цех")
rst!кодНом = P("кодНом")
If P("ППп") = "Истина" Then rst!Прим = P("ДСЕ")
rst.Update
End If
End If
rst.Close 'Закрываем рекордсет
Set rst = Nothing 'освобождаем память от объекта rst
DoCmd.OpenForm "фНомТемп"
Exit Function
Err_AddNomZ:
MsgBox Err.Number & vbNewLine & Err.Description
End Function
|
ЗЫ. А что за P("ххх")?