How To Add Dsum To Existing VBA code

[aamer]

How can I add the following to the code mentioned below.



=DSum("SBalance","001AAFSleBal")
The Text Box Name is SleTBal where DSum value will Show.



CODE:


Private Sub cboDateFrom_LostFocus()
If IsNull(DLookup("[SBalance]", "[001BBA]", "IsNull([SBalance]) = FALSE")) = False Then
OpenBalance.Value = DLookup("[SBalance]", "[001BBA]", "IsNull([SBalance]) = FALSE")
Else
OpenBalance.Value = 0
End If
End Sub

[ranman256]

Dlookup returns a value , NOT a true/false (unless your field is true/false). SBalance is numeric.

DLookup("[SBalance]", "[001BBA]", "Not IsNull([SBalance])"))

[John_G]

Your Dlookup DLookup("[SBalance]", "[001BBA]", "IsNull([SBalance]) = FALSE") is guaranteed to give you the correct result only if there is only one record in [001BBA] where [SBalance] is not Null. Otherwise it is going to give you the first Non-Null value it finds.

Do you know for sure there is only one non-Null value of SBalance?

[aamer]

How can I add the following to the code mentioned

=DSum("SBalance","001AAFSleBal")


The Text Box Name is SleTBal where DSum value will Show.

[John_G]

me!SletBal = DSum("SBalance","001AAFSleBal") is the statement to use. Be aware that it will return Null if there are no values for SBalance that are not Null.

Where you put it in the code depends on under what conditions you need it.