Tenho um formulário com uma caixa de listagem e um botão com o código abaixo que uso para selecionar os itens de meu interesse mas, ao clicar no item escolhido aparece a seguinte mensagem: "Erro em tempo de execução '94': Uso de 'Null" invalido.
Private Sub Lista1_AfterUpdate()
Me!Lista1 = Proper(Me!Lista1)
End Sub
Private Sub Tst_Click()
Dim sel As Variant
Dim strwhere As String
strwhere = "item in ("
For Each sel In Me.Lista1.ItemsSelected
strwhere = strwhere & "'" & Me.Lista1.ItemData(sel) & "',"
Next
strwhere = strwhere & ")"
DoCmd.OpenReport "PedOrcamento", acViewPreview, , strwhere
End Sub
Private Sub Lista1_AfterUpdate()
Me!Lista1 = Proper(Me!Lista1)
End Sub
Private Sub Tst_Click()
Dim sel As Variant
Dim strwhere As String
strwhere = "item in ("
For Each sel In Me.Lista1.ItemsSelected
strwhere = strwhere & "'" & Me.Lista1.ItemData(sel) & "',"
Next
strwhere = strwhere & ")"
DoCmd.OpenReport "PedOrcamento", acViewPreview, , strwhere
End Sub