"Same As Above" checkbox to auto fill in data from earlier entered data

[BudMan]

I have a table containing the homeowners’ names, addresses, City, State, and Zip. I also have fields for the applicant’s name, address, City, State, and ZIP.

I want to show a “Same as above” check box that will fill in the applicant’s name from the homeowner’s information or enter new data if it has not been checked. Is that even possible?

[mike60smart]

Hi
It is not normal to have the same home owners name in multiple records.
It would help if you could explain your business process or upload a copy of the database.

[Minty]

I'm guessing this is like a "Delivery Address", in as much as most of the time it will be the same as the Home Owner address but could be different.
Is the Applicant address stored in a separate table or is it the same fields duplicated in the same table?

[Welshgasman]

I did something similar to enter over 23K records.

Repeat for any fields you need to repeat.
Note, I was only repeating the PK of respective tables, NOT the descriptions.

Private Sub Ship_ID_AfterUpdate()
    If Me.chkCopy Then
        Me![Ship_ID].DefaultValue = """" & Me![Ship_ID].Value & """"
    Else
        Me![Ship_ID].DefaultValue = 0
    End If


End Sub

[xps35]

Do not store the data if it is the same. That is redundant. If homeowner data changes, you must change applicant data also (risk of inconsistencies).

Use events to make fields (un)visible depending on check box

Private Sub APsame_asHO_AfterUpdate()
If Me.APsame_asHO Then
    Me.AP_name.Visible = False
    Me.AP_address.Visible = False
    Me.AP_city.Visible = False
    Me.AP_state.Visible = False
    Me.AP_zip.Visible = False
    
    Me.AP_name = Null
    Me.AP_address = Null
    Me.AP_city = Null
    Me.AP_state = Null
    Me.AP_zip = Null
Else
    Me.AP_name.Visible = True
    Me.AP_address.Visible = True
    Me.AP_city.Visible = True
    Me.AP_state.Visible = True
    Me.AP_zip.Visible = True
End If
End Sub


Private Sub Form_Current()
If IsNull(Me.ID) Then 'new record, APsame_asHO = False
    Me.AP_name.Visible = True
    Me.AP_address.Visible = True
    Me.AP_city.Visible = True
    Me.AP_state.Visible = True
    Me.AP_zip.Visible = True
Else
    If Me.APsame_asHO Then 'existing record; depends on APsame_asHO
        Me.AP_name.Visible = False
        Me.AP_address.Visible = False
        Me.AP_city.Visible = False
        Me.AP_state.Visible = False
        Me.AP_zip.Visible = False
    Else
        Me.AP_name.Visible = True
        Me.AP_address.Visible = True
        Me.AP_city.Visible = True
        Me.AP_state.Visible = True
        Me.AP_zip.Visible = True
    End If
End If
End Sub

[Micron]

What's the difference between a home owner and an applicant? Are they always the same person(s)? Maybe sometimes yes, sometimes no?