I'm trying to write public subs to control several forms and am having a bit of trouble with this public sub I believe because of the Me. statement.
This is what I have in my module.
Code:
Public Sub Current()
On Error Resume Next
If frmcurrent.CurrentRecord = 1 Then
Me.Current.cmdBack.Enabled = False
Me.cmdFirst.Enabled = False
Else
Me.cmdBack.Enabled = True
Me.cmdFirst.Enabled = True
End If
If Me.CurrentRecord = Me.Recordset.RecordCount Then
Me.cmdLast.Enabled = False
Else
Me.cmdLast.Enabled = True
End If
If Me.CurrentRecord >= Me.Recordset.RecordCount Then
Me.cmdNext.Enabled = False
Else
Me.cmdNext.Enabled = True
End If
If Me.NewRecord Then
Me.cmdNew.Enabled = False
Else
Me.cmdNew.Enabled = True
End If
Dim rst As DAO.Recordset
Dim lngCount As Long
Set rst = Me.RecordsetClone
With rst
.MoveLast
lngCount = .RecordCount
End With
Me.tboCount = Me.CurrentRecord & " of " & lngCount
End Sub
This is what I'm using in my Form.
Code:
Private Sub Form_Current()
Call Current
End Sub
Is there a replacement for Me. or do I need to write this a different way?
Thanks for having a look.