Erro desconhecido...

[Patuti 0]

sql = "SELECT codRede,Nome FROM Rede WHERE Nome LIKE " & cmbRede.TextSet rs2 = bd.OpenRecordset(sql) ' Erro: "Too few parameters. Expected 1"	rs!codRede = rs2!codRede

Bom oqq eu to fazendo, na primeira linha eu to tentando selecionar o unico registro que bate o Nome (Nome da Tabela Rede) com o Nome apresentado na ComboBox (cmbRede.text).Na segunda, eu to executando a query num recordsetNa terceira, estou salvando o campo codRede(codRede da Tabela Programa: rs) com o valor do codRede(codRede da Tabela Rede: rs2).Mas quando eu tento acionar esse comando ele indica a linha 2 (set rs2.......) com o seguinte erro:

Too few parameters. Expected 1

[luiz humberto 0]

Você está usando DAO, então tem duas formas de fazer uma seria:

Dim SQL_Query As QueryDefSet SQL_Query = Bd.CreateQueryDef("", "SELECT * FROM Tabela")Set Rs2 = SQL_Query.OpenRecordset()

A outra seria:

Set Rs2= BD.OpenRecordset("SELECT * FROM Tabela", dbOpenTable)

[Patuti 0]

Set Rs2= BD.OpenRecordset("SELECT * FROM Tabela", dbOpenTable)

Isso nao se aplica ao meu caso, pois eu tenho outras tabelas sendo aberta E exibidas nos controles simplesmente usando bd.openrecordset(sql)

 

Entao tem algo especifico naquele codigo que nao estah me deixando abrir no modo como eu abro as outras.

[luiz humberto 0]

sso nao se aplica ao meu caso, pois eu tenho outras tabelas sendo aberta E exibidas nos controles simplesmente usando bd.openrecordset(sql)

Correto, então o erro está quando é executado a instrução SQL, faça o seguinte dê um Debug.print sql e veja, mas de antemão veja para usar assim:

" & cmbRede.Text

Este campo tem que ser númerico, caso ele não seja faça assim:

sql = "SELECT codRede,Nome FROM Rede WHERE Nome LIKE '" & cmbRede.Text & "'"

[Patuti 0]

sql = "SELECT codRede,Nome FROM Rede WHERE Nome LIKE '" & cmbRede.Text & "'"

Opa... desse jeito aih de cima funcionou!! Obrigado a todos que me ajudaram!! =))

[luiz humberto 0]

Só que o curinga só funciona com o banco access, ao invés do curinga utilize o % que tb funciona no access e nos outros bancos.

[Patuti 0]

Obrigado aos dois, vou utilizar isso sim! =))