Difference between revisions of "VbzCart/archive/code/VBA/clsPkgCount"
Jump to navigation
Jump to search
(Created page with "<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 ...") |
m |
||
| (One intermediate revision by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | <VB> | + | <syntaxhighlight lang=VB> |
' CLASS: clsPkgCount | ' CLASS: clsPkgCount | ||
| Line 27: | Line 27: | ||
Me.PulledMsg = Me.PulledMsg + 1 | Me.PulledMsg = Me.PulledMsg + 1 | ||
End Sub | End Sub | ||
| − | </ | + | </syntaxhighlight> |
Latest revision as of 12:51, 14 October 2022
' 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