bom dia amigos!
dei uma pesquisada e não achei nada infelizmente
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:
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.
se alguém poder dar uma luz.
abraços
dei uma pesquisada e não achei nada infelizmente
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.
se alguém poder dar uma luz.
abraços