Conforme a rotina abaixo eu carrego no LbSaida a quantidade total de saida do produto. Agora eu preciso carregar no Lb_Entrada a quantidade total de entrada do produto, so que a mesma esta em outro banco(Materiais) na Tabela(Estoque) Fild(Quantidade). Como adapto essa rotina para carregar esses dados?
Private Sub CmdBusca_Click()
Dim a As Currency
Dim b As Currency
Dim Sql As String
Sql = "select * from BxEstoque where CodBaixa like '*" & TxtBusca.Text & "*'"
Set tbOs2 = bdMat2.OpenRecordset(Sql)
If tbOs2.RecordCount = 0 Then
DbList_3.Clear
Else
DbList_3.Clear
tbOs2.MoveLast
tbOs2.MoveFirst
Dim i, J
i = 0
J = 1
Do Until tbOs2.EOF
DbList_3.AddItem Format(tbOs2("CodBaixa"), "000000")
DbList_3.List(i, 1) = tbOs2("Saida")
DbList_3.List(i, 2) = tbOs2("DataBaixa")
DbList_3.List(i, 3) = tbOs2("Requisicao")
DbList_3.List(i, 4) = tbOs2("OSBaixa")
i = i + 1
a = a + CDbl(tbOs2("Saida"))
tbOs2.MoveNext
Loop
End If
Lbsaida = CStr(a)
Lb_Entrada = tbOs("Quantidade")
TxtBusca.Text = ""
TxtBusca.SetFocus
End Sub
Private Sub UserForm_Initialize()
Call BarraTítuloUserForm(False)
Set bdMat2 = OpenDatabase("C:\Estoque\Baixa.mdb")
Set tbOs2 = bdMat2.OpenRecordset("BxEstoque", dbOpenTable)
Me.DbList_3.ColumnCount = 4
Me.Frame1.Caption = "Entre com o código p/ pesquisa"
TxtBusca.SetFocus
End Sub
