VbzCart/docs/archive/code/VBA/Form sfrmPackages: Difference between revisions

From Woozle Writes Code
< VbzCart‎ | docs‎ | archive‎ | code‎ | VBA
Jump to navigation Jump to search
imported>Woozle
mNo edit summary
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))
 
(No difference)

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
Retrieved from "https://wooz.dev/mw/index.php?title=VbzCart/docs/archive/code/VBA/Form_sfrmPackages&oldid=6606"