Author Topic: ZfrmLevels Error When no records (Read 8 times)

DD Admin · « **on:** May 01, 2020, 06:00:25 pm »

Found this error when adding this object to the Animal Sanctuary, It will only happpen when the db is new without records to correct it past the code blow in the Form_Current Replacing what was there.

Code: [Select]

Dim R As DAO.Recordset
On Error GoTo HandleErr

Set R = Me.RecordsetClone
If R.RecordCount = 0 Then
    Me![STxt_LevelOrder].DefaultValue = 1
Else
    If Me.NewRecord Then Me![STxt_LevelOrder].DefaultValue = GetNextLevel
End If

R.Close
Set R = Nothing

HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume HandleExit
        Resume
    End Select

On LfrmLevelsLookup Replace the code in the txt_Limit_Change Event

Code: [Select]

On Error GoTo HandleErr
    If Not IsNothing(txt_Limit.Text) Then
        Me.Sub_ZfrmLevels.Form.Controls("SpinUp").Enabled = False
        Me.Sub_ZfrmLevels.Form.Controls("SpinDown").Enabled = False
        Me.Sub_ZfrmLevels.Form.AllowAdditions = False
    Else
        Me.Sub_ZfrmLevels.Form.Controls("SpinUp").Enabled = True
        Me.Sub_ZfrmLevels.Form.Controls("SpinDown").Enabled = True
        Me.Sub_ZfrmLevels.Form.AllowAdditions = True
    End If
    txtLimitX = txt_Limit.Text
    Me.Sub_ZfrmLevels.Requery

HandleExit:
    Exit Sub
    
HandleErr:
    Select Case Err.Number
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume HandleExit
        Resume
    End Select

News:

DD's Stats

Recommended Posts

Todays Birthdays

DD's Top Posters

Author Topic: ZfrmLevels Error When no records (Read 8 times)

DD Admin

ZfrmLevels Error When no records

Related Topics

DD's Social Media

DD's Programs

Recent Topics