[Resolvido]Botão de salvar com opção de Imprimir relatorio

Boa tarde!

Amigos

Tenho um formulário que alimenta uma tabela que gera numeração automática após o preenchimento tem o botão de Salvar, consigo fazer com que este botão de salvar realize a pergunta deseja imprimir o relatório do ultimo numero. ( numereção automatica).


Hoje - salvo os dados com um botão de salvar, tenho que memorizar o numero gerado pelo banco.

Ideia - Ter apenas um botão para salvar com opção de imprimir ou não o relatório....

No Seu Botão de Salvar coloque:


'Salva o Registro e pergunta se quer imprimir...
docmd.RunCommand acCmdSaveRecord
If MsgBox("Imprimir o Relatorio ?", vbYesNo, "Atenção!!!") = vbYes Then
'Chama o Relatorio Filtrando pelo campo da tabela NumSeq, que sera igual ao campo do Formulario me.NumSeq
DoCmd.OpenReport "NomeRelatorio", , , "NumSeq= " & Me.NumSeq & ""
End If

Olá Fabio

Fiz desta forma porem o formulário não limpa os campos como faço para limpa-los?

'Salva o Registro e pergunta se quer imprimir...
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Imprimir o Relatorio ?", vbYesNo, "Atenção!!!") = vbYes Then
'Chama o Relatorio Filtrando pelo campo da tabela NumSeq, que sera igual ao campo do Formulario me.NumSeq
DoCmd.OpenReport "Orientação Pontual", , , "N°Documento"

Opa Fabio consegui colocar para limpar os campos entretanto fiquei com outro problema , quando clico em Salvar ele pergunta se desejo imprimir se SIM ele imprime,salva e ammazena os dados porem se eu clicar em Não imprimir os campos não limpam.



Private Sub Comando30_Click()
'Salva o Registro e pergunta se quer imprimir...
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Imprimir o Relatorio ?", vbYesNo, "Atenção!!!") = vbYes Then
'Chama o Relatorio Filtrando pelo campo da tabela NumSeq, que sera igual ao campo do Formulario me.NumSeq
DoCmd.OpenReport "Orientação Pontual", , , "N°Documento" = "&Me.N°Documento &"""
DoCmd.GoToRecord , , acNewRec
End If

Private Sub Comando30_Click()
'Salva o Registro e pergunta se quer imprimir...
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Imprimir o Relatorio ?", vbYesNo, "Atenção!!!") = vbYes Then
'Chama o Relatorio Filtrando pelo campo da tabela NumSeq, que sera igual ao campo do Formulario me.NumSeq
DoCmd.OpenReport "Orientação Pontual", , , "N°Documento" = "&Me.N°Documento &"""

End If
DoCmd.GoToRecord , , acNewRec
End Sub


Mudando apenas a posição do NewRec... assim ele sera executado independente da resposta... sim ou nao...

oi Fabio

Funcionou perfeitamente todo o cenário que montamos,Porem o fundamental não aconteceu quando preencho o formulário e peço para imprimir no botão salvar relatório as informações que coloquei no formulário não saem no relatório o mesmo sai em branco.


https://drive.google.com/file/d/0BzvJDzxY7_zKLUhyUG1UdEExRTg/view?usp=sharing

Senha 123456

Mude o comando do botao Sair para:


Private Sub Comando30_Click()
'Salva o Registro e pergunta se quer imprimir...
DoCmd.RunCommand acCmdSaveRecord
If MsgBox("Imprimir o Relatorio ?", vbYesNo, "Atenção!!!") = vbYes Then
'Chama o Relatorio Filtrando pelo campo da tabela NumSeq, que sera igual ao campo do Formulario me.NumSeq
DoCmd.OpenReport "Orientação Pontual_consulta", , , "[N° Documento] = " & Me.[N°_Doc] & ""
End If
DoCmd.GoToRecord , "Orientação_Pontual", acNewRec
End Sub



Caso queira que ele nao pergunte denovo o Numero da Orientação, remova a pergunta que esta na consulta (Orientação Pontual_Consulta)

Atenção!!!

Você tem um problema serio com nome de seu Campos amigo, Nao deve ser usado caracter especiais.. tais como * & / º ² e afins... Pois lhe trará problemas futuramente!

Muito obrigado Fabio..Funcionou perfeitamente..
Já removi a pergunta que esta na consulta (Orientação Pontual_Consulta)...


Entendi sua dica sobre os caracteres no nome dos campos...


Muito obrigado amigoooooo