[Resolvido]Criterio na Consulta

Boa tarde amgos

Neste exemplo que anexo tem:

Um botão que diz "Mapa" que ao clikar pede para selecionar o tipo de mapa a ver "Receitas ou Despesas . Ao clikar em receitas o Campo "Texto205" com fundo a amarelo assume 1 para Receitas e 2 para despesas.

Na consulta "mapadespesas" tem lá o critério que eu acho estar certo [Formulários]![listacaixa]![Texto205] mas ??????

Conclusão se o campo AMARELO tiver o valor 1 deveria abrir o formulário "MapaDespesas" com um movimento que tem registado, se tiver o valor 2 deveria abrir com 2 Movimentos que tem registados.

Mas abre sempre sem registos, e era aqui que queria a vossa ajuda.

Obrigado

Olá Assis,

Não sei se entendi direito. Vê se te ajuda:

Private Sub QuadroTipo_AfterUpdate()
On Error Resume Next
Dim strSQL As String
Select Case QuadroTipo
Case Is = 1

strSQL = "SELECT [tblCaixa].[DataLancamento]..."
[SubFrmCaixa].Form.RecordSource = strSQL 'A fonte de registros (RecordSource) é a string strSQL.
[SubFrmCaixa].Requery 'Faz a reconsulta dos dados

Case Is = 2
strSQL = "SELECT [tblTipo].[Descricao]..."
[SubFrmCaixa].Form.RecordSource = strSQL 'A fonte de registros (RecordSource) é a string strSQL.
[SubFrmCaixa].Requery 'Faz a reconsulta dos dados
End Select
End Sub

pedindo licença ao colega Eduardo, Assis retira o critério da consulta MapaDespesas e no form. ListaCaixa, substitui o  DoCmd.OpenForm "MapaDespesas" por:
DoCmd.OpenForm "MapaDespesas", , , "Tipo=" & Texto205

Obrigado amigos

Beto a sua dica é a ideal

Saudações amigo.

O erro está no critério da consulta.
Existe um form e um subform de onde vêm o resultado.

Veja

Formulários![ListaCaixa]![SubFrm].Formulário![Texto205]

Opa desculpe amigos, mas deixei aberto o fórum sem atualizar e respondi em seguida.
Mas pelo visto agora o Assis têm várias opções.
Abraço á todos e bom fim-de-semana.

Saudações.  

Cláudio

É isso aí.
Também funfa
Obrigado
Bom fim-de-semana

Amigos

No meu exemplo que está na mensagem Nº 1, como mandar o foco para o campo chamado " DataPagto "que está no cabeçalho.

Obrigado

Assis no evento ao carregar do form. ListaCaixa abaixo da linha DoCmd.ShowToolbar "Ribbon", acToolbarNo, coloca:
Forms!ListaCaixa!SubFrm.Form.DataPagto.SetFocus

Obrigado Beto resolvido
Abraço