[Resolvido]Imprimir Registro atual

Boa tarde a todos

Gostaria de uma ajuda referente a relatório.
Tenho minha tela orçamento onde digito os dados do mesmo, para imprimir o relatório de outros orçamento anterior busco em uma caixa de combinação.
Digito o número do orçamento(que é o num. do registro) ai é impresso o relatório correto Gostaria que fosse impresso voa botão o orçamento que selecionei que é o atual na tela.
Como devo proceder para imprimir o registro atual em meu relatório

Antecipadamente agradeço a atenção de todos

Vc usa algum formulário?

Pode tentar assim

Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "ChavePrimária= Forms!NomeFormulário!ChavePrimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Boa tarde a todos.

Esta dando erro: que é o seguinte
O campo específico “SaidaNumero’ pode ser referir a mais de uma tabela relacionada na cláusula FROM da instrução SQL.
Busca diversos campos em outras quatro tabelas.

Vieira ficou desta maneira.

Private Sub Comando105_Click()
Dim strDocName As String
Dim strFilter As String
strDocName = "Rlt_OcamentoCodigoBarra"
strFilter = "SaidaNumero= Forms!Orcamento!SaidaNumero"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
End Sub

Tenho o form. sim Marcelo, conf. descrição do pedido de ajuda

SaidaNumero é a chave primária, certo? e numeração automática. Existe noutra Tabela algum campo igual? Se existir renomeie este para ID e experimente, embora este erro ocorra quando as chaves estão em form e subform

Tire me uma dúvida, alterando este campo não vou ter que alterar mais coisa, poi stenho dados no mesmo Vieira?

Pode alterar para ID sem problema. É só trocar o nome na tabela e no campo no formulário. O nome da caixa de texto passa a ser ID

Vieira, esta dando vários erros, em consultas, form., subform, relacionamentos, etc.
Não teria outro modo?

Pois é companheiro. era o que eu temia. Problemas de chave e relacionamentos. Pode colocar aqui a BD? em formato 2003 ou XP?

Mestre Vieira, acho que assim funcionaria
DoCmd.OpenReport "NomeDoSeuRelatório", acViewPreview, "", "[Código]=[forms]![NomeDoSeuFormulário]![Código]", acNormal

Pois assim seria impresso o registro atual. Mas isso se não houver problemas de relacionamentos, chaves primárias...

Sim, Marcelo sem dúvida, mas dá.me ideia que andam ali problemas de relacionamentos. O Erro acima acontece por exemplo, se tiver-mos um ID nueração automática no form e ID numeraçaõ automática em subform, entre outros possíveis. Marcelo, trate-me por Vieira. Obrigado

Vieira, como fazer para lhe enviar o banco?

Para o meu email que eu coloco aqui.

sergiovieirasoft@gmail.com

Da erro também marcelo

É como o Vieira falou, deve haver problemas de relacionamento ou chaves primária.
Envie seu bd para o email do Vieira.

Ora aí está. Marcelo, quer dar uma vista de olhos?

http://dl.dropbox.com/u/8157744/PontocomOr%C3%A7amento.zip

Talvez fosse melhor enviar o BackEnd, pois só nas duas tabelas enviadas, já detectei erro de relacionamento e má organização da BD, presumo que vamos ter que refazer tudo, vcamos aguardar pelo Marcelo

Vierira vou lhe enviar o _be, este que lhe enviei é somente teste, por isso esta dando tantos erros

Ok, vamos a isso

Então aqui temos

http://dl.dropbox.com/u/8157744/Pontocom_be.zip

Opa, ja estou vendo aqui.

A Tabela Saida o campo SaidaNumero, deveria ser Numeração automática e chave primária.Já na tabela detalhesaida deveria ser número inteiro longo. Os dois ficam ligados no velho 1 para muitos

Assim teriamos já o primeiro erro resovido

O segundo erro é ir à consulta e desmarcar a caixa saida.saidanumero (tabeladeta
lhe)

Assim teriamos já o segundo erro resovido

Ir ao Relatório e na caixa SaidaNumero corrigir o nome para SaidaNumero, pois o nome está mal. Chamar as propriedades do Relatório (Agrupar e Ordenar) e agrupar por saidanumero.

Assim teriamos já o terceiro erro resovido

Mas, vamos ter muitas situações parecidas nesta BD.

Por favor experimente

Vieira, esta dando muitos erro, só para vc’s terem uma idéia da uma olhada nos relacionamentos no Pontocom_be, com as alterações não teria como eu ficar seguro que não haveria erros no futuro, ai o bicho pegar, rsrsrs

Não teria outro modo para imprimir o registro atual sem ter que acertar estes erros.

Naldo, importe tudo para uma BD vazia e não divida a BD. Quando estamos a desenvolver a BD, na minha perspectiva só deve ser divididad quando terminada. Agora, não pode ter a mesma chave primária só número nas 2 tabelas, quando tem um form com sub form. Tem que ter paciência, pois a relação requerida é um para muitos.

Estou a tomar uma quantidade de medicamentos que me dão sono e vou ter que terminar a minha participação de hoje. Se eventualmente amanhã ainda estiver com o mesmo problema eu ajudo com mais eficácia. Um abraço.

Pelo o que vi, há sérios problemas de estrura, as correções que o vieira sugeriu são primordiais ao bom funcionamento do su banco de dados...

Valeu Vieira, sou muito grato pela sua atenção.

QUE DEUS LHE ILUMINE

Ok, entendo Marcelo, mas é que não tenho tanto conh. assim em Access, pois o banco esta func. corretamente, por este motivos não gostaria de ter que mecher na estrutura.

Será que não teria alguma maneira de imprimir o relatório

Vieira, sei como é problemas de saúde, fiz um transplante a nove meses, e ainda sofro muito com a minha recuperação.

QUE DEUS LHE ILUMINE

Vou ver o que posso fazer aqui...

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Senhores, bom dia!
Usei o código citado anteriormente:
DoCmd.OpenReport "NomeDoSeuRelatório", acViewPreview, "", "[Código]=[forms]![NomeDoSeuFormulário]![Código]", acNormal.
Onde, nos campos, "NomeDoSeuRelatorio", [Código] e [NomeDoSeuFormulário] substituí-os pelos respectivos nomes do relatório, do campo onde se encontra o código do formulário (dentro do próprio formulário) e pelo nome do formulário.
Gostaria de relatar, também, que deu certo para o meu caso, que é um formulário de saída para mercadorias, onde usei sub-formulário e sub-relatório.
Ressaltando, também, que antes coloquei:
Private Sub NomedoBotãoqueExecutaaAçãodeVisualizaraImpressão_Click()
e, após o código acima, usei:
End Sub