New post here!!
I have a form with 2 combo boxes. Once I select the 2 values, it populates my subform. The issue is when my subform populates, the record counter below on the navigation bar does not update.
I have previous and next navigation buttons on the form which work. When I click on those the navigation bar record count updates correctly.
Do I need to add something to my cboBox2 After Update Code to show the correct Record number on the Navigation Bar? Help Please. Thanks in advance. Please see my form code below:
Option Compare Database
Private Sub cboSassyAAC_AfterUpdate()
cboTAMCN = ""
cboTAMCN.Requery
End Sub
Private Sub cboTAMCN_AfterUpdate()
subTEReview.Requery
End Sub
Private Sub Form_Current()
If Me.CurrentRecord = 1 Then
btnPrevious.Visible = False
Else
btnPrevious.Visible = True
End If
Dim rs As Recordset2
Set rs = Me.RecordsetClone
If Me.CurrentRecord = rs.RecordCount Then
btnNext.Visible = False
Else
btnNext.Visible = True
End If
cboSassyAAC = [SassyAAC]
cboTAMCN = [TAMCN]
End Sub
Private Sub btnNext_Click()
On Error GoTo Err_btnNext_Click
DoCmd.GoToRecord , , acNext
subTEReview.Requery
Exit_btnNext_Click:
Exit Sub
Err_btnNext_Click:
If Err.Number <> 2105 Then MsgBox Err.Description
Resume Exit_btnNext_Click
End Sub
Private Sub btnPrevious_Click()
On Error GoTo Err_btnPrevious_Click
DoCmd.GoToRecord , , acPrevious
subTEReview.Requery
Exit_btnPrevious_Click:
Exit Sub
Err_btnPrevious_Click:
If Err.Number <> 2105 Then MsgBox Err.Description
Resume Exit_btnPrevious_Click
End Sub
Private Sub Form_Load()
cboSassyAAC = ""
cboTAMCN = ""
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub