I tried the up down thing last night and it does seem to complicated for my limited access ability. I was then just trying to assign a value to the item in the list. Whether with a Hard coded 1st, 2nd,3rd button or something similar. i am struggling with the code to add to the onclick event. I was trying to modify the code that I was using to populate the listbox to modify the listbox, but I still struggle with the updating records. Can you give me some code assistance to change the sortorder field of the selected item? Here is what I am using:
Code:
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim ctl As Control
Dim varItem As Variant
Dim currval As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblSymptomsFunction", dbOpenDynaset)
For Each varItem In Me.listcombined.ItemsSelected
rs.Edit
rs!SortOrder = 1
rs.Update
Next varItem
Me.lstcombined.Requery
Set rs = Nothing
Set db = Nothing
I am sure I am missing important portions but I don't know what it is.
Thank you!