MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Edgar Massa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/01/2017

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

    Mensagem  Edgar Massa em 24/12/2017, 20:48

    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 ?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 26/12/2017, 09:21

    Assim:

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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Edgar Massa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/01/2017

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

    Mensagem  Edgar Massa em 31/12/2017, 19:12

    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?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10437
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em 2/1/2018, 14:04

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    avatar
    Edgar Massa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/01/2017

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

    Mensagem  Edgar Massa em 3/1/2018, 15:36

    Desculpa J Paulo,

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 33
    Registrado : 08/01/2017

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

    Mensagem  Edgar Massa em 8/1/2018, 17:14

    Conseguii cheers cheers

    utilizei outra forma como esta neste tópico.

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

      Data/hora atual: 25/3/2019, 04:18