Varios comandos pararam de funcionar, numa função, em versão anterior funcionava sem problemas
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord ,,acNewRec
referências que estou utilizando
Visual basic for applications
microsoft access 14.0 object library
ole automation
Alguns campos parecem não estarem disponíveis
Form_Form_AssistDet.OS = OsMAx
código:
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord ,,acNewRec
referências que estou utilizando
Visual basic for applications
microsoft access 14.0 object library
ole automation
Alguns campos parecem não estarem disponíveis
Form_Form_AssistDet.OS = OsMAx
código:
- Código:
Function SalvarNovo()
Dim OsMAx As Long
OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)
DoCmd.OpenForm "Form_AssistDet", , , , acFormEdit
Form_Form_AssistDet.AllowAdditions = True
Form_Form_AssistDet.SetFocus
DoCmd.GoToRecord , , acNewRec 'gera erro 2105
Form_Form_AssistDet.OS = OsMAx 'váriavel contém o valor correto 8720
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
DoCmd.RunCommand acCmdSaveRecord
Form_Form_AssistDet.Modelo.SetFocus
End Function