Bom dia Srs.
Estou tentando somar todos os apontamentos feitos, porém ele está colocando um ao lado do outro ao invés de somar....
olha essa imagem:
![Recordset está colocando um valor ao lado do outro ao invés de somar... Record10](https://i.servimg.com/u/f80/20/17/73/49/record10.png)
Estou tentando somar todos os apontamentos feitos, porém ele está colocando um ao lado do outro ao invés de somar....
olha essa imagem:
![Recordset está colocando um valor ao lado do outro ao invés de somar... Record10](https://i.servimg.com/u/f80/20/17/73/49/record10.png)
- Código:
gSQL = "SELECT * FROM TSER_OCAND WHERE ID_OC = 1874"
Set gDB = CurrentDb
Set gRST2 = gDB.OpenRecordset(gSQL, dbOpenSnapshot)
Do While Not gRST2.EOF
With gRST2
If IsNull(Me.OC_TOTALHORA) Then
Me.OC_TOTALHORA = gRST2!AND_TEMPO
Else
Me.OC_TOTALHORA = Me.OC_TOTALHORA + gRST2!AND_TEMPO
End If
End With
gRST2.MoveNext
Loop
gRST2.Close
Set gRST2 = Nothing