Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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