, , .
Boutique Fudge Orders OrderStatus ( ), . New (). New () . In Progress ( ), . , , Shipped () ShipDate .
. . , , . - , In Progress ( ) , - .
ShipOrders, . (. 17.14).
. 17.14. , ( ) . (Locked) , . Process (), ( , )
- Process (), . , , .
. , - :
Private Sub ProcessOrder_Click()
Form.Refresh
. New, , :
' StatusID New 2
If StatusID 2 Then
MsgBox "This order is not available."
In Progress ( ) , :
Else
' StatusID In Progress 3
StatusID = 3
'
DoCmd.RunCommand acCmdSaveRecord
( DoCmd. RunCommand, ). . , , .
|
|
ReviewOrderDetails, (. 17.15). , ShipOrders , :
DoCmd.OpenForm "ReviewOrderDetails",,, _
"OrderID =" & ID,, acDialog End If
End Function
ReviewOrderDetails . Ship (), Access Shipped () .
Private Sub Ship_Click() ' DoCmd.Close
' ShipOrders DoCmd.OpenForm "ShipOrders"
'
' StatusID Shipped 4 Forms ("ShipOrders").StatusID = 4 DoCmd.RunCommand acCmdSaveRecord
End Sub
. 17.15. ReviewOrderDetails , . , . ReviewOrderDetails , , PartNumber Products
(Control Box) (Close Button) ReviewOrderDetails . Ship () Cancel (). ( , , , - , ReviewOrderDetails.)
DoCmd. OpenReport , , .
Cancel (, , ), New ():
Private Sub Cancel_Click()
' DoCmd.Close
' ShipOrder DoCmd.OpenForm "ShipOrders"
'
Forms("ShipOrders").StatusID = 2
DoCmd.RunCoiranand acCmdSaveRecord End Sub
, . , IV, . , IV, . .
, , (, On Hold () Waiting For Stock ( )). , . , , ProcessOrder_Click , .
|
|