AutoFill works but error when field is empty

[Lianne]

I have made an Autofill which is working.


Contacts & Tasks tables. In the Tasks details form Contact name is obtained from the Contacts tbl. Names and contact info is displayed.
It works well when all of the contacts fields are filled and if a contact is selected in the tasks details form.

Two problems.

1. The form does not always need to use the Contact AutoFill. Error occurs when we try to save the new Task Details if Contact field is empty. [The form does not let us continue unless the autofill field is used.] Sometimes that field needs to be left blank.
I am sure it is something like if null=.... what to say after null [I assume in the Event Tab /On Exit / ... / ? ]

2. If the Contact fields I am bringing in [just to view] are 5 fields. If they are not filled in the primary [Contact] table we get an error. Sometimes we don't have info for all the fields.
I believe the answer is similar to #1 If null.... but again I am sorry to say I don't know where to put the if statement and what to say afterwards.

Thank you in advance for your help and thoughts.

Lianne

[June7]

Need to review code. What do you mean by 'Autofill'?

What are the exact error messages?

[Lianne]

Thanks for the quick reply. Sorry I should have included that - good questions.

Everything works if a contact person is selected and if all the fields are filled in for that contact person [contacts tbl].

When I try to save a new task without including a contact name the following error appears.
"The Microsoft Accesss database engine cannot find a record in the table 'Contacts' with key matching field(s) 'ContactID'."



I have made sure the last name and first name are not required fields in the Contact table.

The following is the Event Procedure code In the Task Details form, I have the following code in the "On Change" for ContatName
I believe I need to add code that says if ContactName is blank - continue anyway. Maybe add code in the "On Exit"? or in here?

Private Sub cboContact_Change()
Me.txtOrganization.Value = Me.cboContact.Column(3)
Me.txtRole.Value = Me.cboContact.Column(4)
Me.txtPhone.Value = Me.cboContact.Column(7)
Me.txtCell.Value = Me.cboContact.Column(6)
Me.txtEmailAddress.Value = Me.cboContact.Column(5)


End Sub

[June7]

Sounds like Contacts and Tasks have a parent/child relationship that is enforced by the Relationships builder.