View source for VbzCart/archive/code/VBA/Form sfrmPackages

<syntaxhighlight lang=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: 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
</syntaxhighlight>