Change List Box Selected Value to New Record

[CGSB]

I have a list box which displays "file_no" from a table.

My module requeries the list box after a new record has been added to the table.

I would like the new record's "file_no" to be selected after the list box is requeried.

Please let me know if this is unclear, I'm not sure if I'm explaining this right.

Thanks!

 

[Zion7]

whatever the bound column, on your list box is,
make it equal the same value of the new record.

If it is the pkID, then maybe

Me.lstbox.Requery
Me.listBox.Value = DMax("pkID","tblNewRecord")

Or
depending on how you have your lstBox sorted,
you can use the, lstBox.selected(9) = True

If the new record, is at the top of your list then
lstBox.selected(0) = True
If at the bottom, then,
lstBox.selected(lstBox.ListCount - 1) = True

 

[TheAceMan1]

How are ya CGSB . . .

The trick here is how to get [blue]file_no[/blue] after a record is saved and before the listbox is requeried! If you can accomplish this store [blue]file_no[/blue] in a variable then:

[blue]   Dim db As DAO.Database, rst As DAO.Recordset, [purple][b]Variable[/b][/purple]
   
   Variable = [file_no]
   Me![b]ListboxName[/b].RowSource = Me![b]ListboxName[/b].RowSource [green]'listbox requery![/green]
   
   Set db = CurrentDb
   Set rst = db.OpenRecordset(Me![b]ListboxName[/b].RowSource, dbOpenDynaset)
   rst.FindFirst "[[purple][b]FieldName[/b][/purple]] = '" & [purple][b]Variable[/b][/purple] & "'"
   
   If Not rst.NoMatch Then
      Me![b]ListboxName[/b].Selected(rst.AbsolutePosition) = True
   End If
   
   Set rst = Nothing
   Set db = Nothing[/blue]

See Ya! . . . . . .