Check Box for Same Billing/Shipping Address

[Brook]

I have a form that is based on my customer table. When I
add a new customer I have a check box for my
Shipping/Billing Address, and if the check box is Checked
(True) then the Shipping Address Fields are populated with
the Billing Address Fields. Below are the fields and I
appreciate any help I can get. Brook

BillingAddr1
BillingAddr2
BillingCity
BillingState
BillingZip
ShippingAddr1
ShippingAddr2
ShippingCity
ShippingState
ShippingZip

 

[Rick B]

Brook:

You do not ask a question here. What is it you want us to explain?

Rick B


I have a form that is based on my customer table. When I
add a new customer I have a check box for my
Shipping/Billing Address, and if the check box is Checked
(True) then the Shipping Address Fields are populated with
the Billing Address Fields. Below are the fields and I
appreciate any help I can get. Brook

BillingAddr1
BillingAddr2
BillingCity
BillingState
BillingZip
ShippingAddr1
ShippingAddr2
ShippingCity
ShippingState
ShippingZip

 

[Brook]

Sorry about that,

What I cannot figure out is the code for when the Check
Box is true then the fields are populated from Billing to
the Shipping Address.

Brook

 

[Rick B]

In the AfterUpdate event of the checkbox put code such as the following.
Note: you did not tell us the name of your checkbox field.

Private Sub CheckBoxField_AfterUpdate()
If CheckBoxField Then
ShippingAddr1 = BillingAddr1
ShippingAddr2 = BillingAddr2
ShippingCity = BillingCity
ShippingState = BillingState
ShippingZip = BillingZip
End If
End Sub


Rick B



Sorry about that,

What I cannot figure out is the code for when the Check
Box is true then the fields are populated from Billing to
the Shipping Address.

Brook

 

[Brook]

Great.. thanks for your help!

Brook

-----Original Message-----
In the AfterUpdate event of the checkbox put code such as the following.
Note: you did not tell us the name of your checkbox field.

Private Sub CheckBoxField_AfterUpdate()
If CheckBoxField Then
ShippingAddr1 = BillingAddr1
ShippingAddr2 = BillingAddr2
ShippingCity = BillingCity
ShippingState = BillingState
ShippingZip = BillingZip
End If
End Sub


Rick B



Sorry about that,

What I cannot figure out is the code for when the Check
Box is true then the fields are populated from Billing to
the Shipping Address.

Brook




.