[Resolvido]form com lista para relatório

vivas para todos
mais uma vez recorro a vossa ajuda, neste problema que não estou a conseguir resolver
tenho um form com lista e numa das opções dessa lista tem um relatório com um determinado critério que iria abrir o relatório pretendido
e , não estou a conseguir.
agradecia ajuda

segue codigo que estou a usar no form


Private Sub Comando50_Click()
On Error Resume Next
If Me.Lista48.Value = "Funcionário" Then
DoCmd.OpenForm "frm_Individual"
ElseIf Me.Lista48.Value = "Telemovel" Then
DoCmd.OpenReport "rlt_Telemoveis"

End If
End Sub


aguardo apoio

mirsofy

Olá,

Assim deves resolver

If Me.Lista48.Column(0) = "Funcionário" Then
DoCmd.OpenForm "frm_Individual"
ElseIf Me.Lista48.Column(0) = "Telemovel" Then
DoCmd.OpenReport "rlt_Telemoveis"
End If


No entanto se tiveres a lista com duas colunas
em que a 1ª é o campo escolhido e a 2ª o nome do reporte que pode estar com tamanho 0 e nao fica visivel
exemplo:
| Funcionário | frm_Individual |
| Telemovel | rlt_Telemoveis |

Podes utilizar apenas o seguinte comando

DoCmd.OpenForm Me.Lista48.Column(1)

Tens a vantagem se necessitares de nova listagem é só adicionar à lista, não sendo necessário alterar codigo.

vivas
grato pela dica o erro era o texto que estava na lista não era igual ao da tabela e assim não chamava
a tua dica obrigou-me a verificar os espaços e texto e foi ai que verifiquei o meu erro de resto o codigo está correcto
mas valeu a chamada de atenção
obrigado

Mirsofy