VbzCart/archive/code/VBA/clsPkgCount

from HTYP, the free directory anyone can edit if they can prove to me that they're not a spambot
Jump to navigation Jump to search

<VB> ' CLASS: clsPkgCount

Option Compare Database Option Explicit

Public Checked As Long Public Unchecked As Long Public PulledPkg As Long ' pulled packages (merch to be shipped) Public PulledMsg As Long ' pulled messages (no merch; ok to send even if pulled) Public Sub Clear() 

   Me.Checked = 0
   Me.Unchecked = 0
   Me.PulledPkg = 0
   Me.PulledMsg = 0

End Sub Public Sub IncChecked() 

   Me.Checked = Me.Checked + 1

End Sub Public Sub IncUnchecked() 

   Me.Unchecked = Me.Unchecked + 1

End Sub Public Sub IncPulledPkg() 

   Me.PulledPkg = Me.PulledPkg + 1

End Sub Public Sub IncPulledMsg() 

   Me.PulledMsg = Me.PulledMsg + 1

End Sub </VB>

Retrieved from "https://htyp.org/mw/index.php?title=VbzCart/archive/code/VBA/clsPkgCount&oldid=20378"