Updating a Drop down list

[Spec01]

Hello Everyone,

I have a database with an Employee Lookup. When I put a new record into the database using the form view the name in the drop down list won't get updated until the next time I reopen the form. Does anyone know how to make it so that it will Update right after the record has been entered. Here is the code that I'm using right now for the Drop Down list.

Private Sub Combo104_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ComputerID] = " & Str(Me![Combo104])
Me.Bookmark = rs.Bookmark
End Sub



If anyone knows how I could make it so it updates after the record has been entered it would be most appreciated.

thanks,

 

[Remou]

Hi
You can use requery:
Private Sub Form_AfterInsert()
Me.Combo104.Requery
End Sub

PS I have often regretted not using meaningful names for controls from an early stage of development.