[Resolvido]Impressão Direta

Pessoal bom dia,

Como faço para imprimir somente o relatório referente aos dados atuais do formulário aberto?

E não de todos os registros digitados no formulário.


Eis um exemplo abaixo.

Grato

Campos.

Bom dia,

No evento click do botão

'Visualiza

DoCmd.OpenReport "RelProduto", acViewPreview, , "Código=" & Me.Código.Value



ou


'Imprimir

DoCmd.OpenReport "RelProduto", acViewNormal, , "Código=" & Me.Código.Value

JUNGLI, um bom dia pra você!

ok, deu certo,

solucionado,

Grato por sua disposição!

sabe o que me perco?

quando é número, texto, decimais, datas, não sei distribuir as aspas, pontos e vírgulas para que funcione de maneira correta.

Tipo este exemplo:
Não estou conseguindo fazer funcionar decimais:

Por acaso você tem algum resumo de regras de como e quando utilizar utilizar aspas, pontos e vírgulas.

CurrentDb.Execute "update [lista de produtos] set ESTOQUE = ESTOQUE+" & Me.Qtde & " where cadprod=" & Replace(Me.cadprod, ",", ".") & ""


Grato,

Campos.

Boa tarde

separe a parte do seu banco de dados que apresenta o erro e poste pra eu dar uma olhada

JUNGLI, bom dia!


Vou preparar o arquivo, logo te envio.


Grato,

Campos.

JUNGLI boa tarde, amigo!
 
Segue o arquivo abaixo, ok!

JUNGLI,boa noite amigo!

Olha, nosso amigo e mestre HARYSOHN, verificou o arquivo e detectou o erro,

eu digite o replace no lugar errado.

com erro:
CurrentDb.Execute "update [lista de produtos] set ESTOQUE = ESTOQUE+" & Me.Qtde & " where cadprod=" & Replace(Me.cadprod, ",", ".") & ""

Sem o erro:

CurrentDb.Execute "update [lista de produtos] set ESTOQUE = ESTOQUE+" & Replace(Me.Qtde, ",", ".") & " where cadprod=" & (Me.cadprod) & ""

mas de qualquer forma fico muito grato pelo interesse deste caso.


Campos.