Limpar campos ao fechar relatório.

Boa noite amigos,eu tenho um pdv de vendas que ao clicar a tecla F3 abre um relatório dos produtos vendidos,o que queria é que ao fechar esse relatório os campos do pdv ficassem limpos para nova venda,qual código eu usaria para isso.

No seu caso especifico, a cima da linha que fecha o relatório, basta colocar o comando para inserir um Novo Registro


'Insere novo registro, limpando os campos ACOPLADOS
DoCmd.GoToRecord , , acNewRec

'Limpa os campos nao acoplados
Me.nomedocampo = Null
Me.NomeOutroCampo = Null

'Fecha o Relatorio aberto
DoCmd.Close acReport, "NomeRelatorio"

Coloque isto no botão ou atalho pra fechar o relatório...

Ola amigo.
Veja Fabio agora não abre o relatório,e se coloco o código para abrir, o relatório não vem filtrado com as vendas feita.


https://dl.dropboxusercontent.com/u/90217826/Vendas.rar

Coloquei o código ao fechar do relatório,ai ele não localiza os campos.

Amigo, não da pra ter os comandos Abrir relatório e Fechar relatório ao mesmo tempo (mesmo atalho), pois se tiver, vc nem verá o Relatorio... Ele sera aberto e fechado em milésimos de segundos...


Tem que definir umas coisas:


Você quer que o Relatório Apareça na Tela???
Você quer que o Relatório Apareça na Tela e que o usuário clique em um botão pra fechar???
Você quer que o Relatório Apareça na Tela e que o usuário feche através de um atalho???

Sim eu quero que o relatório apareça na tela com os produtos filtrados da venda,e ao fechar esse relatório os campos do pdv fiquem limpos para uma nova venda.

Ou pode ser também ao abrir o relatório filtrado os campos limparem.

Da forma como quer, faça o seguinte:

No atalho F3 mande apenas abrir o Relatorio...


Agora no Relatorio, marque para Visualizar tecla, e coloque os atalhos la...

Como por exemplo F3... e la sim vc coloca pra inserir novo registro, limpar os campos e em seguida fechar o Formulario...


'Move o Foco para o Formulario PDV
[Forms]![PDV].SetFocus
'Insere novo registro, limpando os campos ACOPLADOS
DoCmd.GoToRecord , , acNewRec
'Limpa os campos nao acoplados
Me.TxtPago = Null
Me.TxtProduto = Null
Me.TxtTroco = Null
'Fecha o Relatorio aberto
DoCmd.Close acReport, "Venda_venda2"

Me.txtQtd.SetFocus


Deverá funcionar!!!

Fabio,sei la oque estou fazendo errado,não ta dando ceto.

Fabio, coloquei o código no atalho F5,mas o comando fechar relatório não ta funcionando.

Estranho, pois aqui funciona normalmente... Veja se o comando esta escrito corretamente, e se o nome do Relatorio esta escrito corretamente...

DoCmd.Close acReport, "Venda_venda2"


Mas, qual erro que aparece?
Qual o comando completo que esta utilizando ao apertar F5?
Outra coisa, mude para outra tecla de atalho, pois o F5 ja tem uma função ativa, que é atualizar... pode ser isso também...

É esse comando Fabio, e se coloco em um botão funciona.Ja tentei em outro atalho mas não acontece nada, não da nem uma mensagem.



'Move o Foco para o Formulario PDV
[Forms]![PDV].SetFocus
'Insere novo registro, limpando os campos ACOPLADOS
DoCmd.GoToRecord , , acNewRec
'Limpa os campos nao acoplados
Me.TxtPago = Null
Me.TxtProduto = Null
Me.TxtTroco = Null
'Fecha o Relatorio aberto
DoCmd.Close acReport, "Venda_venda2"
Me.txtQtd.SetFocus

No meu aqui apresenta um erro...

A Unica forma que consegui fazer funcionar foi assim:

No Atalho F3 do Formulario PDV coloque esse Comando:
DoCmd.OpenReport "Venda_venda2", acViewReport
KeyCode = 0


No atalho escolhido, no Relatório coloque:
'Usei o F3 tambem...
Private Sub Report_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
DoCmd.Close
'Move o Foco para o Formulario PDV
[Forms]![PDV].SetFocus
'Insere novo registro, limpando os campos ACOPLADOS
DoCmd.GoToRecord , , acNewRec
'Limpa os campos nao acoplados
[Forms]![PDV].TxtPago = Null
[Forms]![PDV].TxtTroco = Null
'Fecha o Relatorio aberto

[Forms]![PDV]![txtQtd].SetFocus
KeyCode = 0
End If

End Sub

Fabio me mande esse teu bd que deu certo pra mim ver.

https://www.dropbox.com/s/rpvcl8vyxhwus5z/Vendas.rar?dl=0

Perfeito Fabio assim mesmo,só mais um pedido se for possível,Ali em cima onde esta escrito "caixa livre",sera que da pra depois que colocar o código pra começar a fazer uma venda,mudar aquela escrita para "Venda em andamento".

Consegui com esse código. Fabio.

If DescPDV = True Then

Me.RtVenda.Caption = "Caixa Livre"
Me.RtVenda.ForeColor = vbBlue

Else

Me.RtVenda.Caption = "Venda em andamento"
Me.RtVenda.ForeColor = vbRed

End If

Pra fechar o tópico Fabio como faço para no código barra no "frmdetalhesVenda" aparecer com 13 dígitos,tipo cadastro o produto com código "20" mas no sub aparecer 0000000000020. tem geito,tentei no formato colocar os (0)zeros mas não muda.

No formulario PDV altere a linha referente ao cod Barras para:


Forms!PDV!frmdetalhesvenda!Barra = Format(DLookup("Barra", "prdProdutos", "Barra='" & Forms!PDV!Barra & "'"), "0000000000")

O numero de Zeros vc digita quantos quer ta, coloquei so 10.

Beleza e no form de pesquisa ao clicar 2 vzs,ele não vem com os zeros.

Opa, formata la também meu amigo...

Mude esta linha:

"Values(" & [Forms]![PDV]![frmdetalhesvenda].[Form]![codvenda_tblsisPDV] & "," & [Forms]![PDV]![frmdetalhesvenda].[Form]![Data] & ",'" & Me.ltxListaProdutos.Column(2) & "','" & Format(Me.ltxListaProdutos.Column(1), "0000000000000000000") & "','" & Me.ltxListaProdutos.Column(4) & "'," & [Forms]![PDV]![txtQtd] & ")"

Eitaa,sabe tudo ,mas aos poucos to aprendendo, mais uma lida resolvida.
Obrigado Fabio,por hoje acho que te deixo em paz rsrsrs.
Abç.

Fabio ou outro colega,neste mesmo bd ai acima,para colocar uma caixatexto com o cliente e só fazer vendas se estiver um cliente adicionado no PDV,como eu faria.

Fabio ou outro colega,neste mesmo bd ai acima,quero relacionar um cliente ao PDV,e só fazer as vendas se tiver um cliente relacionado é possível/