Bom dia. Utilizo dois formulario, o primeiro abre o segundo para incluir um novo registro e preenche alguns campos com os dados do primeiro formulario. Porem depois de preencher os dados ele retorna para o primeiro registro, o problema e que preciso matenha a posicao no novo registro para concluir o preenchimento e nao retornar ao primeiro.
Codigo Primerio formulario
Private Sub BtNovaAssist_Click()
CodiCliente = [CodCliente]
DoCmd.RefreshRecord
DoCmd.Close
Call SalvarNovo
End Sub
Codigo do Modulo
Option Explicit
Public CodiCliente As Integer
Function SalvarNovo()
Dim OsMAx As Long
OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)
DoCmd.OpenForm "Form_AssistDet"
DoCmd.GoToRecord , , acNewRec
Form_Form_AssistDet.OS = OsMAx
If IsNull(CodiCliente) = False Then
Form_Form_AssistDet.Selecao_CodCliente = CodiCliente
Form_Form_AssistDet.DeixadoPor = CodiCliente
CodiCliente = 0
End If
Codigo Primerio formulario
Private Sub BtNovaAssist_Click()
CodiCliente = [CodCliente]
DoCmd.RefreshRecord
DoCmd.Close
Call SalvarNovo
End Sub
Codigo do Modulo
Option Explicit
Public CodiCliente As Integer
Function SalvarNovo()
Dim OsMAx As Long
OsMAx = ((DMax("[MaxOS]", "Consul_AssistenciaNumOS")) + 1)
DoCmd.OpenForm "Form_AssistDet"
DoCmd.GoToRecord , , acNewRec
Form_Form_AssistDet.OS = OsMAx
If IsNull(CodiCliente) = False Then
Form_Form_AssistDet.Selecao_CodCliente = CodiCliente
Form_Form_AssistDet.DeixadoPor = CodiCliente
CodiCliente = 0
End If