pessoal, olhem só.
Private Sub Workbook_Open()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\ServidorarquivosBDSheringSistema_Metta_Shering2000.mdb"
cn.Open
'define um novo objeto recordset
Set rs = New ADODB.Recordset
'Chama as funções contidas nos módulos
Call VendJoseFernando
Call VendAntonioAlves
cn.Close
End Sub
eu coloquei 2 combobox em uma planilha.
e para carregá - los eu faço uma função com esse cod:
sql = "SELECT brick.eqz "
sql = sql & "FROM cadastrovendedor INNER JOIN brick "
sql = sql & "ON cadastrovendedor.codigo_vendedor = brick.codigo_vendedor "
sql = sql & "WHERE (((brick.eqz)=273301) AND ((cadastrovendedor.nome)='José Fernando Vieira')) "
rs.Open sql, cn
'Carrega o combo do Vendedor José Fernando
Plan1.cmbJoseFernando.Clear
Plan1.cmbJoseFernando.AddItem rs("eqz")
'Loop
aí carrega o primeiro combo. Só q o segundo combo não está carregando e uso essa mesma função acima, mudando apenas o eqz para 273303 e o nome do vendedor.
Aí ele me dá esse erro: Erro em tempo de execução '3705'. Erro de definição de aplicativo ou definição do objeto. Ele dá esse erro quando ele tenta executar o sql do outro combo:
rs.open sql, cn. E esse codigo eu uso para executar o sql do 1º combo.
Gente qual é o erro? Como posso arrumar?
Ele só da o erro na função do 2º combo.
Valeu
