В общем сабж. Система Win2k access такой же, компьютеры в сети (в домене), причем как только я переписываю клиента заново, все работает. Возможна ли такая ситуевина, из-за наложенных на пользователя ограничений?

Вот код.

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 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("ххх")?

Ох бл%, нашлась обшибка. Недостаточен размер поля чтобы принять данные. Надо было сразу-же поставить обработчик в начало функции.
Но почему-же оно у них работало после перезаписи.

PS^ Всем спасибо.

Видно ни у кого такие траблы не возникали. Обидно.
Надо будет подумать еще разок.

Сообщение об ошибке не вылетает.
Не доходил до этого все просят срочно работать, поэтому сразу-же переписывал клиента. В следующий раз точно в пошаговый залезу. Да только подозрение, что все и будет работать.