this msg i get after i sale a product and exit the program why?
i know its some thing about to declare a value but there is no value to declare in my code.
im only suming the lablels :confused:
you tell me
this is the code:
i know its some thing about to declare a value but there is no value to declare in my code.
im only suming the lablels :confused:
you tell me
this is the code:
Code:
Private Sub Timer1_Timer()
If LsVw.ListItems.Count = 0 Then
BttnNew.Enabled = True
BttnExcel.Enabled = False
BttnDetails.Enabled = False
Chk.Enabled = False
Exit Sub
Else
BttnNew.Enabled = True
BttnRefresh.Enabled = True
BttnExcel.Enabled = True
BttnDetails.Enabled = True
Chk.Enabled = True
End If
Set rs = CN.Execute("SELECT SUM(CashQuantity) as SumQ, SUM(CashTotal) as SumC, SUM(CashPayments) as SumP FROM CashBox") here is the error
If rs.EOF Then
LblQuantity.Caption = 0
LblCost.Caption = CStr(0)
LblPayments.Caption = "0"
Else
LblQuantity.Caption = rs!SumQ
LblCost.Caption = CStr(rs!SumC)
LblPayments.Caption = rs!SumP
End If
If FrmCashRegister.LblCost.Caption = vbNullString Then
Debug.Print FrmCashRegister.LblCost.Caption; " is Empty"
Else
Debug.Print FrmCashRegister.LblCost.Caption
End If
If FrmInventory.LblTotal.Caption = vbNullString Then
Debug.Print FrmInventory.LblTotal.Caption; " is Empty"
Else
Debug.Print FrmInventory.LblTotal.Caption
End If
LblProfit.Caption = FormatCurrency(FrmCashRegister.LblCost.Caption - (FrmInventory.LblTotal.Caption))
LblCost.Caption = FormatCurrency(LblCost.Caption)
End Sub