Erro ao Gerar OS a partir do Cadastro do Cliente em Rede

Ao clicar no botão nova assistência no formulário de cliente, access retorna erro. Este erro só ocorre quando o banco de dados esta na rede, funciona corretamente se estiver no computador local.

Código do botão
Private Sub BtNovaAssist_Click()
DoCmd.RunCommand (acCmdSave)
CodCli = Form_Form_ClienteDetalhes.CodCliente
Me.Repaint
Call SalvarNovo
DoCmd.Close acForm, "Form_ClienteDetalhes"
End Sub

Código da função
Function SalvarNovo()
Dim OsMAx As Long
DoCmd.OpenForm "Form_AssistDet", , , , acFormEdit
DoCmd.GoToRecord , , acNewRec
OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)
Form_Form_AssistDet.OS = OsMAx
If CodCli > 0 Then
Form_Form_AssistDet.Selecao_CodCliente = Form_Form_ClienteDetalhes.CodCliente
Form_Form_AssistDet.DeixadoPor = Form_Form_ClienteDetalhes.CodCliente
CodCli = 0
End If
Form_Form_AssistDet.Modelo.SetFocus
End Function

Você tem um back end? Ou a tabela que vai atualizar está em outro bd?

Esse erro ocorria quando utiliza o banco de dados compartilhado nas pastas pública do windows e, mesmo dividindo o banco no fronte back-end o problema permanece.