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:
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:
- 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