after update Event Procedure not updating form

[lynthel]

I have a form with a combo box drop down menu...I am having a couple issues...



1. (referring to code below) After Update is not updating form. I want the form to populate with the info about the selected item from the combo box.
#1 has been solved!

2. How do I refresh the drop down list while form is open after a new record has been created and added?
#2 has been solved!

3. Can I add an item "New Program" at the top of the drop down menu that will focus on a text box on the form to have user input new program info?

lst_program_query is drop down list combo box

Private Sub lst_program_query_AfterUpdate()
    On Error Resume Next
    Dim rst As Object
    Set rst = Me.RecordsetClone
    rst.FindFirst "[tiw_program_no]=" & Me.lst_program_query.Value
    Me.Bookmark = rst.Bookmark
End Sub

[ItsMe]

Here is an example that finds a match for a value that is literal text. It saves the current record, in case that matters and it uses the Bookmarkable property to evaluate the record's ability to bookmark.

https://www.accessforums.net/forms/e...tml#post208679

[lynthel]

Here is an example that finds a match for a value that is literal text. It saves the current record, in case that matters and it uses the Bookmarkable property to evaluate the record's ability to bookmark.

https://www.accessforums.net/forms/e...tml#post208679

I tried using the snippet to test...however, in my case, the query that the combo box calls on has three columns, and the third column, that is the primary key, is hidden. When trying to adjust the code for my situation (using column 2 as third column and using correct field name), I get a mismatch error...

[ItsMe]

This is for text
rs.FindFirst "[cust_name] = '" & Me.ComboboxName.Column(0) & "'"

this is for numbers
rs.FindFirst "[cust_name] = " & Me.ComboboxName.Column(0)

[lynthel]

Thank you...this helped to solve #1 and #2 above...now to see if I can find an answer for #3.

[ItsMe]

You can add a record to the table that is the RowSource of your combo and then include an afterupdate event handler for the combo

If me.combo = 1 then
Do Something here
end if

I would use a separate control button that had a click event to add a record/item to the data set or value list of the combo.