Option Compare Database Public Function AddNomZ() Dim rst As Recordset str_SQL = "SELECT * FROM тНомТемп WHERE 1" Set rst = CurrentDb.OpenRecordset(str_SQL) '("тНомТемп") 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 On Error GoTo 1 DoCmd.OpenForm "фНомТемп" Forms!фНомТемп.Requery Exit Function 1: 'If Err.Number = 22 Then MsgBox Err.Number & vbNewLine & Err.Description Err.Clear End Function

учи язык страны в которой ты локализовался

Кстати ты погорячился , а может функция Р имеет вид

public function P (sValue as string) as string       ...       ...       P = "Истина"   end function

тогда подобная конструкция имеет смылс и верна :)