Automatic Entry

  • Thread starter Thread starter Stephen
  • Start date Start date
S

Stephen

I have a sales/products database that I track orders and
payments.

I have table set up for:
Customers
Orders
Order Details
Payments, etc.

I created a screen, through a query, that shows me all
orders shipped today and allows me to put in a payment
amount for an order.

In the AfterUpdate I put in the following code to allow
the automatic input of the PaymentAmount into the Amount
Due Field.

Private Sub PaymentMethodID_AfterUpdate()


DoCmd.OpenForm "Orders by Customer Subform for
Payments", , , "[OrderID] = [Forms]![Daily Delivery
Posting Form].Form![OrderID]"

If IsNull(Me![PaymentAmount]) Then
Me![PaymentAmount] = [Forms]![Orders by Customer Subform
for Payments].Form![Amount Due]

End If
DoCmd.Close

Exit Sub
This works ...but it slow down the program because I open
and close a form (Orders by Customer Subform for
Payments) with every entry. There must be a better way.
Please help.

Thanks
Stephen
 
Stephen said:
I have a sales/products database that I track orders and
payments.

I have table set up for:
Customers
Orders
Order Details
Payments, etc.

I created a screen, through a query, that shows me all
orders shipped today and allows me to put in a payment
amount for an order.

In the AfterUpdate I put in the following code to allow
the automatic input of the PaymentAmount into the Amount
Due Field.

Private Sub PaymentMethodID_AfterUpdate()


DoCmd.OpenForm "Orders by Customer Subform for
Payments", , , "[OrderID] = [Forms]![Daily Delivery
Posting Form].Form![OrderID]"

If IsNull(Me![PaymentAmount]) Then
Me![PaymentAmount] = [Forms]![Orders by Customer Subform
for Payments].Form![Amount Due]

End If
DoCmd.Close

Exit Sub
This works ...but it slow down the program because I open
and close a form (Orders by Customer Subform for
Payments) with every entry. There must be a better way.
Please help.
Click to expand...

Why don't you make the subform a subform control on the main form (Daily
Delivery Posting Form)? That's what subforms are for. They are
embedded in a master form and linked by fields common to both forms, in
your case the OrderID.

I suggest you read the Access help articles on subforms.
 
Back
Top