MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

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

    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rodrigosky 3/3/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 4/3/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:

    http://www.usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp?id=1#inicio

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    rodrigosky
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  rodrigosky 4/3/2015, 11:43

    Muito Obrigado Avelino.
    Deu Certo.
    Valeu!!!

      Data/hora atual: 5/12/2022, 19:19