VbzCart/archive/code/VBA/Form sfrmPackages: Difference between revisions
from HTYP, the free directory anyone can edit if they can prove to me that they're not a spambot
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..." |
mNo edit summary |
||
| (One intermediate revision by the same 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 12:54, 14 October 2022
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
