Re: SYNC Form to listbox

Trying something a little different:

Private Sub Frame33_Click()
Select Case Frame33
Case 0 'show all records
Me![List7].RowSource = "SELECT [projectnum], [projectname] FROM

projectnumqry; "
Case Else 'show limited (filtered) list
Me![List7].RowSource = "SELECT [projectnum], [projectname] FROM

projectnumqry where [type] = " & Me.Frame33 & ";"
End Select
[Text29] = [List7].ListCount - 1
Me.List7.SetFocus
Call List7_Click
End Sub
------------------------------------------
Private Sub List7_Click()
Rem Pulls-up the summary form information for the selected project
Me.Recordset.FindFirst "[projectnum] = " & Me.[List7]
Call setcontrols
End Sub

.