Dispar para nova venda

Pessoal como disparar um novo registro no form sem ter que fechar e abrir novamente

estou usando o seguinte comando
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
mas não está funcionanto por que?

Boa pergunta. Não está funcionando por quê?

Tem códigos mais ou configurações nas propriedades do form que possam estar interferindo no processo? Já tentou fazer um teste com um botão extra para enviar para o novo registro para ver se assim funciona?

Código usado

Private Sub CodBarras_AfterUpdate()
If IsNull(DLookup("Cod", "tbl_produtos", "Cod=" & Forms!FrmVendas!CodBarras & "")) Then
MsgBox "Produto Não Cadastro", vbInformation, "ATENÇÃO"
Exit Sub
End If

Dim seq As String, k
seq = "[valorunit] & '|' & [Cod_Prod]"
seq = DLookup(seq, "tbl_Produtos", "Cod=" & Me.CodBarras & "")
k = Split(seq, "|")

Me.Texto52.Visible = True
'Executa consulta inclusão, lançando os dados na tabela vendaDetalhe
CurrentDb.Execute "INSERT INTO tbl_vendaDetalhe(DetalheCódigoVenda, Codproduto, Quant, ValorUnit)" _
& " Values(""" & Me.Códigovenda & """,""" & k(1) & """,""" & Me.txtQtd & """,""" & k(0) & """);"

'Atualiza o subform
Me.detalhevenda.Requery
Me.txtQtd = 1
Me.CodBarras = Null
Me.CodBarras.SetFocus
End Sub