Beginner with Visual Basic HELP

[EliteDesk@aol.com]

The following is code I wrote, this is in the after update event for the combo box. When I run it it just takes me back to VB editor. I use OpenModule. I also tried it using Private Sub at the top and End Sub at the bottom and I get an invalid ME statement at the second Me in the first line of code.

Option Compare Database
Option Explicit
Me![Agency] = Me![AgentList].Column(2)
Me![Agency City] = Me![AgentList].Column(3)
Me![Delivery Address] = Me![AgentList].Column(4)
Me![Delivery City] = Me![AgentList].Column(5)
Me![Delivery State] = Me![AgentList].Column(6)
Me![Delivery Postal Code] = Me![AgentList].Column(7)
Me![Agent Office#] = Me![AgentList].Column(8)
Me![Agent Pager#] = Me![AgentList].Column(9)
Me![Agent Cell#] = Me![AgentList].Column(10)
Me![Agent Fax#] = Me![AgentList].Column(11)
Me![Agent Email] = Me![AgentList].Column(12)

 

[Jack Cowley]

In the Afer Update event field of the Combo Box you should have [Event Procedure]. When you click the 3 dot button to the right of the field it will take to a Private subroutine that looks like this:

Private Sub ComboName_AfterUpdate()

End Sub

Put your code in between so it looks like this:

Private Sub ComboName_AfterUpdate()
Me![Agency] = Me![AgentList].Column(2)
Me![Agency City] = Me![AgentList].Column(3)
Me![Delivery Address] = Me![AgentList].Column(4)
Me![Delivery City] = Me![AgentList].Column(5)
Me![Delivery State] = Me![AgentList].Column(6)
Me![Delivery Postal Code] = Me![AgentList].Column(7)
Me![Agent Office#] = Me![AgentList].Column(8)
Me![Agent Pager#] = Me![AgentList].Column(9)
Me![Agent Cell#] = Me![AgentList].Column(10)
Me![Agent Fax#] = Me![AgentList].Column(11)
Me![Agent Email] = Me![AgentList].Column(12)
End Sub

HTH,
Jack

 

[EliteDesk@aol.com]

THANK YOU!!! I'll try it.
Cathi