[Resolvido]Fonte do Registro em Relatórios

Boa Tarde, Amigos.

Tenho efetuado pesquisas e testes, com a finalidade de Informar o RecordSource de Relatório através de Eventos, e não na Fonte de Registro normal.

Mas os subRelatórios não buscam a informação. Me parece que eles já abrem buscando a informação direto onde eles foram criados, ou seja a Fonte do Controle da Aba normal.

Tentei informar o RecordSource no Abrir, Carregar e no Atual. Tudo em vão. Não obtive êxito.

Como informação, normalmente deixo meus forms, desacoplados, para ficarem rápidos ao abrir e depois de abertos em algum momento, eles buscam a Fonte de Origem (RecordSource). Tenho procurado fazer o mesmo com os Relatórios, mas sem sucesso.

Se algum dos colegas souberem onde estou cometendo erros, serei muito grato.

Abraços.

Veja na seção Exemplos deste fórum, um exemplo de nome:

Varios Relatorios com o mesmo SubRelatorio

Acredito que resolverá o seu problema.

Também pode manipular desta forma:

DoCmd.OpenReport "SeuRelatorio", acViewDesign, , , acHidden

If opcao = 1 Then
Reports!SeuSubRelatorio.RecordSource = "Consulta1"
ElseIf Opcao= 2 Then
Reports!SeuSubRelatorio.RecordSource = "Consulta2"
Else
Reports!SeuSubRelatorio.RecordSource = "Consulta3"
End If

DoCmd.Close acReport , "SeuRelatorio", acSaveYes
DoCmd.OpenReport "SeuRelatorio", acViewPreview

Boa João Paulo.

No Forms Consigo muito realizar o que você acabou de sugerir.

Mas no Relatório, tento fazer ele buscar Registros diferentes, mas ele não vai.
Só quer saber de pegar o Registro Casado na Folha de Propriedade, Dados, Fonte Do Controle.

Se tenta algo assim:
Me.RecordSource = "SELECT * FROM Tbl_Pedido WHERE IDPedido=" & Me.IDPedido & ""
ou qualquer outro tipo de consulta, efetuado. Simplesmente ele abre vazio, pois não tem um caminho na abertura.

Para os Forms, como eu disse, nenhum problema, mas nos Relatórios.... Nada feito.

Abraços.

Amigo Aleixo, você viu o exemplo que lhe falei na seção Exemplos deste fórum ?

Veja que o RecordSource do SubRelatorio está vazio, o relatorio ao abrir é que manda no Select

Olá, JPaulo.

Entendi.
Pelo que parece tenho que abrí-lo em ModoDesign e depois então determinar.
Espero ser este a minha solução.

Abraços.

Pode optar por essa opção como lhe passei acima.

DoCmd.OpenReport "SeuRelatorio", acViewDesign, , , acHidden

If opcao = 1 Then
Reports!SeuSubRelatorio.RecordSource = "Consulta1"
ElseIf Opcao= 2 Then
Reports!SeuSubRelatorio.RecordSource = "Consulta2"
Else
Reports!SeuSubRelatorio.RecordSource = "Consulta3"
End If

DoCmd.Close acReport , "SeuRelatorio", acSaveYes
DoCmd.OpenReport "SeuRelatorio", acViewPreview

Boa Tarde, JPaulo.

De fato, meu problema persistiu. Ele resolve bem, mas Relatório normal.
Quando preciso chamar o sub, aparece uma mensagem dizendo que o objeto não aceita a instrução.

Deixei de lado, pois estava me tomando muito tempo, e transformei o Sub em um normal.

Mas gostei muito dessa forma de chamar o report. Fiquei feliz por aprender mais um.

Abraços

Bom dia amigo Aleixo;

Desistir no Access, é o pior que se pode fazer depois tanto esforço.

Existem mil maneiras de fazer nestum, vamos inventar uma ???

Coloque o seu banco, ou parte dele em site publico que arranjamos uma maneira de dar a volta a isso.

Bom Tarde, JPaulo.

Obrigado.´
Vez ou outra,você sabe que está fazendo tudo certo, mas com certeza não está, senão funcionaria. É o caso desta questão do Relatório.
Mas sim, agradeço pelo puxão de orelhas, pois realmente em qualquer questão a desistência é nunca é bem vindo.

Sim, vou postar.
Vou aproveitar e postar um dificuldade em colocar o Nz para um campo.

Abraços.

Fala Aleixo;

A minha intenção é ajudar, como já me conhece de outras selvas.

Sempre que precisar estamos ae.