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


    [Resolvido]Dlookup com variavel em tabela

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Dlookup com variavel em tabela Empty [Resolvido]Dlookup com variavel em tabela

    Mensagem  maguim 23/4/2019, 13:16

    bom dia amigos!

    dei uma pesquisada e não achei nada infelizmente Neutral


    estou com impasse em código que a variável fica no lugar da tabela do dlookup. Só que toda vez que referencio de um botão para um fomulário editado de RecordSource

    ele fiz não encontrar a tabela do dlookup

    erro: 2424
    A expressão que você inseriu possui um nome de campo, controle ou propriedade que o microsoft access não pode localizar.

    segue o codigo:

    Código:
    Dim I As Integer
    Dim F As String
    Dim strTabela As String


    strTabela = strTabelaTemp
    F = ""


    For I = 1 To CurrentDb.TableDefs(strTabela).Fields.Count
    F = F & ";" & CurrentDb.TableDefs(strTabela).Fields(I - 1).Name
    If CurrentDb.TableDefs(strTabela).Fields(I - 1).Name <> "Contrato" Then

    F = F & ";" & DLookup(CurrentDb.TableDefs(strTabela).Fields(I - 1).Name, strTabelaTemp, "PROTOCOLO = " & Me.PROTOCOLO)
    End If



    Next
    ListaINterna = Right(F, Len(F) - 1)  'Remove a ,Anes do Primeiro Campo
    Me.Lista40.RowSource = (ListaINterna)

    o erro esta aqui:
    F = F & ";" & DLookup(CurrentDb.TableDefs(strTabela).Fields(I - 1).Name, strTabelaTemp, "PROTOCOLO = " & Me.PROTOCOLO)

    ja tentei fazer assim:

    strTabelaTemp
    & strTabelaTemp &
    & strTabelaTemp
    "& strTabelaTemp & "


    strTabela
    & strTabela &
    & strTabela
    "& strTabela & "

    porem sem resultados. Neutral Neutral

    se alguém poder dar uma luz.


    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Dlookup com variavel em tabela Empty Re: [Resolvido]Dlookup com variavel em tabela

    Mensagem  maguim 23/4/2019, 14:16

    bom galera resolvi, porem nao sei porque deu certo.

    simplesmente coloquei pra ele loada recordsource e deu certo.

    Código:
    Me.RecordSource = "SELECT Contrato, PROTOCOLO FROM " & strTabelaTemp


    se alguem explicar o porque fico agradecido rs Laughing Laughing Laughing


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

      Data/hora atual: 23/11/2024, 14:34