Check Box to populate Shipping address controls

[jjjimmyjam]

I have a form for customer information. The table has billing address and
shipping address information. What steps do I take with a check box if
checked to populate the shipping address information with billing address
information.

 

[Arvin Meyer [MVP]]

In the AfterUpdate event of the checkbox:

Sub chkMyCheckBox_AfterUpdate()
If Me.chkMyCheckBox = True Then
Me.txtShipToAddress = Me.txtBillToAddress
Me.txtShipToCity = Me.txtBillToCity
Me.txtShipToState = Me.txtBillToState
Me.txtShipToZip = Me.txtBillToZip
Else
Me.txtShipToAddress = ""
Me.txtShipToCity = ""
Me.txtShipToState = ""
Me.txtShipToZip = ""
End If
End Sub

 

[John Vinson]

I have a form for customer information. The table has billing address and
shipping address information. What steps do I take with a check box if
checked to populate the shipping address information with billing address
information.

Use the checkbox's AfterUpdate event:

Private Sub chkDupAddress_AfterUpdate
If Me.chkDupAddress Then 'did the user check it True?
Me.txtShippingAddress1 = Me.txtBillingAddress1
Me.txtShippingAddress2 = Me.txtBillingAddress2
Me.txtShippingCity = Me.txtBillingCity
<etc>
End If
End Sub


John W. Vinson[MVP]

 

[jjjimmyjam]

Thanks.
This code affects all records though. Do I need to requery at some point?

 

[jjjimmyjam]

do i need a requery statement? All records are changing

 

[jjjimmyjam]

do i need a requery statement. all records are being affected

 

[John Vinson]

This code affects all records though. Do I need to requery at some point?

Eh?

It only affects all records if the ShipTo fields are unbound. Are you
trying to "store" them in the Form? or do you have fields for them in
your table?

John W. Vinson[MVP]

 

[jjjimmyjam]

My record source for the form is a query. I suppose that makes a difference

 

[jjjimmyjam]

my record source for the form is a select query.

do i need a requery statement. all records are being affected

 

[John Vinson]

my record source for the form is a select query.

Please post the SQL of the query, the code you're using, and the
Control Source properties of the shipping address controls on the
form.

John W. Vinson[MVP]

 

[jjjimmyjam]

SELECT Customers.CustomerID, Customers.CompanyName, Customers.FirstName,
Customers.LastName, Customers.BillingAddress, Customers.City,
Customers.StateOrProvince, Customers.ZIPCode, Customers.CompanyWebsite,
Customers.PhoneNumber, Customers.FaxNumber, Customers.ShipAddress,
Customers.ShipCity, Customers.ShipStateOrProvince, Customers.ShipZIPCode,
Customers.ShipPhoneNumber, Customers.Notes, Customers.Email,
Customers.ShipSame
FROM Customers;

Control Source of ShipAddress: ShipAddress

 

[John Vinson]

You posted the SQL. Thanks. Please read the rest of the sentence.

I'll be glad to help if you will cooperate.

John W. Vinson[MVP]

 

[Arvin Meyer [MVP]]

Are you using a continuous form or datasheet for this? BillTo and ShipTo
information should always be displayed on a single form, with the details of
what you are shipping in the subform. Once the records are created, you can
display a shipping manifest as a continuous form or report.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com