Solved No current record error (1 Viewer)

[oxicottin]

Hello, I have a button that clears my "Who Logged In" table, and the button works and it requerys the form BUT when I close the form, I get an error message. Why am I getting the message?

Private Sub cmdDeleteAllRecords_Click()

    CurrentDb.Execute "Delete * From tbl_WhoLoggedIn"
  
    DoCmd.Requery
  
End Sub

I can supress the error message but I would like to know why im getting it...

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3021 Then Response = 0
End Sub

 

[Solo712]

Instead of requerying an empty table you should set the form for a new record:

DoCmd.GoToRecord , , acNewRec

Best,
Jiri

 

[oxicottin]

Instead of requerying an empty table you should set the form for a new record:

DoCmd.GoToRecord , , acNewRec

Best,
Jiri

It gives me an error 2105 can't go to specified record. I'm just going to use the error handling. Thanks!

 

[Gasman]

Unlikely the code that you show is the problem then?, if it happens when you close the form?
What code runs when you close the form?

Have you even walked through your code?

 

[oxicottin]

@Gasman acually there isnt really anything on this form other than its so I can view logIn and logout times/names and I clear the table after I view them. Below is everything I have behind form.

Option Compare Database
Option Explicit

Private Sub cmdDeleteAllRecords_Click()
 
    CurrentDb.Execute "Delete * From tbl_WhoLoggedIn"
    
    DoCmd.Requery
    
End Sub

Private Sub Form_Current()
    On Error GoTo Form_Current_Err
    
'Counts records that were found
    Me.txtTotalRecords.Value = Me.Recordset.RecordCount
    
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Err.Description & " in Form_Current"
    Resume Form_Current_Exit
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    If CurrentProject.AllForms("frm_Switchboard").IsLoaded Then
        Forms![frm_Switchboard].Visible = True
    End If
    
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3021 Then Response = 0
End Sub

 

[Gasman]

Walk your code and review why this might happen

vba error 3021 - Google Search

 

[Pat Hartman]

Using an action query to update records bound to a form is always problematic. I'm guessing that it is the code in the current event that is triggering the error message.