[Resolvido]Parâmetros insuficientes. Eram esperados 1.

Galera
Boa tarde

estou usando este código para retornar uma consulta em um textbox mas retornou um erro "Parâmetros insuficientes. Eram esperados 1."

Public Function PegarCodigo() As Variant
Dim db As dao.Database
Dim rs As dao.Recordset
Dim strSQL As String
strSQL = "SELECT TB_IMPRESSORA.Código FROM TB_IMPRESSORA WHERE (((TB_IMPRESSORA.[Modelo da Impressora])=[Forms]![frm_Cadastro_Requisitos]![cmb_Modelo]));"

Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rs.RecordCount = 0 Then
PegarCodigo = Null
Else
PegarCodigo = rs(0)
End If
rs.Close
Set rs = Nothing
Set db = Nothing
End Function

Tem algo errado ?

Assim:

Código:

strSQL = "SELECT TB_IMPRESSORA.Código FROM TB_IMPRESSORA WHERE TB_IMPRESSORA.[Modelo da Impressora]='" & [Forms]![frm_Cadastro_Requisitos]![cmb_Modelo] & "'"


J Paulo

Boa tarde man!

Então, coloquei pra chamar a função ao alterar um combobox, porém o textbox que deveria aparecer o número nao aparece, continua 0.
O que da pra fazer?

As combobox`s começam pela coluna zero (0), verifique em que coluna estão os dados para o filtro.

Se não conseguir, anexe aqui parte do seu banco.

Desculpa J Paulo,

no lugar do combox, estou utilizando um textbox, se usa o mesmo código?

Conseguii

utilizei outra forma como esta neste tópico.

https://www.maximoaccess.com/t32160-resolvidoresultado-de-select-num-campo-textbox