Northwind Database Question....

[DarrenUD]

Hi All,

I was going through the Access Nothwind database in order to get some insight about getting some ideas to develop my own database and I am really confused with some of its design methods they have used as I am not an expert Access developer. for ex. can someone explain to me how they they have accomplish this:

1. When I open new Purchase order from, I am unable to access any controls on the form until I select a supplier from the supplier's combo box. Well, I can't find the piece of code, macro or any other method they used to enable the [Created by] combo box control. Even in the supplier ID combo box After_Update event I can't find any related code to that event. Please Help.

[burrina]

Code is firing from main form on current event.


Dim Status As PurchaseOrderStatusEnum

Me.Supplier_ID.SetFocus

Status = Nz(Me![Status ID], New_PurchaseOrder)

Me.cmdSubmitforApproval.Enabled = (Status = New_PurchaseOrder)
Me.cmdApprovePurchase.Enabled = (Status = Submitted_PurchaseOrder)
Me.cmdCancelPurchase.Enabled = (Status <> New_PurchaseOrder)

If IsNull(Me![Supplier ID]) Then
Me.[Purchase Details_Page].Enabled = False
Else
Me.[Purchase Details_Page].Enabled = (Status = New_PurchaseOrder) Or (Status = Submitted_PurchaseOrder)
End If

Me.[Inventory Receiving_Page].Enabled = (Status = Approved_PurchaseOrder)
Me.[Payment Information_Page].Enabled = (Status = Approved_PurchaseOrder)

Me.AllowEdits = Not (Status = Closed_PurchaseOrder)
Me.AllowDeletions = Not (Status = Closed_PurchaseOrder)