ник: Garik-1980
Вот код.
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
Сообщения об ошибке не вылетает, и самое главное то, что после переписывания клиента все работает. Конечно ничего страшного, но напрягает.