VbzCart/docs/archive/code/VBA/Form sfrmPackages: Difference between revisions
Jump to navigation
Jump to search
imported>Woozle (Created page with "<VB> Option Compare Database Option Explicit Public Property Get Package_ID() As Long Package_ID = Me.ID_Package End Property Public Function Code() As String ' ACTION: re...") |
m (Woozle moved page VbzCart/VbzCart/archive/code/VBA/Form sfrmPackages to VbzCart/docs/archive/code/VBA/Form sfrmPackages without leaving a redirect: correct naming (was no way to import directly to this name)) |
||
| (2 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
<VB> | <syntaxhighlight lang=VB> | ||
Option Compare Database | Option Compare Database | ||
Option Explicit | Option Explicit | ||
| Line 25: | Line 25: | ||
' ParentForm.AlertPackageChanged Me.ID | ' ParentForm.AlertPackageChanged Me.ID | ||
'End Sub | 'End Sub | ||
</ | </syntaxhighlight> | ||
Latest revision as of 01:53, 25 February 2024
Option Compare Database
Option Explicit
Public Property Get Package_ID() As Long
Package_ID = Me.ID_Package
End Property
Public Function Code() As String
' ACTION: returns the package code (order#-pkg#)
Dim objPkg As clsPackage
Set objPkg = clsPackages.Item(Me.ID_Package)
' show package code number:
With objPkg
Code = .Order.Code & "-" & .Seq
End With
End Function
'Private Property Get ParentForm() As Form_frmPackages
' Set ParentForm = Me.Parent
'End Property
'Private Sub Form_Current()
' ParentForm.AlertPackageChanged Me.ID
'End Sub
'Private Sub Form_Load()
' ParentForm.AlertPackageChanged Me.ID
'End Sub