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.

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

--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"jjjimmyjam" <(E-Mail Removed)> wrote in message
news:36091671-4B01-47E2-A6F4-(E-Mail Removed)...
>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.

On Sun, 15 Oct 2006 16:44:01 -0700, jjjimmyjam
<(E-Mail Removed)> wrote:

>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]

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

"Arvin Meyer [MVP]" wrote:

> 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
>
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "jjjimmyjam" <(E-Mail Removed)> wrote in message
> news:36091671-4B01-47E2-A6F4-(E-Mail Removed)...
> >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.
>
>
>

do i need a requery statement? All records are changing

"Arvin Meyer [MVP]" wrote:

> 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
>
> --
> Arvin Meyer, MCP, MVP
> http://www.datastrat.com
> http://www.mvps.org/access
> http://www.accessmvp.com
>
> "jjjimmyjam" <(E-Mail Removed)> wrote in message
> news:36091671-4B01-47E2-A6F4-(E-Mail Removed)...
> >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.
>
>
>

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

"John Vinson" wrote:

> On Sun, 15 Oct 2006 16:44:01 -0700, jjjimmyjam
> <(E-Mail Removed)> wrote:
>
> >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]
>

On Sun, 15 Oct 2006 17:23:01 -0700, jjjimmyjam
<(E-Mail Removed)> wrote:

>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]

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

"John Vinson" wrote:

> On Sun, 15 Oct 2006 17:23:01 -0700, jjjimmyjam
> <(E-Mail Removed)> wrote:
>
> >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]
>

my record source for the form is a select query.

"jjjimmyjam" wrote:

> do i need a requery statement. all records are being affected
>
> "John Vinson" wrote:
>
> > On Sun, 15 Oct 2006 16:44:01 -0700, jjjimmyjam
> > <(E-Mail Removed)> wrote:
> >
> > >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]
> >

On Sun, 15 Oct 2006 18:27:02 -0700, jjjimmyjam
<(E-Mail Removed)> wrote:

>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]