none
Erro em tempo de execução '-2147217904 (80040e10)': Nenhum valor foi fornecido para um ou mais parâmetros necessários. RRS feed

  • Pergunta

  • Ola, bom dia a todos.

    Eu estou criando um cadastro de Cliente e Agendamentos em VBA com bando de dados em Access 2010 e estou criando uma Consulta de Agendamento utilizando o seguinte código mas está aparecendo o erro: Erro em tempo de execução '-2147217904 (80040e10)': Nenhum valor foi fornecido para um ou mais parâmetros necessários. 

    Private Sub botao_consulta_Click()

        If Me.OptionCPF = True Then 'Marcar está opção para digitar o CPF do Cliente para realizar a consulta por CPF

        'Criar a conexão com o Banco de Dados Access

        Set Rs = New ADODB.Recordset
        Rs.Open "SELECT * From tblagendar Where CPF = '" & Me.pes_cpf.Text & "'", MiConexao, adOpenKeyset, adLockOptimistic, adCmdText

            Me.caixa_cod.Text = Rs.Fields("Código")
            Me.caixa_nome.Text = Rs.Fields("Nome_cli")
            Me.caixa_cpf.Text = Rs.Fields("CPF_cli")
            Me.caixa_telefone.Text = Rs.Fields("Telefone")
            Me.caixa_celular.Text = Rs.Fields("Celular")
            Me.caixa_dia.Text = Rs.Fields("Dia")
            Me.caixa_horario.Text = Rs.Fields("Horario")
            Me.caixa_dataagendamento.Text = Rs.Fields("Data_Agendamento")
            Me.caixa_valor.Text = Rs.Fields("valor")
            Me.caixa_procedimento.Text = Rs.Fields("Procedimento_Agendado")
            Me.caixa_email.Text = Rs.Fields("Email")

        Rs.Update

        End If
    End Sub

    Desde já agradeço.

    quarta-feira, 1 de março de 2017 14:36

Todas as Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Você está obtendo esse erro porque está chamando um campo que não existe na tabela.

    Onde escreveu CPF, não deveria ser CPF_cli?


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    quarta-feira, 1 de março de 2017 22:21
    Moderador