Ok, please forgive me. I know very little about coding, but this same code works perfectly in another db I am using. I am trying to update several fields in a form based on the selection of a combo box, in this case Combo53. I set up the code and ran it and get an error stating "Compile Error: Method or Data Member Not Found" with the Private Sub Combo53_AfterUpdate()highlighted in yellow.
Private Sub Combo53_AfterUpdate()
Me.FirstName = Me.Combo53.Column(1)
Me.Profession = Me.Combo53.Column(2)
Me.NPI = Me.Combo53.Column(3)
Me.LIC = Me.Combo53.Column(4)
Me.ADDRESS1 = Me.Combo53.Column(5)
Me.Address2 = Me.Combo53.Column(6)
Me.City = Me.Combo53.Column(7)
Me.State = Me.Combo53.Column(8)
Me.Zip = Me.Combo53.Column(9)
Me.EmailAdd = Me.Combo53.Column(10)
Me.Phone = Me.Combo53.Column(11)
End Sub
At another suggestion, I also added "End With" before End Sub but I am getting the same error.
Any tips or suggestions? Thanks!
Private Sub Combo53_AfterUpdate()
Me.FirstName = Me.Combo53.Column(1)
Me.Profession = Me.Combo53.Column(2)
Me.NPI = Me.Combo53.Column(3)
Me.LIC = Me.Combo53.Column(4)
Me.ADDRESS1 = Me.Combo53.Column(5)
Me.Address2 = Me.Combo53.Column(6)
Me.City = Me.Combo53.Column(7)
Me.State = Me.Combo53.Column(8)
Me.Zip = Me.Combo53.Column(9)
Me.EmailAdd = Me.Combo53.Column(10)
Me.Phone = Me.Combo53.Column(11)
End Sub
At another suggestion, I also added "End With" before End Sub but I am getting the same error.
Any tips or suggestions? Thanks!