After Update Help

[Zonie32]

I have a form PremRec. There are 2 fields, Policy# and CoName. I have this bit of code to auto fill the CoName when the Policy# is selected from the drop down on the form.

Private Sub Policy__AfterUpdate()
Dim GroupName As String
GroupName = [Forms]![PremRec]![Policy#].Column(1)
[Forms]!PremRec!CoName = GroupName

End Sub

Now I want to do the same After Update code for the CoName field, so when they choose a CoName from this field it autofills the Policy#. I can't figure out how to write this up. Can anyone help? Thanks for looking!

 

[randy700]

What happens when you use similar code?


Randy

 

[Zonie32]

well, this code works fine for the Policy, but I try changing a few things to get the CoName field to work the same way and I just can't get the right words in the right places. I try this and nothing happens.

Private Sub CoName__AfterUpdate()
Dim GroupName As String
Policy# = [Forms]![PremRec]![CoName].Column(1)
[Forms]!PremRec!Policy# = GroupName

 

[randy700]

Is the policy# a key field in your table?


Randy

 

[Zonie32]

The policy# is not a key field. I inherited this db from someone who created it years ago. I was asked if I could make this 'little fix' to this form to auto fill the policy number when the user selects the CoName from the drop down. This database is quite complex. Whoever did this spent a lot of time on it, but i'm not sure they knew what they were doing. it's quite a messy db.

 

[TheAceMan1]

How are ya Zonie32 . . .

Set the [blue]RowSource[/blue] of the combobox to include both fields and just update both:

[blue]   Me!CoName = Me![[purple][B][I]ComboboxName[/I][/B][/purple]].Column(1)
   Me!Policy# = Me![[purple][B][I]ComboboxName[/I][/B][/purple]].Column([purple][b]?[/b][/purple])[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]