The code behind the Combo: After update
Option Compare Database
Private Sub Combo29_AfterUpdate()
'Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Advisor Name] = """ & Me![Combo29] & """"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
I have designed an Access Database that works out commissions and Overrides for about 400 Advisers. We run this every 2 weeks for a commission run.
At the end of each commission run statements are sent out from the database to each Adviser from the Access database. At present they are sent out...
Hi, I use Access a lot and am quite proficient with Access itself but weak on the VBA side. From time to time, where VBA coding may be required I will be looking for help and advice.