Signalling a record in a one-to-one tables

[Paul Wagstaff]

Hi, hope someone can help with what should be an easy feature:

I have 2 tables in a one-to-one relationship. Each table has its own form.

tblAplicantCore underlies frmAppCore
tblApplicantData underlies frmAppRen

Each record in tblAplicantCore can have a maximum of 1 record in
tblApplicantRenewal - but many records, if not most, will be null.

I have a checkbox in frmAppCore need it to checked if there is a
corrresponding record in tblApplicantRenewal

I'm trying to do something like this, but, needless to say, it's not
working. And I'm almost cetain I'm barking up the wrong tree.

Can anyone help?

TIA,

Paul.
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''
'''''''''

Private Sub Form_Load() 'frmApplicantCore
Dim db As Database, rst As Recordset

Set db = DBEngine.Workspaces(0).Databases(0)
Set rst = db.OpenRecordset("SELECT tblRenewalData.AppRenID FROM
tblRenewalData WHERE
(tblRenewalData.AppRenID)=[Forms]![frmApplicantCore].[AppCoreID]")
Do Until rs.EOF
Loop
If rst.RecordCount > 0 Then

Me.ckRenewalReceived = -1

End If
End Sub