Database - first use

[joltremari]

I have an app that uses a database to keep reecords on students. I have a cmdAddNew button for adding a new student and cmdEnter button with this code:

Private Sub cmdEnter_Click()
Data1.Refresh
Data1.Recordset.MoveLast
End Sub

The problem is when start from a blank database there is no "last record" for it to go to. The reason I had this code here is because I need it to show the last record entered when I click cmdEnter. How will I do this when I am starting from an empty database?

I hope I explained this well enough any help is greatly appreciated.

JO

[Jeff Carlin]

Although you could program this more elegantly, a simple fix is:

On Error Resume Next

An empty database will trigger the error, but no harm, no foul. Stick this just before the "MoveLast" command.

[joltremari]

Elegantly?

[Jeff Carlin]

Sorry...I'm just not a big fan of the data control. I much prefer to code the required routines. Also, whenever I have to use the "On Error Resume Next" (and I do...a lot), I figure I haven't done a very good job.

[paulw]

Use the .EOF and .BOF markers to check whether or not there is data.

e.g.

If Not(Data1.Recordset.BOF And Data1.Recordset.EOF) then
  Data1.Recordset.MoveLast
End If

If the .EOF and .BOF markers are both true, there is no data in the recordset.

Elegant and simple.

Paul.