Olá Pessoal eu denovo!!!

A dúvida é a seguinte eu tenho código para dar baixa no estoque código abaixo:

Dim Txestoque

Dim db As DAO.Database
Dim rs As DAO.Recordset


Set db = CurrentDb()
Set rs = db.OpenRecordset("TbEstoque")

rs.Index = "PrimaryKey"
rs.Seek "=", Me![CDProd]


Txestoque = DLookup("[QtdeC]", "tbEstoque", "[CDprod]='" & Me![CDProd] & "'")

Beep
If MsgBox("Deseja realmente dar baixa no estoque da venda nº: " & Me.Item, vbQuestion vbYesNo, "Atualizar Estoque") = vbYes Then

If OPVenda = "Troca" Then
rs.Edit
rs("QtdeT") = rs("QtdeT") - CInt(UnV)
rs.Update
rs.Close
Else
rs.Edit
rs("QtdeC") = rs("QtdeC") - CInt(UnV)
rs.Update
rs.Close
End If



Else
Exit Sub

End If

A pergunta é a seguinte?

Este critério só vale se a tabela estoque estiver fazendo parte do banco atual e não serve se estiver vinculada de outro banco a dúvida é se eu consigo usar algum código parecido com esse mais eu preciso que tabela estoque esteje em outro banco de dados e vinculada nesse banco. obs não quero usar consulta atualização por a baixa é dada automaticamente quando lanço a quantidade vendida.

Como Seek não é possível com tabelas vinculadas, 2 opções:

ou abre o mdb da base via OpenDatabase(caminho) e usa o seek

ou altera a pesquisa na tabela vinculada para FindFirst

Pesquise no Fórum com esses parâmetros que encontrará muitos tópicos...

t+

Oi,

veja

Na esperança que isso ajude.

Muito Obrigado meus amigos Paulo e Sampaio pela ajuda que vcs me deram

Funcionou!!!!