[Resolvido]Problemas na hora de imprimir registro atual

bom galera do forum

To com um probleminha aqui

tenho um retorio de vendas

No meu formulario de vendas tem o botão para imprimir
a nota de venda ok


fiz uma venda vou imprimir a nota

e qunado saie imprime todos o que eu já fiz

e nao a nota secionada da venda

Você precisa passar o registro atual do formulário como parâmetro no botão que abre o relatório. Algo assim:

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , Código = " & Me.txtCódigo"

aonde txtCódigo é o nome do campo que tem o código da venda no formulário. Isso pode ser passado na consulta tambem, no parâmetro do código, aonde você colocaria assim:

Como Formulários!NomeDoForm!NomeCampoCódigoNoForm

Aí bastaria criar o relatório baseado nessa consulta, mas acho o primeiro método mais simples.

vou ver se consigo

Se não me falha a memória e se a BD é a mesma deve existir aí uma outra opção de imprimir com este código:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "Chaveprimária= Forms!NomeFormulário!Chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

acho que tinha mas foi modificado bd vieria

Então tanto pode aproveitar o do Criquio ou esse que já lá estava. Qualquer um deles funciona.

No evento clique do seu botão de comando para imprimir:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório" 'aqui vai o nome do relatório para abrir
strFilter = "Chaveprimária= Forms!NomeFormulário!Chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

vou tentat agora no que jingle
me andou resolvido o estoque

Ok, algum problema apite

ok vieira

deu um erro na compilação vieira

Amigo, sempre que relatar um erro, informe a mensagem de erro e a linha para a qual o depurador apontar. Isso agiliza a detecção e solução do erro, pois existem vários tipos de erros possíveis.

fiz outro ai pegou o codigo

mas quando saiu a impressao

saiu o mente de notas

tenho um bd que ta imprimindo certo tentei pegar s mesmas coisas

mas imprimi e tudo quando coloco no bd atual

ja coloquei 7 veses o codigo

Mande lá isso para mim ou coloque aqui

ok vieira vou mandar para seu email

Recebido. Vou ver e já retorno

Qual é o formulário?

caixa venda

caixavenda e não caixa venda

http://dl.dropbox.com/u/8157744/DIEGO%20COSTRU%C3%87%C3%95ES%20logim%20diferente1_2011-04-12.rar

para ficar sertinho neh sem separar

obrigado vieira

vou comeaçar os testes

ou voçe acha qye falto alguma coisa

Só vi o que você me passou e pediu. Tem mais alguma coisa?

acho que nao vieira so se voçe ver algo

que quera colocar

ou icrementar alguma coisa padrão

Penso que o Jungli resolveu bem aquela questão. Esta também está resolvida. Penso que está tudo OK.

ok vieira to fazendo agora os graficos

testando como funciona

Bom trabalho e obrigado pelo retorno.

já ai esquecendo vieira

tem como ela imprimir direto

sem mostrar o relatorio

se nao toda vez tenho que apertar crt p

Amigo é só substituir na linha:

DoCmd. OpenReport......acViewPreview, por acNormal

fiz isso so que imprime tudo rsrsrs

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "vendas"
strFilter = "ID= Forms!caixavenda!ID"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
DoCmd.Close acForm, "caixavenda"

agora eu apago o outro e colo esse no lugar

funcionando que e uma belesa

obrigado novamente!!!

amnha nao vou ta no forum vou viajar cedo

só a noite volto

Obrigado pelo aviso (rsrsrs) e boa viagem