MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]criand codigo vba com sql para buscar valor especifico conforme data de caixa de combinação

    Compartilhe

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    [Resolvido]criand codigo vba com sql para buscar valor especifico conforme data de caixa de combinação

    Mensagem  rodrigosky em Ter 03 Mar 2015, 17:56

    Boa Tarde, estou tentando criar um código que traga um valor especifico de uma data selecionada a partir de uma caixa de combinação, porem esta dando erro, não sei se algum detalhe no comando sql ou na estrutura do código.

    Segue código abaixo:


    Private Sub Comb_data_inicial_AfterUpdate()
    Dim sql As String
    Dim rs As Recordset
    Dim Tx_acumulado_inicial As Double


    'codigo sql
    sql = "SELECT fator_acumulado_cdi" & _
    " FROM tbl_cdi" & _
    " WHERE(data_cdi = " & Comb_data_inicial & ""

    Set rs = CurrentDb.OpenRecordset(sql)


    Tx_acumulado_inicial = rs.Fields("fator_acumulado_cdi") 'Caixa de texto que ira receber o valor


    Me.Refresh
    Me.Requery
    Me.Recalc
    End Sub

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: [Resolvido]criand codigo vba com sql para buscar valor especifico conforme data de caixa de combinação

    Mensagem  Avelino Sampaio em Qua 04 Mar 2015, 09:27

    Olá!

    Da para reduzir este seu código utilizando a função Dlookup() do Access. Experimente:

    Tx_acumulado_inicial = Dlookup("fator_acumulado_cdi","tbl_cdi","data_cdi = #" & format(me!Comb_data_inicial,"mm/dd/yyyy" & "#")

    Leia mais sobre filtragens neste meu artigo:

    [Você precisa estar registrado e conectado para ver este link.]

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 77
    Registrado : 17/05/2013

    Re: [Resolvido]criand codigo vba com sql para buscar valor especifico conforme data de caixa de combinação

    Mensagem  rodrigosky em Qua 04 Mar 2015, 11:43

    Muito Obrigado Avelino.
    Deu Certo.
    Valeu!!!

      Data/hora atual: Dom 04 Dez 2016, 14:16