Amigos,
Estou com um problema, estou finalizando um pequeno controle de estoque e vendas criei uma consulta onde pega os dados dos vendedores na queryVendedores e exibe num listbox onde clicando no nome do vendedor no list ele vai exibir um relatorio criado apartir da query, só que quando clico no nome do vendedor dentro da listbox aparece uma janela dizendo:
Tipo de dados incompativel na espressão de critério
e não mostra aonde está o erro
Private Sub lst_nomes_Click()
On Error GoTo Err_lst_nomes_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rptVendasporVendedor"
stLinkCriteria = "Nome=" & Me.lst_nomes
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
Exit_lst_nomes_Click:
DoCmd.Close acForm, "frmLocalizar"
Exit Sub
Err_lst_nomes_Click:
MsgBox Err.Description
Resume Exit_lst_nomes_Click
End Sub
alguem pode me ajudar?
Adilson
Estou com um problema, estou finalizando um pequeno controle de estoque e vendas criei uma consulta onde pega os dados dos vendedores na queryVendedores e exibe num listbox onde clicando no nome do vendedor no list ele vai exibir um relatorio criado apartir da query, só que quando clico no nome do vendedor dentro da listbox aparece uma janela dizendo:
Tipo de dados incompativel na espressão de critério
e não mostra aonde está o erro
Private Sub lst_nomes_Click()
On Error GoTo Err_lst_nomes_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "rptVendasporVendedor"
stLinkCriteria = "Nome=" & Me.lst_nomes
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
Exit_lst_nomes_Click:
DoCmd.Close acForm, "frmLocalizar"
Exit Sub
Err_lst_nomes_Click:
MsgBox Err.Description
Resume Exit_lst_nomes_Click
End Sub
alguem pode me ajudar?
Adilson