Bom Dia!
Tenho um formulario na qual gero consulta por ele e no mesmo, escolho numa combo cep, bairro, logradouro , e em outra caixa digito o valor de acordo com a escolha na combo ok. Se for cep digito cep, se for logradouro, digito logradouro que quero e assim vai...

bom , neste form tenho este codigo abaixo:
Private Sub frag_AfterUpdate()
On Error GoTo frag_AfterUpdate_Err

Select Case RgpOpcao.Value
Case 1: OpcaoEscolhida = " Like [Forms]![Ceps]![frag] & ""*"""
Case 2: OpcaoEscolhida = " Like ""*"" & [Forms]![Ceps]![frag] "
Case 3: OpcaoEscolhida = " Like ""*"" & [Forms]![Ceps]![frag] & ""*"""
Case 4: OpcaoEscolhida = " Like [Forms]![Ceps]![frag]"
End Select

If (Combinação12 = "Cep") Then
'DoCmd.OpenForm "Ceps", acNormal, "", "[Cep] Like ""*"" & [Forms]![Ceps]![frag] & ""*""", , acNormal
DoCmd.OpenForm "Ceps", acNormal, "", "[Cep] " & OpcaoEscolhida, , acNormal
End If


Muito bem, deste grupo de opcao , quando seleciono o item 1 , 2 3 ou 4, do grupo de opcao, a consulta procede de acordo com os like explicado acima. E a consulta e feita normalmente sem erros, funcionando normal.

Bom, agora crie um botao para imprimir esta consulta, e referenciado à esta consulta, crie no campo o criterio:

forms]![ceps]![opcaoescolhida] nao da certo
forms]![ceps]& "opcaoescolhida" não da certo
forms]![ceps]![opcaoescolhida] não da certo

pergunto o que devo colocar no criterio, desta consulta para que tudo dê certo.
***Lembrando opcaoescolhida é um grupo de opcao

Obrigado, Marciomar

Marciomar,

A primeira opção seria a correta apena abra e feche o colchete:

[forms]![ceps]![opcaoescolhida]

Aproveita e da uma olhada no banco de dados de exemplo, pois a sua solução estara lá....

algo assim:

Sub ImprimirRelatórios(ModoDeImpressão As Integer)
On Error GoTo Erro_Visualizar_Click
' Este procedimento é usado nos procedimentos Visualizar_Click e Imprimir_Click.
' Visualiza ou imprime o relatório selecionado no grupo de opção RelatórioAImprimir.
' Fecha então o formulário Diálogo Relatórios de Vendas.

Dim strCategoriaOnde As String

strCategoriaOnde = "NomeDaCategoria = Forms![Diálogo Relatórios de Vendas]!SelecionarCategoria"

Select Case Me!RelatórioAImprimir
Case 1
DoCmd.OpenReport "Vendas dos Funcionários por País", ModoDeImpressão
Case 2
DoCmd.OpenReport "Totais de Vendas por Quantidade", ModoDeImpressão
Case 3
If IsNull(Forms![Diálogo Relatórios de Vendas]!SelecionarCategoria) Then
DoCmd.OpenReport "Vendas por Categoria", ModoDeImpressão
Else
DoCmd.OpenReport "Vendas por Categoria", ModoDeImpressão, , strCategoriaOnde
End If
End Select
DoCmd.Close acForm, "Diálogo Relatórios de Vendas"

Sair_Visualizar_Click:
Exit Sub

Erro_Visualizar_Click:
Resume Sair_Visualizar_Click