[Resolvido]Relatorio nao abre

Galera minha questao eh que ao chamar o relatorio "relmed" atraves do formulario, ou ele nao abre ou pede depuracao de um codigo mas, se chamar diretamente e informar os dados necessarios abre normalmente.

https://www.dropbox.com/s/j7ou2lsmvyth8kn/Relatorio.mdb?dl=0

Qual valor devo inserir executando o relatorio direto?
0012016 e em seguida MATERIAL DE EXPEDIENTE

A principio o problema que encontrei e referente a condição que filtra pelo Numero do Documento... Pois esta pegando o valor da CxListagem errada...


Esta assim:
Private Sub Comando4_Click()
Dim sel As Variant
Dim strwhere As String

strwhere = "nrDocumento in ("
For Each sel In Me.ListaGrupo.ItemsSelected
strwhere = strwhere & "'" & Me.ListaGrupo.ItemData(sel) & "',"
Next
strwhere = strwhere & ")"

DoCmd.OpenReport "RelMed", acViewPreview, , strwhere

End Sub


-------------------------------------------------------------------------------------------


Mude para:
Private Sub Comando4_Click()
Dim sel As Variant
Dim strwhere As String

strwhere = "nrDocumento in ("
For Each sel In Me.ListaPedido.ItemsSelected
strwhere = strwhere & "'" & Me.ListaPedido.ItemData(sel) & "',"
Next
strwhere = strwhere & ")"

DoCmd.OpenReport "RelMed", acViewPreview, , strwhere

End Sub

Veja se seria isso amigo.

Muito obrigado fabio, penso que teria mesmo que abrir este post pois eu já havia testado as alteracoes sugeridas sem exito. E o mais estranho eh que o meu codigo que postei eu o utilizo em outros aplicativos sem problemas.

Valeu mesmo.

Estranho mesmo.... pois da forma como estava comparava o numero do documento com a descricao material... mas importante e que deu certo... ate a proxima.