VbzCart/archive/code/VBA/Form sfrmPackages

<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 </VB>