"No Current Record" when adding new record

Hi All,

I have a main form (frmFacility) with a subform (fsubTraining) with a subform
(fsubUserTraining).

Whenever I add a new record, while inserting characters in the first field, I
receive a message box "No Current Record". After clicking "OK" I am able to
continue and the record is inserted with no additional problems.

I believe it may have to do with my OnCurrent Event for the form.
==================
Private Sub Form_Current()
On Error GoTo Err_Form_Current

Me.cboFindFacility.Value = Me.FacilityID

If Me.FilterOn Then
Me.cboFindFacility.Enabled = False
Else
Me.cboFindFacility.Enabled = True
End If

Me.cmdGoToFirstFacility.Visible = True = (Me.CurrentRecord 1)
Me.cmdPreviousFacility.Visible = True = (Me.CurrentRecord 1)
Me.RecordsetClone.MoveLast 'could be any ie: Movefirst
Me.cmdNextFacility.Visible = True = (Me.CurrentRecord _
Me.RecordsetClone.RecordCount)
Me.cmdGoToLastFacility.Visible = True = (Me.CurrentRecord _
Me.RecordsetClone.RecordCount)

Exit_Form_Current:
Exit Sub

Err_Form_Current:
MsgBox Err.Description
Resume Exit_Form_Current

End Sub
==================
Any ideas?

Thanks!

--
---
TraciAnn

Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200907/1