[Resolvido]Ajuda com o Código

Bom Dia

Tenho o código abaixo, que esta no botão salvar.
Porém ao Clicar em salvar além de fazer as opções que eu queria ele também esta indo para o primeiro registo.
Como eu faço para ele salvar e ir para um novo registro ou salvar e continuar no registro atual?


Private Sub btnSalvar_Click()
If txtstatus.Value = "ABERTO" Then
txtstatus.Value = "FECHADO"
MsgBox "Pedido Salvo com sucesso.", vbInformation, "Sistema de Vendas GRX"
Else
MsgBox "Pedido Alterado com sucesso.", vbInformation, "Sistema de Vendas GRX"
Me.txt_DataVenda.Enabled = False
Me.txt_cliente.Enabled = False
Me.FORM_VENDASUB.Enabled = False
Me.txt_desconto.Enabled = False
Me.txt_Observação.Enabled = False
End If
'DoCmd.RunCommand acCmdSave 'Aqui guarda dados
Me.Requery
'DoCmd.Close 'Aqui fecha formulario

End Sub




Desde já agradeço pela ajuda e compreensão.

Para ir para o próximo registro:

Código:

Private Sub btnSalvar_Click()
If txtstatus.Value = "ABERTO" Then
txtstatus.Value = "FECHADO"
MsgBox "Pedido Salvo com sucesso.", vbInformation, "Sistema de Vendas GRX"
Else
MsgBox "Pedido Alterado com sucesso.", vbInformation, "Sistema de Vendas GRX"
Me.txt_DataVenda.Enabled = False
Me.txt_cliente.Enabled = False
Me.FORM_VENDASUB.Enabled = False
Me.txt_desconto.Enabled = False
Me.txt_Observação.Enabled = False
End If
'DoCmd.RunCommand acCmdSave 'Aqui guarda dados
DoCmd.GoToRecord , , acNewRec
'DoCmd.Close 'Aqui fecha formulario
End Sub

Para salvar e permanecer no mesmo registro:

Código:

Private Sub btnSalvar_Click()
If txtstatus.Value = "ABERTO" Then
txtstatus.Value = "FECHADO"
MsgBox "Pedido Salvo com sucesso.", vbInformation, "Sistema de Vendas GRX"
Else
MsgBox "Pedido Alterado com sucesso.", vbInformation, "Sistema de Vendas GRX"
Me.txt_DataVenda.Enabled = False
Me.txt_cliente.Enabled = False
Me.FORM_VENDASUB.Enabled = False
Me.txt_desconto.Enabled = False
Me.txt_Observação.Enabled = False
End If
'DoCmd.RunCommand acCmdSave 'Aqui guarda dados
Recalc
'DoCmd.Close 'Aqui fecha formulario
End Sub

substitua o

Muito obrigado.

Deu certinho.

Valeu mesmo.