Flip-flop textbox values using a checkbox

[kumana1]

Here's my dilema:

My database is built around people and their contact info. On my "data entry form" there is a place for their main address, and on the subform which is attached to the main form, is a place for the person's home address. I have a checkbox on the main form which I want to use to swap/flip-flop the home address with the main address.

The concept I have figured out for the most part, but the code is the actual problem. I know I need some kind of "middleman" to temporarily store the data while it's switched but I've got no idea on how to go about doing this. Any and all help would be greatly appreciated.

[ADezii]

Here's my dilema:

My database is built around people and their contact info. On my "data entry form" there is a place for their main address, and on the subform which is attached to the main form, is a place for the person's home address. I have a checkbox on the main form which I want to use to swap/flip-flop the home address with the main address.

The concept I have figured out for the most part, but the code is the actual problem. I know I need some kind of "middleman" to temporarily store the data while it's switched but I've got no idea on how to go about doing this. Any and all help would be greatly appreciated.

Here is the Code Template to accomplish what you are requesting. Substitute Control and Field Names wherever appropriate:

Private Sub chkTest_Click()
Dim intResponse As Integer
 
intResponse = MsgBox("Swap Main and Home Addressess?", vbYesNo + vbQuestion + vbDefaultButton1, "Address Swap")
 
If intResponse = vbNo Then Exit Sub
 
Dim strMainAddress As String, strHomeAddress As String
 
strMainAddress = Me![txtMainAddress]
strHomeAddress = Me![subfChild].Form![txtHomeAddress]
 
Me![txtMainAddress] = strHomeAddress
Me![subfChild].Form![txtHomeAddress] = strMainAddress
End Sub

[kumana1]

Thank you for that!

[ADezii]

Thank you for that!

No problemo.

[kumana1]

Works like a charm, as long as there's an address present in the residence address text box. If the residence address is left blank, I get an "Invalid Null" error. To combat this, this is what I've tried, but still get the error.

strMainAddress = Me![FCIL Address]
strHomeAddress = Me![subform_Master_subData].Form![Residence Address]
 
If strHomeAddress = Null Then
intResponse = MsgBox("No address to swap, do it anyways?", vbYesNo + vbQuestion + vbDefaultButton1, "No Address to Swap")
 
    If intResponse = vbNo Then Exit Sub
 
    Else:
    Me![FCIL Address] = strHomeAddress
    Me![subform_Master_subData].Form![Residence Address] = strMainAddress
    End If
 
Me![FCIL Address] = strHomeAddress
Me![subform_Master_subData].Form![Residence Address] = strMainAddress
 
End Sub

[NeoPa]

Try this modified version of ADezii's code :

Private Sub chkTest_Click()
  Dim intResponse As Integer
  Dim varMainAddress As Variant, varHomeAddress As Variant
 
  intResponse = MsgBox("Swap Main and Home Addressess?", vbYesNo + vbQuestion + vbDefaultButton1, "Address Swap")
 
  If intResponse = vbNo Then Exit Sub
 
  varMainAddress = Me![txtMainAddress]
  varHomeAddress = Me![subfChild].Form![txtHomeAddress]
 
  Me![txtMainAddress] = varHomeAddress
  Me![subfChild].Form![txtHomeAddress] = varMainAddress
End Sub

[kumana1]

Wow, that is a lot easier then what I was trying to do. Thanks so much for everyone's help.

[NeoPa]

Not a problem.
ADezii produced most of it, I just tweaked it to handle Nulls.