VbzCart/archive/code/VBA/Form frmPackages - Revision history

Woozle at 12:52, 14 October 2022

2022-10-14T12:52:55Z

← Older revision		Revision as of 12:52, 14 October 2022
Line 7:		Line 7:
	[[File:vbzcart-MSAccess-sfrmPackages.png\|thumb]]		[[File:vbzcart-MSAccess-sfrmPackages.png\|thumb]]
	\|}		\|}
	<VB>		<syntaxhighlight lang=VB>
	Option Compare Database		Option Compare Database
	Option Explicit		Option Explicit
Line 59:		Line 59:
	End With		End With
	End Sub		End Sub
	</VB>		</syntaxhighlight>

Woozle: Woozle moved page VbzCart/code/VBA/Form frmPackages to VbzCart/archive/code/VBA/Form frmPackages

2014-12-19T02:08:56Z

Woozle moved page VbzCart/code/VBA/Form frmPackages to VbzCart/archive/code/VBA/Form frmPackages

← Older revision	Revision as of 02:08, 19 December 2014
(No difference)

Woozle: form with data; rearranged other images

2014-05-08T14:15:49Z

form with data; rearranged other images

← Older revision		Revision as of 14:15, 8 May 2014
Line 1:		Line 1:
	[[File:vbzcart-MSAccess-frmPackages.png\|400px\|~~frame~~]]		{\|
	[[File:vbzcart-MSAccess-sfrmPackages.png\|~~400px\|frame~~]]<VB>		\|-
			\|
			[[File:vbzcart-MSAccess-frmPackages-running.png\|400px]]
			\|
			[[File:vbzcart-MSAccess-frmPackages.png\|thumb]]
			[[File:vbzcart-MSAccess-sfrmPackages.png\|thumb]]
			\|}
			<VB>
	Option Compare Database		Option Compare Database
	Option Explicit		Option Explicit

Woozle: form screenshots

2014-05-08T12:08:36Z

form screenshots

← Older revision		Revision as of 12:08, 8 May 2014
Line 1:		Line 1:
	<VB>		[[File:vbzcart-MSAccess-frmPackages.png\|400px\|frame]]
			[[File:vbzcart-MSAccess-sfrmPackages.png\|400px\|frame]]<VB>
	Option Compare Database		Option Compare Database
	Option Explicit		Option Explicit

Woozle: Created page with " Option Compare Database Option Explicit Dim intPkg As Long Dim objPkg As clsPackage Public Sub AlertPackageChanged(iPackage As Long) intPkg = iPackage UpdateStatu..."

2014-05-08T12:05:13Z

Created page with "<VB> Option Compare Database Option Explicit Dim intPkg As Long Dim objPkg As clsPackage Public Sub AlertPackageChanged(iPackage As Long) intPkg = iPackage UpdateStatu..."

New page

<VB>
Option Compare Database
Option Explicit
Dim intPkg As Long
Dim objPkg As clsPackage
Public Sub AlertPackageChanged(iPackage As Long)
intPkg = iPackage
UpdateStatus
End Sub
Private Property Get PackageExists() As Boolean
If intPkg = 0 Then
PackageExists = False
Else
Set objPkg = clsPackages.Item(intPkg)
PackageExists = Not (objPkg Is Nothing)
End If
End Property
Private Sub UpdateStatus()
Dim isPkg As Boolean

isPkg = PackageExists
Me.txtPkgCode.SetFocus ' so we can disable buttons without checking which one has the focus
Me.btnOrder.Enabled = isPkg
Me.btnPkg.Enabled = isPkg
If isPkg Then
Me.btnShpmt.Enabled = objPkg.ShipmentExists
Me.txtPkgCode = objPkg.Code
Else
Me.btnShpmt.Enabled = False
Me.txtPkgCode = ""
End If
End Sub
Private Sub btnOrder_Click()
UpdateStatus
If PackageExists Then objPkg.Order.View
End Sub
Private Sub btnPkg_Click()
UpdateStatus
If PackageExists Then objPkg.Edit
End Sub
Private Sub Form_Activate()
UpdateStatus
End Sub
Private Sub Form_Load()
UpdateStatus
End Sub
Private Sub Form_Resize()
With Me.sfrmPackages
.Width = Me.InsideWidth - .Left
.Height = Me.InsideHeight - .Top
End With
End Sub
</VB>