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]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 : 80
    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3407
    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

    rodrigosky
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 80
    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: Sab 18 Nov 2017, 10:27