So far no luck. I've decided to include the entire code I'm working with.
When making a change to the record, nothing happens. When moving from one record to another, I get the same error as above: Compile error: Method or data member not found
Code:
Private Sub Form_AfterUpdate()If Me.RecordType & "" = "" Then
Me.RequestSent.Visible = False
Me.ScheduleCreated.Visible = False
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.PlanYearbuilt.Visible = False
Me.ContributionsLoaded.Visible = False
Me.BankingCompleted.Visible = False
Me.BillingSetUp.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Reissue - Change" Then
Me.MatrixUpdated.Visible = False
Me.BankingCompleted.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Reissue - No Change" Then
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.BankingCompleted.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Banking Change" Or Me.RecordType = "Misc. Change" Then
Me.ScheduleCreated.Visible = False
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.PlanYearbuilt.Visible = False
Me.ContributionsLoaded.Visible = False
End If
End Sub
Code:
Private Sub Form_Current()If Me.RecordType & "" = "" Then
Me.RequestSent.Visible = False
Me.ScheduleCreated.Visible = False
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.PlanYearbuilt.Visible = False
Me.ContributionsLoaded.Visible = False
Me.BankingCompleted.Visible = False
Me.BillingSetUp.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Reissue - Change" Then
Me.MatrixUpdated.Visible = False
Me.BankingCompleted.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Reissue - No Change" Then
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.BankingCompleted.Visible = False
Me.CCSMTurnedOn.Visible = False
ElseIf Me.RecordType = "Banking Change" Or Me.RecordType = "Misc. Change" Then
Me.ScheduleCreated.Visible = False
Me.ScheduleApproved.Visible = False
Me.MatrixUpdated.Visible = False
Me.PlanYearbuilt.Visible = False
Me.ContributionsLoaded.Visible = False
End If
End Sub