Sorry about that, here ya go!
Code:
Private Sub Form_Current()
On Error GoTo Form_Current_Error
Call subCommon_Form_Current(Me.Form)
CboZipCodeSearch.Requery
Me.RecordLock = True
Call RecordLock_Click
Call ButtonControlOne
Me.Form.Caption = "ZipCode"
Form_Current_EXIT:
Exit Sub
Form_Current_Error:
Select Case Err
Case Else
'Call fcnLogError(Err.Number, Err.Description, " in Form_Current of VBA Document Form_frmAttendees", , True)
End Select
Resume Form_Current_EXIT
End Sub
Code:
Option Compare Database
Option Explicit
Public Sub subCommon_Form_Current(frm As Form)
Dim rst As DAO.Recordset
Dim nCount As Integer, nPosition As Integer
nCount = frm.Recordset.RecordCount
On Error GoTo Err_Handler
If nCount = 0 Then
MsgBox "No Records exist yet.", vbOKOnly, " R E S T R I C T I O N "
Exit Sub
End If
Set rst = frm.RecordsetClone
rst.MoveLast
rst.MoveFirst
nCount = rst.RecordCount
nPosition = frm.CurrentRecord
frm!TxtRecordNo = nPosition & " of " & nCount
frm.CmdFirst.Enabled = True
frm.CmdPrev.Enabled = True
frm.CmdNext.Enabled = True
frm.CmdLast.Enabled = True
'disable as appropriate
If nCount = 1 Then
frm.CmdFirst.Enabled = False
frm.CmdPrev.Enabled = False
frm.CmdNext.Enabled = False
frm.CmdLast.Enabled = False
ElseIf nPosition = 1 Then
frm.CmdFirst.Enabled = False
frm.CmdPrev.Enabled = False
ElseIf nPosition = nCount Then
frm.CmdLast.Enabled = False
frm.CmdNext.Enabled = False
End If
Exit_Handler:
If frm.Dirty Then frm.Dirty = False
Set rst = Nothing
Exit Sub
Err_Handler:
Select Case Err
Case Else
MsgBox "Error " & Err & ": " & Error$, vbExclamation, "Form_Current()"
Resume Exit_Handler
End Select
End Sub