how to make data entered

[Guest]

I have a continuous form (with texboxes for data entry) and a table
associated with this form.

To have the data entered I've used the following trick to go to the next row
and return back:
DoCmd.GoToRecord acDataForm, strFormName, acLast
DoCmd.GoToRecord acDataForm, strFormName, acFirst

or

With Me.RecordsetClone
lngRecordCount = .RecordCount
End With

lngRecordCurr = Me.CurrentRecord

strFormName = "frmForm"
If lngRecordCount = lngRecordCurr Then
DoCmd.GoToRecord acForm, strFormName, acPrevious
DoCmd.GoToRecord acForm, strFormName, acNext
Else
DoCmd.GoToRecord acForm, strFormName, acNext
DoCmd.GoToRecord acForm, strFormName, acPrevious
End If

It's working good if the number of rows more than 1. But, if it's just 1
it's not working because there is no way to go to the next row and data
temains un-entered.

How could I resolve it?

Thanks

 

[Andi Mayer]

I have a continuous form (with texboxes for data entry) and a table
associated with this form.

To have the data entered I've used the following trick to go to the next row
and return back:
DoCmd.GoToRecord acDataForm, strFormName, acLast
DoCmd.GoToRecord acDataForm, strFormName, acFirst

try Me.dirty=false