Default value on an unbound combo box

[lsmcal1984]

Dear all,



I have a combobox that looks up names in tblAgency. This combobox is disabled unless a checkbox for agency is selected.

When I add a new record, I want the combobox to default to Record 4 in tblAgency. However, the form is based on tblNames (as it uses a subform in datasheet view). The

The row source code is.

SELECT [tblAgency].[AgencyID], [tblAgency].[AgencyName] FROM tblAgency ORDER BY [AgencyName];

I have set the default value as =[tblAgency].[AgencyName](4).

However, it stills appears blank when I add a new record.

Finally, if possible, I'd like the combobox to reset to the default value when the checkbox is unticked.

Many thanks!

[ItsMe]

When you create a new record you want your combobox to default to ID 4.

Place the following in the form's current event

If Me.NewRecord = True Then
Me.ComboBoxName.Column(0) = 4
End If

If the checkbox is unticked you want your combobox to default to ID 4. Assuming you do not have the default value of your yes/no field assigned as "Null", this should work by placing it in the afterupdate event of your checkbox.

If Me.CheckBoxName.Value = 0 Then
Me.ComboBoxName.Column(0) = 4
End If

I have not tested this code. Based on your select query, your ID column should be index 0 when looking at it from this VBA perspective.