[Resolvido]relatório para imprimir dados

Ola feras não estou conseguindo ,fazer que o relatório ,abra acusa que não tem dados .
Mas ha dados!

um pouco mais explícito? Que relatório?

Vieira preciso imprimir os dados do frmpedidos ,somentes os dados atuais do form que continuo.

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

vOU tentar

Faça isso no botão de comando para imprimir

A chave primaria se refere a qual tabela ?

A chave primária éo ID ou código de algo. Se as tabelas estiverem relacionadas, não tem problema.

Por exemplo Tabela Cliente

ID- Auto numeração

Sub Tabela Cliente

ID - Número inteiro longo

Relação de 1 para muitos

o problema é diz que não tem dados para ser impresso ,mas ha dados

Quer-me enviar isso para eu dar uma vista de olhos.? O meu primo hoje desapareceu, rsrsrs.

Não estou coseguindo postar aqui enviei para seu email ok

Não chegou nada e não esqueça que tem que ser em 2003

enviei novamente em 2003

Agravina não recebi nada.

confirma seu email por favor

sergiovieirasoft@gmail.com

sergio.vieira@svcsoftwarehouse.com

Já enviei novamente para sergio.vieira@svcsoftwarehouse.com

Recebido

Agravina, desculpe e envie-me de novo o ficheiro.

enviado!

Tudo bem, mas qual o formulário?

Agravina

Abra a BD e vá ao Relatório "Artigo Consulta" e diga.me aonde foi buscar os dados para o relatório???? Não cosulta não foi, ora confira os campos desvinculados por favor.

frmpedido

Então está tudo trocado porque este relatório está ligado à consulta referida, ao formulário1 e os dados não condizem.

Veja o colocou no frm pedido:

Private Sub Comando24_Click()

X = DCount("*", "pedido")
If X <= 0 Then
MsgBox "Não existem dados", vbCritical, "Atenção"
Exit Sub
End If


On Error Resume Next
DoCmd.OpenReport "relfrmcompra", acPreview
DoCmd.RunCommand acCmdZoom75
DoCmd.RunCommand acCmdPreviewOnePage

End Sub


Agora o que colocou no formulário1


DoCmd.OpenReport "Artigo Consulta", acViewNormal, "", "", acNormal

pode ver isso para min?

Tudo bem, mas mais logo, pois agora vou ter que sair em trabalho. Abraço

Certo fico no aguardo

Aqui vai

Veja o que fiz no formulário1 e no relatório. Para aprender a fazer no futuro faça o mesmo no form pedidos e no relatório correspondente.

O que fiz para você perceber:

1- Coloquei uma caixa não acopolada que vai buscar o resultado à combo "NomeFornecedor". Mas como o resultado se traduz em número de cliente e não no nome da cbo, no evento afterupdate da cbo nomefornecedor foi necessário acrescentar este código para que ao invés do número de fornecedor, aparecer o nome do fornecedor:

Me.Artigo_subformulário1.Requery
Me.Texto34 = Me.cboNomeFornecedor.Column(1)

2- No relatório coloquei uma caixa no cabeçalho que tem o seguinte código na origem dos dados:

[forms]![Formulário1]![Texto34]

Repare; Texto34 é a caixa que tenho no formulário1 e que recebe o valor do nome em texto do fornecedor. É também esta caixa que vai filtrar para o relatório.

No botão de imprimir do Form


DoCmd.OpenReport "Artigo Consulta", acViewPreview


Não precisamos de mais nada, pois o relatório já sai filtrado no fornecedor seleccionado.

http://dl.dropbox.com/u/8157744/Agravina2003.rar

Não deu certo no frmpedido

Não conseguiu fazer igual ao formulário1, é isso amigão. Mais valia ter feito logo tudo, mas também não estou a agir direito ao fazer isto. Assim você não vai aprender é nunca. Que seja para desconto dos meus pecados. Logo que possa vou terminar.

Agravina

O Form Pedidos tem outra concepção. Então não pode funcionar igual ao anterior, porque aqui os produtos tem que ser escolhidos um a um. Seleccionamos um Fornecedor e depois seleccionamos os produtos um a um. Estou certo?

Agravina:

Abra a consulta "pedido consulta" e diga-me como quer fazer, porque tem:

Tabela compra ligada com a Tabela Detalhes Compra e Detalhes Pedido. O Relatório abre em branco, é óbvio. A consulta tem que ser refeita.

No que é que ficamos????

Preciso imprimir os dados do frmpedidos não estou conseguindo!

Claro que não consegue. Vou fazer à minha maneira, pronto.

Aqui vai

Tem que redesenhar o seu relatório, está tudo feito

http://dl.dropbox.com/u/8157744/Agravina2003.rar

Mestre mais uma vez obrigado,vou ver o que eu estava a fazer de errado!

Um abraço Agravina e obrigado pelo retorno

Mestre vieira teria ,como filtrar o por fornecedor como no formulario1,mas que seja posivel editar os dados no form .
tem como fazer? e como fazer?

Boa tarde Agravina


Está-se a referir a qual relatório e formulário? Desculpe, não é falta de memória, mas estou com 3 BD's aqui abertas a trabalhar nelas toda a tarde e já estou é confundido.

no link que temos acima temos o formulario1 certo que filtra os produtos por fornecedor ,mas gostaria de saber se possivel fazer que tambem possa ser editado os dados direto no sufomulario?


e

Ou seja, seleccionar fornecedor e preencher o sub formulário com os produtos desse fornecedor?

Não! veja que o subform não entra dados certo .tem com liberar para alterar os dados como preçocusto por exemplo?

Tenho que ir ver.

Desculpe, mande a BD em 2003 actualizada para mim ou só o necessário para que eu possa ver. Já limpei tudo no meu pc.

veja
http://www.speedyshare.com/files/28593319/Bd2003.mdb

Agravina já vou ver, acabei de enviar uma BD para outro colega. Desculpe que já vou ver o seu problema.

Ora aqui vai

Dê um duplo clique no campo custo, altere o preço no formulário. Clique no botão para guardar e veja o preço alterado.

http://dl.dropbox.com/u/8157744/Bd2003%20%281%29.rar

boa vou adpatar para os demais campos obrigado

Abraço amigão.