[Resolvido]Recor Source com Critério

Bom dia!

Amigos estou com um problema, que não consigo entender o erro.

Tenho um relatório, de itens vendidos e um outro relatório de itens de garantia.
como ambos são exatamente iguais, diferenciando somente o tipo de item.
e na itenção de nao precisar usar 2 relatorios tentei criar a seguinte condição ao abrir o relatorio.
se o campo "SElValor"  que esta no rel. tivesse o valor 1 o recordsource desse relatório seria "BateriasVendidas", se fosse 6 o RecordSource seria "Garantias"
O campo "SelValor" recebe o valor de uma caixa de opções do Formulario onde coloco o periodo que desejo visualizar os itens.
Bom esse campo SelValor, esta buscando corretamente o valor do csampo no formulario.
Porem ao abrir o relatorio da um erro "Voce inseriu uma expressão que nao tem Valor"
Onde estou errando?

Att

Ney Santos

Ney

Você escreveu:se o campo "SElValor"  que esta no rel. tivesse o valor 1 o recordsource desse relatório seria "BateriasVendidas", se fosse 6 o RecordSource seria "Garantias"

Deve definir o SelValor antes de abrir o relatório, para que o código saiba qual recordsource abrir para o relatório.
Acreditando que os nomes BateriasVendidas e Garantias sejam nomes de consultas:

if me.selvalor = 1 then
  BateriasVendidas
else
 Garantia
endif

Se não funfar, coloque o código aqui

[ ]'s

Nobezinho, obrigado pela resposta.
Sim São consultas.
porem deu o mesmo erro.
Coloquei como vc disse:
Eis o codigo:

Private Sub Report_Open(Cancel As Integer)
If Me.selvalor = 1 Then
Me.RecordSource = "BateriasVendidas"
Else
Me.RecordSource = "Garantia"
End If
End Sub

Assim:

Private Sub Report_Open(Cancel As Integer)
If Forms!NomeFormulário!selvalor = 1 Then
Me.RecordSource = "BateriasVendidas"
Else
Me.RecordSource = "Garantia"
End If
End Sub

Me = Refere-se ao formulário/relatorio onde está o código, por isso não funfa.

obrigado agora funcionou..

Ótimo !!

Boa sorte !