O código abaixo esta funcionanado legal. Agora so estou precisado mostrar em testbox o valor total do meu estoque. Alguem tem uma dica?


Private Sub CmdBusca_Click()
Dim Sql As String
Dim Val As String

Sql = "SELECT * FROM Baixas WHERE Codigo like '*" & TxtBusca.Text & "*'"
Set tbOs2 = bdMat2.OpenRecordset(Sql)

Val = "SELECT Quantidade, Unitario FROM Localizacao WHERE Código = '" & TxtBusca.Text & "'"
Set tbOs3 = bdMat2.OpenRecordset(Val)

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 Alinha(Format(tbOs2("Codigo"), "000000"), 6, "ESQ")
DbList_3.List(i, 1) = tbOs2("Saida")
DbList_3.List(i, 2) = tbOs2("Data")
DbList_3.List(i, 3) = tbOs2("Req")
DbList_3.List(i, 4) = Alinha(tbOs2("OS"), 10, "DIR")

i = i + 1
a = a + CDbl(tbOs2("Saida"))

tbOs2.MoveNext
Loop
End If

Lbsaida = ValStr(CStr(a))
Lb_Entrada = ValStr(tbOs3!Quantidade)
LbSaldo = tbOs3!Quantidade - ValStr(Lbsaida)
LbV_Entrada = ValStr(tbOs3!Quantidade) * ValStr(tbOs3!Unitario)
LbV_Saida = ValStr(Lbsaida) * ValStr(tbOs3!Unitario)
LbV_Saldo = ValStr(LbSaldo) * ValStr(tbOs3!Unitario)
LbV_Saldo = Format(LbV_Saldo.Caption, "#,###,##0.00")
LbV_Saida = Format(LbV_Saida.Caption, "#,###,##0.00")
LbV_Entrada = Format(LbV_Entrada.Caption, "#,###,##0.00")
TxtBusca.Text = ""
TxtBusca.SetFocus

End Sub

Se entendi seu problema, isto vai funcionar:

 

Dim V_Sql As String
V_Sql = ""
V_Sql = "SELECT SUM(Quantidade * Unitario) AS Total FROM TAB_ESTOQUE"
RS_TAB_ESTOQUE.Open V_Sql, DB_ESTOQUE, adOpenStatic, adLockReadOnly
RS_TAB_ESTOQUE.MoveFirst
Txt_TotalDoEstoque.Text = Format(RS_TAB_ESTOQUE!Total, "##,##0.00")

 

Eu tenho que criar o campo (Total) na tabela? Da erro na linha emvr negrito ( Data type mismatch in criteria expression)

 

O Cód. ficou assim, corrija-me por favor se eu estiver errado.:

 

Private Sub CmdBusca_Click()
Dim Sql As String
Dim Val As String

Sql = "SELECT * FROM Baixas WHERE Codigo like '*" & TxtBusca.Text & "*'"
Set tbOs2 = bdMat2.OpenRecordset(Sql)

Val = "SELECT Quantidade, Unitario FROM Localizacao WHERE Código = '" & TxtBusca.Text & "'"
Set tbOs3 = bdMat2.OpenRecordset(Val)

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 Alinha(Format(tbOs2("Codigo"), "000000"), 6, "ESQ")
DbList_3.List(i, 1) = tbOs2("Saida")
DbList_3.List(i, 2) = tbOs2("Data")
DbList_3.List(i, 3) = tbOs2("Req")
DbList_3.List(i, 4) = Alinha(tbOs2("OS"), 10, "DIR")

i = i + 1
a = a + CDbl(tbOs2("Saida"))
''acvalor = acvalor + ValStr(tbOs2("Saida"))
tbOs2.MoveNext
Loop
''LbTotal = acvalor
End If

Lbsaida = ValStr(CStr(a))
Lb_Entrada = ValStr(tbOs3!Quantidade)
LbSaldo = tbOs3!Quantidade - ValStr(Lbsaida)
LbV_Entrada = ValStr(tbOs3!Quantidade) * ValStr(tbOs3!Unitario)
LbV_Saida = ValStr(Lbsaida) * ValStr(tbOs3!Unitario)
LbV_Saldo = ValStr(LbSaldo) * ValStr(tbOs3!Unitario)
LbV_Saldo = Format(LbV_Saldo.Caption, "#,###,##0.00")
LbV_Saida = Format(LbV_Saida.Caption, "#,###,##0.00")
LbV_Entrada = Format(LbV_Entrada.Caption, "#,###,##0.00")
TxtBusca.Text = ""
TxtBusca.SetFocus
End Sub

Jayme, vc está ai?