Lock subform to only allow one record entry

[LanieB]

Hello all!

I have a subform that I want to lock so it can only allow one record entry. Example -- This database is used for internal file audits -- There is a table with all the file information -- A table with all the audit information.

The Main Form is the file information -- the subform is the audit information for that particular file.

There won't be two audits on one file, so I want that subform to only allow one entry. How can I force it to only allow one record?

Please let me know if you need any further information! Thank you!

[ketbdnetbp]

LanieB -

There are several ways of accomplishing this task. One way (untested) would be to try something like:

dim x as Integer
x = [Forms]![MainFormName]![SubformName].Form.RecordsetClone.RecordCount
If x >= 1 then
[Forms]![MainFormName]![SubformName].Enabled = False
else
[Forms]![MainFormName]![SubformName].Enabled = True
End if

in the current event of the main form. Then, in the beforeupdate event of the subform, you may need to add:

dim z as Integer
[Forms]![MainFormName]![SubformName].Form.RecordsetClone.MoveLast
z = [Forms]![MainFormName]![SubformName].Form.RecordsetClone.RecordCount
If z < 2 then
exit sub
else
MsgBox "Only one audit record is allowed"
Cancel = True
end if

Hope this gets you started,

Jim