[Resolvido]Erro 3078 em uma função

Boa tarde.

Tenho a seguinte função:

Public Function AtualizaTotSaldo()

Dim tb As Recordset
Set tb = CurrentDb.OpenRecordset("SELECT controle, CodContrib, ddata, MES, CFOP, NumEnt, QdeEnt, VlrtotBCSTEnt, NumSai, QdeSai, VlrUnitSai, VlrBCSTSai, QdeSaldo, QdeSaldoAnt, VlrUnitSaldo, VlrUnitSaldoAnt, TotalSaldo, TotalSaldoAnt FROM tbcontroledeestoque ORDER BY CodContrib, ddata, cfop, NumEnt, NumSai;")

Dim prod As String
Dim tsaldo As Double
Dim vlus As Double
Dim vbcs As Double
Dim VlrUnitSaldo As Double
Dim controle As String
Dim CodContrib As String

Forms!FrmImportar1!txtMensagem = "Atualizando Total Saldo.............."
Do While Not tb.EOF
prod = tb!CodContrib
tsaldo = Nz(tb!TotalSaldoAnt)
vlus = Nz(tb!VlrUnitSaldoAnt)
vbcs = 0
Do While tb!CodContrib = prod
tb.Edit
tb!VlrBCSTSai = tb!QdeSai * vlus
tb!TotalSaldo = tsaldo Nz(tb!VlrtotBCSTEnt, 0) - Nz(tb!VlrBCSTSai, 0)
If tb!QdeSaldo <> 0 Then
tb!VlrUnitSaldo = tb!TotalSaldo / tb!QdeSaldo
Else: tb!VlrUnitSaldo = 0
End If
tb!VlrUnitSai = vlus
tb.Update
tsaldo = tb!TotalSaldo
vlus = DLookup("[VlrUnitSaldo]", "[tb]", "[controle] >='" & [controle] & "'") ' o erro é aqui
tb.MoveNext
If tb.EOF Then Exit Do
Loop
Loop
tb.Close

Forms!FrmImportar1!txtMensagem = "Atualizada tbcontroledeestoque "

End Function

Quando mando executar dá o seguinte erro:

Erro em tempo de execução '3078':
O mecanismo de banco de dados do Microsoft Acess não pode
localizar a tabela de entrada ou consulta 'tb'. Verifique se ela existe e
se o nome foi digitado corretamente.

Quando mando depurar ela realça a linha
vlus = DLookup("[VlrUnitSaldo]", "[tb]", "[controle] >='" & [controle] & "'") '

Esse valor é o valor do registro anterior do campo VlrUnitSaldo e tb é a consulta criada no inicio da função.
Por favor alguém poderia me dar uma ajuda nesse problema, ou se houver uma outra maneira de eu pegar esse valor por favor
me ensinem
Grato
Elias

vlus = DLookup("[VlrUnitSaldo]", "[tb]", "[controle] >='" & [controle] & "'") ' o erro é aqui

qual o nome da tabela?

tente assim:
DLookup("[VlrUnitSaldo]", "tb", "[controle] >='" & [controle] & "'")

Bom dia, Vieira.

Ja tentei e continua dando o mesmo erro.
Estou achando que o problema é que a consulta tb é a que esta aberta na instrução Do While.

Fiz uma nova tentativa colocando uma consulta que tenho no BD e esta dando o seguinte erro:
Erro em tempo de execução "3075" :
Erro de sintaxe (operador faltando) na expressão de consulta
"[controle]<= And [CodContrib] ='"
A linha agora está assim:
vlus = DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= " & [controle] & " And [CodContrib] ='" & [CodContrib] & "'")

Obrigado

Veja a término da instrução SQL e teste

DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= " & [controle] & " And [CodContrib] ='" & [CodContrib] & "');"

Vieira
Agora esta dando o seguinte erro:

Era esperado separador de lista ou )

os erros que detectei já corrigi, vamos ver se agora dá certo

DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= "' & [controle] & " And [CodContrib] ='" & [CodContrib] & "'")

Vieira, boa tarde.

Não funcionou, agora esta dando:

Erro de compilação:
Erro de sintaxe

Diabos

Se agora não funcionar, alguma coisa está mal internamente ou algo óbvio está a escapar-nos

DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= "' & [controle] & And "'[CodContrib] =" & CodContrib )

Vieira, não funcionou.
Vc não conhece alguma outra ,maneira de buscar o valor de um campo de um registro anterior sem usar o DLookup?

O problema deve estar com os apóstrofes pois o campo é texto e eu estava a fazer número


DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= '" & [controle] & "' And [CodContrib] ='" & CodContrib &"'")

Amigo deixe-me explicar melhor o que foi feito

Você tem que verificar se os campos são número ou texto, pois nunca mais acertamos.

Se os dados forem texto texto (Apóstrofes em bold vermelho) se numero (sem os apóstrofes)


DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= '" & [controle] & "' And [CodContrib] ='" & CodContrib &"'")

Bom trabalho

O campo controle é numeração automatica e o codcontrib é texto.

Coloquei essa formula na consulta CópiadeQryControledeEstoque e ela funcionou direitinho
DLookUp("[VlrUnitSaldo]","CópiadeQryControledeEstoque","[controle] <= " & [controle] & " And [CodContrib] ='" & [CodContrib] & "'") AS vlus

Então siga o que passei acima, a sintaxe da função está certa, o problema que estava dando e que não me apercebi era se existiam campos a número e a texto. Então adapte o que está acima às suas necessidades.

Vieira, a coisa ta feia, continua dando o mesmo erro.

Coloquei essa mesma formula em um campo da consulta CópiadeQryControledeEstoque e ela funcionou direitinho, agora so preciso colocar esses valores na minha função.

Coloquei assim na minha função: vlus = CópiadeQryControledeEstoque![vlus] e esta dando o seguinte erro:
A variável do objeto ou a variável do bloco "with" não foi definida.

Faça o teste;

Public Function AtualizaTotSaldo()
Dim prod As String
Dim tsaldo As Double
Dim vlus As Double
Dim vbcs As Double
Dim VlrUnitSaldo As Double
Dim controle As String
Dim CodContrib As String
Dim tb As Recordset
Set tb = CurrentDb.OpenRecordset("SELECT * FROM tbcontroledeestoque")

Forms!FrmImportar1!txtMensagem = "Atualizando Total Saldo.............."

Do While Not tb.EOF
prod = tb!CodContrib
tsaldo = Nz(tb!TotalSaldoAnt)
vlus = Nz(tb!VlrUnitSaldoAnt)
vbcs = 0

Do While tb!CodContrib = prod
tb.Edit
tb!VlrBCSTSai = tb!QdeSai * vlus
tb!TotalSaldo = Nz(tb!VlrtotBCSTEnt, 0) - Nz(tb!VlrBCSTSai, 0)
If tb!QdeSaldo <> 0 Then
tb!VlrUnitSaldo = tb!TotalSaldo / tb!QdeSaldo
Else: tb!VlrUnitSaldo = 0
End If
tb!VlrUnitSai = vlus
tb.Update
tsaldo = tb!TotalSaldo
'utilize o Me. para se referenciar ao campo do seu form, para isso a função tem de estar dentro do VBA do form
vlus = DLookup("[VlrUnitSaldo]", "CópiadeQryControledeEstoque", "[controle] <= " & Me.controle & " And [CodContrib] ='" & Me.CodContrib & "'")
tb.MoveNext
If tb.EOF Then Exit Do
Loop
Loop
tb.Close
Forms!FrmImportar1!txtMensagem = "Atualizada tbcontroledeestoque "
Forms!FrmImportar1.Requery
End Function

João Paulo, boa tarde.
Obrigado pela sugestão, mas o meu formulário não tem os campos, só tem botões que ativam as funções.
Vc acha que eu deveria criar um formulário com mos campos a serem atualizados?
Se sim que tipo de formulário eu poderia criar pois meu BD tem mais de 200.000 mil itens a serem atualizados
Abraços
Elias

Obrigado pessoal.

Consegui resolver os problemas

obrigado pelo retorno o fórum agradece