Error on Empty Table

[DS]

I have these two DSum statements that I get an Error on because the table is
Empty.

Me.TxtDebit = Nz(DSum("[GiftAmount]", "tblGiftCardDetails", "GiftCardNumber
= " & Forms!frmFXGiftManager!TxtGiftID And GiftDebit = -1), 0)

Me.TxtCredit = Nz(DSum("[GiftAmount]", "tblGiftCardDetails", "GiftCardNumber
= " & Forms!frmFXGiftManager!TxtGiftID And GiftDebit = 0), 0)

When I try to run the code. The VBA editor pops up with the DSum in yellow.
When I put th ecursor over the GiftDebit field in the statement it says
empty. How can I fix this?
Thanks
DS

 

[DS]

Maybe its not that complicated. It's saying Error Code 13 Type Mismatch.
Thanks
DS

 

[Dirk Goldgar]

(re-posting -- I don't see my original reply)

I have these two DSum statements that I get an Error on because the table
is Empty.

Me.TxtDebit = Nz(DSum("[GiftAmount]", "tblGiftCardDetails",
"GiftCardNumber = " & Forms!frmFXGiftManager!TxtGiftID And GiftDebit
= -1), 0)

Me.TxtCredit = Nz(DSum("[GiftAmount]", "tblGiftCardDetails",
"GiftCardNumber = " & Forms!frmFXGiftManager!TxtGiftID And GiftDebit = 0),
0)

When I try to run the code. The VBA editor pops up with the DSum in
yellow. When I put th ecursor over the GiftDebit field in the statement it
says empty. How can I fix this?

I don't think it's because the table is empty. I think it's because your
criteria argument is malformed. Am I right in thinking that GiftDebit is a
field in the table, and you want to sum records where the GiftCardNumber
field is equal to the TxtGiftID value from the form, and the GiftDebit field
= -1 (True) in one case, and 0 (False) in the other case? If so, then try
these versions of the statements instead:

Me.TxtDebit = _
Nz(DSum("[GiftAmount]", "tblGiftCardDetails", _
"GiftCardNumber = " & Forms!frmFXGiftManager!TxtGiftID & _
" And GiftDebit = -1"), 0)

Me.TxtCredit =
Nz(DSum("[GiftAmount]", "tblGiftCardDetails", _
"GiftCardNumber = " & Forms!frmFXGiftManager!TxtGiftID & _
" And GiftDebit = 0"), 0)

 

[DS]

Woks great.
Thank You once again.
DS