Início
![[Resolvido]Converter Private Sub em Function Public Empty](https://2img.net/i/empty.gif)
Chamon Consultoria 20/5/2017, 21:08Boa tarde!
Bd em Access 2010.
Como faço para converter a função "Private Sub ApurarSaldo()" para uma Function Public?
Observações:
1- O Valor do campo: "Me.txtValorTotal" é obtido através do código:
Desde de já agradeço!
Bd em Access 2010.
Como faço para converter a função "Private Sub ApurarSaldo()" para uma Function Public?
Observações:
1- O Valor do campo: "Me.txtValorTotal" é obtido através do código:
- Código:
Set dbs = CurrentDb
strSql = "SELECT * FROM tbl_Compras WHERE NUMEROENTRADA = " & "'" & txtNUMEROENTRADA & "'"
Set rst = dbs.OpenRecordset(strSql)
If rst.RecordCount > 0 Then
txtValorTotal = rst("TOTAL")
Desde de já agradeço!
- Código:
Private Sub ApurarSaldo()
Me.txtValorDevolvido = 0
Me.txtSaldoValor = 0
Set dbs = CurrentDb
strSql = ""
strSql = "SELECT tbl_RemessaItensSaida.NUMEROENTRADA, Sum(tbl_RemessaItensSaida.TOTAL) As Saldo"
strSql = strSql & " From tbl_RemessaItensSaida"
strSql = strSql & " GROUP BY tbl_RemessaItensSaida.NUMEROENTRADA"
strSql = strSql & " HAVING tbl_RemessaItensSaida.NUMEROENTRADA= " & "'" & txtNUMEROENTRADA & "'"
Set rst = dbs.OpenRecordset(strSql)
If rst.RecordCount > 0 Then
Me.txtValorDevolvido = rst("Saldo")
DoEvents
End If
DoEvents
Me.txtSaldoValor = Me.txtValorTotal - Me.txtValorDevolvido
rst.Close
End Sub
