Code in timer event not working right

T

tkosel

I have some code in a Timer event:

Private Sub Form_Timer()

V_Complete = True

if V_Complete = True then
Me.TotalFines = DLookup("TotalWeightGMS", "PurchasingFinesTotalQuery")
Me.TotalChips = DLookup("TotalWeightGMS", "PurchasingChipsTotalQuery")
Me.TotalBarEnds = DLookup "TotalWeightGMS",
"PurchasingBarEndsTotalQuery")
End If
EndSub

The Me.TotalFines, TotalChips and TotalBarEnds text boxes get populated with
what looks like Japanese symbols. If I run the queries by themselves, they
return what looks like a null value.

However, if I do this:

V_Complete = True

if V_Complete = True then
Me.TotalFines = DLookup("TotalWeightGMS", "PurchasingFinesTotalQuery")
Me.TotalChips = DLookup("TotalWeightGMS", "PurchasingChipsTotalQuery")
Me.TotalBarEnds = DLookup "TotalWeightGMS",
"PurchasingBarEndsTotalQuery")
End If
Me.TotalFines = DLookup("SumOfTotalWeightGMS",
"PurchasingFinesTotalQuery")
Me.TotalChips = DLookup("SumOfTotalWeightGMS",
"PurchasingChipsTotalQuery")
Me.TotalBarEnds = DLookup("SumOfTotalWeightGMS",
"PurchasingBarEndsTotalQuery")
EndSub

It works fine. Any ideas?
 
Top