this is my original code:
Code:
Private Sub MERCodes_AfterUpdate()
Me.Catagory_for_hours = Me.MERCodes.Column(2)
Me.Catagory_for_hours.SetFocus
Me.Catagory_for_hours.Dropdown
Me.Services_Covered = Me.MERCodes.Column(3)
Me.Services_Covered.SetFocus
Me.Services_Covered.Dropdown
Me.NameofWorkshop = Me.MERCodes.Column(4)
Me.NameofWorkshop.SetFocus
Me.NameofWorkshop.Dropdown
Me.MERCodes.SetFocus
End Sub
Here is the code I added but its giving me an error
Code:
Private Sub MERCodes_AfterUpdate()
Me.Catagory_for_hours = Me.MERCodes.Column(2)
Me.Catagory_for_hours.SetFocus
Me.Catagory_for_hours.Dropdown
Me.Services_Covered = Me.MERCodes.Column(3)
Me.Services_Covered.SetFocus
Me.Services_Covered.Dropdown
Me.NameofWorkshop = Me.MERCodes.Column(4)
Me.NameofWorkshop.SetFocus
Me.NameofWorkshop.Dropdown
Me.StateCategory = Me.MERCodes.Column(5)
Me.StateCategory.SetFocus
Me.StateCategory.Dropdown
Me.StateServicesCovered = Me.MERCodes.Column(6)
Me.StateServicesCovered.SetFocus
Me.StateServicesCovered.Dropdown
Me.MERCodes.SetFocus
End Sub