B
Biggles
I think I have isolated the question, but I am going to include the whole sub
(which does not work, as you will see).
Dim DB As Database
Dim rs As Recordset
Dim strsql As String
Dim frm As Form
strsql = "SELECT tblAEtoAPP.txtAE, tblAEtoAPP.txtAPP_LIST " & _
"FROM tblAEtoAPP WHERE (((tblAEtoAPP.txtAE)=" & Me.Combo0 & "))"
Set DB = CurrentDb
Set rs = DB.OpenRecordset(strsql)
Set frm = Me.sfrmAUDIT_ENTITY_INFORMATION.Form
Do Until rs.EOF
If frm!List9.ItemData = txtAPP_LIST Then
frm!List9.Selected = True
End If
rs.MoveNext
Loop
In the first line after the do statement, I know I need to figure out the
row number of the entry in the list that equals the value in the field
txtAPP_LIST. Then I need to change the list9.selected(varnumber) = true.
So how do I fix the above.
Biggles
(which does not work, as you will see).
Dim DB As Database
Dim rs As Recordset
Dim strsql As String
Dim frm As Form
strsql = "SELECT tblAEtoAPP.txtAE, tblAEtoAPP.txtAPP_LIST " & _
"FROM tblAEtoAPP WHERE (((tblAEtoAPP.txtAE)=" & Me.Combo0 & "))"
Set DB = CurrentDb
Set rs = DB.OpenRecordset(strsql)
Set frm = Me.sfrmAUDIT_ENTITY_INFORMATION.Form
Do Until rs.EOF
If frm!List9.ItemData = txtAPP_LIST Then
frm!List9.Selected = True
End If
rs.MoveNext
Loop
In the first line after the do statement, I know I need to figure out the
row number of the entry in the list that equals the value in the field
txtAPP_LIST. Then I need to change the list9.selected(varnumber) = true.
So how do I fix the above.
Biggles