Error Trapping [resolved]

[aldinator]

hey - i have it so when the person runs my program for the first time i extract a blank database (with the neccessary columns and whatnot). up to now, everything works great. the only problem is that when the user runs i get an error 3021: "No current record." how can i trap this error before i get it and add in an extra record so it'll work?

ps i don't want to add the record if the db isn't empty

[DiGiTaIErRoR]

Have you tried On Error Resume Next?

[aldinator]

ya - but it happens when i load a different form that has the data controls

[DiGiTaIErRoR]

Perhaps you should check the count of the objects before you try to load them.

[aldinator]

well what happens is the second i go frm.show on the form with the dtas, it errors - so i can't really

[DiGiTaIErRoR]

Post the code that causes the error.

[aldinator]

ya know what - i just solved my prob:

With frmStudentRecord.dtaSR.Recordset
    If .BOF = True And .EOF = True Then
        MsgBox "blank"
        Exit Sub
    End If
End With

thanks anyways


but maybe you can help me with another problem - in about 5min check for a post in this forum called "VB closes after program closes"

thanks



mark a

[DiGiTaIErRoR]

You're welcome, glad you got it fixed.