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]Dlookup com variavel em tabela

    maguim
    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  maguim em 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 100%

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

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

    Mensagem  maguim em 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: 19/11/2019, 16:31