'Same as above address' Tick box

[farqs]

I've got a form with feilds: Address, Suburb, State, Pcode (for the
Location Addres) and then: PAddress, PSuburb, PState, PPcode (for the
Postal Address).

When the postal address is the same as the location address, it becomes
cumbersome to retype/copy the address into the postal address fields so
I created a tick box (like a 'same as above' thingy) where on
'afterupdate' i've put the following code as an Event Procedure:

Private Sub Same_As_Above_AfterUpdate()
[PAddress] = [Address]
[PSuburb] = [Suburb]
[PState] = [State]
[PPcode] = [Pcode]
End Sub

The obvious problem here is that it updates all 4 postal address fields
wether you tick or untick the box.

What code do i need to insert (or create from scratch) to tell it to
only update the 4 postal address fields _when_the_box_is_ticked_?
Also, it would be nice to have some code that tells it to clear the 4
fields if the box is 'unticked' later.

Any help would be appreciated!!

Thanks
Farqs

[Br]

farqs <mf*****@yahoo.com.au> wrote:

I've got a form with feilds: Address, Suburb, State, Pcode (for the
Location Addres) and then: PAddress, PSuburb, PState, PPcode (for the
Postal Address).

When the postal address is the same as the location address, it
becomes cumbersome to retype/copy the address into the postal address
fields so I created a tick box (like a 'same as above' thingy) where
on 'afterupdate' i've put the following code as an Event Procedure:

Private Sub Same_As_Above_AfterUpdate()
[PAddress] = [Address]
[PSuburb] = [Suburb]
[PState] = [State]
[PPcode] = [Pcode]
End Sub

The obvious problem here is that it updates all 4 postal address
fields wether you tick or untick the box.

What code do i need to insert (or create from scratch) to tell it to
only update the 4 postal address fields _when_the_box_is_ticked_?
Also, it would be nice to have some code that tells it to clear the 4
fields if the box is 'unticked' later.

Any help would be appreciated!!

Thanks
Farqs

Ummm, simple.....

Private Sub Same_As_Above_AfterUpdate()
If Me![Same_As_Above] Then
Me![PAddress] = Me![Address]
Me![PSuburb] = Me![Suburb]
Me![PState] = Me![State]
Me![PPcode] = Me![Pcode]
Else
Me![PAddress] = Null
Me![PSuburb] = Null
Me![PState] = Null
Me![PPcode] = Null
End If
End Sub

--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[farqs]

.... and i just thought of something else...

It would be nice if a warning popped up if you were to tick the box
when the postal address is already typed in, BUT is different to the
location address. (useful for if someones postal address changes to
their location address (for some reason), at a later date)

Cheers
Farqs

[farqs]

You're a legend Bradley!! Works like a charm.

Cheers
Farqs

[farqs]

Sorry that should have read:

....useful for if you tick the box by mistake)

Sorry, wasn't thinking straight

Farqs

[Br]

farqs <mf*****@yahoo.com.au> wrote:

... and i just thought of something else...

It would be nice if a warning popped up if you were to tick the box
when the postal address is already typed in, BUT is different to the
location address. (useful for if someones postal address changes to
their location address (for some reason), at a later date)

Cheers
Farqs

Again simple... just do a comparison like.....

If (Me![PAddr] = Me![Addr]) And (Me![PSuburb] = Me![Suburb]) And
[............etc]
Then

Msgbox "Warning"
End If
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[farqs]

Sorry Bradley. I think i confused things. I'll try again.

Is it possible for a warning message to pop up ONLY when you tick the
box WHEN the postal address has already been typed in AND is different
to the location address? (as a safeguard for if you tick the box by
accident) It should not pop up if the postal address fields are blank
or when 'unticking' the box.

When the warning pops up, it should give you the option to cancel or
continue BEFORE updating/changing the fields.

Hope that makes sense.

Cheers

[Br]

farqs <mf*****@yahoo.com.au> wrote:

Sorry Bradley. I think i confused things. I'll try again.

Is it possible for a warning message to pop up ONLY when you tick the
box WHEN the postal address has already been typed in AND is different
to the location address? (as a safeguard for if you tick the box by
accident) It should not pop up if the postal address fields are blank
or when 'unticking' the box.

When the warning pops up, it should give you the option to cancel or
continue BEFORE updating/changing the fields.

Hope that makes sense.

Cheers

That's exactly what I understood... do you want me to do ALL the work
for you?

Just modify the last code I gave you and insert a check to see if the
values are the same and put a warning message in.
--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[farqs]

Again...sorry Bradley. I didn't make myself clear.

I'm not a newb to Access, but am a newb to the coding side of it. This
is why i'm posting. The only coding I know is when searching for other
topics on google and dabbling with the coding I've found in the search.
Having never come across this latest requirement of mine in access and
never having learnt the programming/coding side of it, your second
response was a bit beyond my capabilities.

I did have a play with it though (as that's how I learn things and
because you suggested it) and found that the warning box only allows
you to press OK. It doesn't give you the option to change your mind
(in the case of having pressed it in error).

In your coding above, it compares when [paddr] = [addr] etc. Shouldn't
it be searching for when [paddr] does not = [addr] or am i reading your
coding wrong?

Also, the warning pops up every time you activate the tick box, even
when the postal address feilds are blank. It should only pop up when
something different is in the postal address

Regards
Farqs

PS I really appreciate your help.

[Br]

farqs <mf*****@yahoo.com.au> wrote:

Again...sorry Bradley. I didn't make myself clear.

I'm not a newb to Access, but am a newb to the coding side of it.
This is why i'm posting. The only coding I know is when searching
for other topics on google and dabbling with the coding I've found in
the search. Having never come across this latest requirement of mine
in access and never having learnt the programming/coding side of it,
your second response was a bit beyond my capabilities.

I did have a play with it though (as that's how I learn things and
because you suggested it) and found that the warning box only allows
you to press OK. It doesn't give you the option to change your mind
(in the case of having pressed it in error).
Look up the Access help. There are several options for what appears in
your message box (eg. Yes/No, OK/Cancel....). Then read the return
value of the Msgbox to determine what the user pressed and then take the
appropraite action.

eg.

Dim r as Long
r = MsgBox("prompt", vbExclamation + vbOKCancel +
vbDefaultButton2,"title")
If r = vbOK Then
'copy field values
End If
In your coding above, it compares when [paddr] = [addr] etc.
Shouldn't it be searching for when [paddr] does not = [addr] or am i
reading your coding wrong?
It was just an example. Alter the logic to suit.
Also, the warning pops up every time you activate the tick box, even
when the postal address feilds are blank. It should only pop up when
something different is in the postal address

Then add more checks before you open the message box.

eg. (check the logic... it's just an example)

If ((Not IsNull(Me![Addr]) And (Me![Addr] <> Me![PAddr])) And
((Not IsNull(Me![Addr2]) And (Me![Addr2] <> Me![PAddr2])) And .... etc
etc
Then
Msgbox "Warning"
End If

--
regards,

Bradley

A Christian Response
http://www.pastornet.net.au/response

[farqs]

Thanks for your patience.

I'll have a play with it and let you know how i go.

Regards
Farqs

[farqs]

Thanks for your help Bradley. Much appreciated.

I got it to work. You had a parenthisis missing in the checking code,
but i assume you did this on purpose ;-). Anyway I came up with the
following (Don't laugh...it works):

Private Sub VA_SAA_AfterUpdate()

If ((Not IsNull(Me![VA_ADD])) And (Me![VA_ADD] <> Me![VA_PA_ADDRESS]))
And ((Not IsNull(Me![VA_SUBURB])) And (Me![VA_SUBURB] <>
Me![VA_PA_SUBURB])) And ((Not IsNull(Me![VA_STATE])) And (Me![VA_STATE]
<> Me![VA_PA_STATE])) And ((Not IsNull(Me![VA_POSTCODE])) And
(Me![VA_POSTCODE] <> Me![VA_PA_POSTCODE])) Then
Dim r As Long
r = MsgBox("You are about to delete this agencies Postal Address and
replace it with the Location Address. Do you want to continue?",
vbExclamation + vbYesNo + vbDefaultButton2, "Warning")
If r = vbYes Then
Me![VA_PA_ADDRESS] = Me![VA_ADD]
Me![VA_PA_SUBURB] = Me![VA_SUBURB]
Me![VA_PA_STATE] = Me![VA_STATE]
Me![VA_PA_POSTCODE] = Me![VA_POSTCODE]
Else
If r = vbNo Then
Me![VA_SAA] = Null
End
End If
End If
End If
If Me![VA_SAA] Then
Me![VA_PA_ADDRESS] = Me![VA_ADD]
Me![VA_PA_SUBURB] = Me![VA_SUBURB]
Me![VA_PA_STATE] = Me![VA_STATE]
Me![VA_PA_POSTCODE] = Me![VA_POSTCODE]
Else
Me![VA_PA_ADDRESS] = Null
Me![VA_PA_SUBURB] = Null
Me![VA_PA_STATE] = Null
Me![VA_PA_POSTCODE] = Null
End If

End Sub