Search Form Continuous Reloading After Split and Placed On Server

[colecole]

I'm using Access 2007. I created a split database and protected the front end as an accde file. I have a document search form that queries a listbox of documents to choose from. It worked great before I split it, converted the front end to accde, and put it on our server. Now when it opens it blinks like it is reloading every time you try and select a record from the document list. There aren't very many records, maybe 30 max. Also, there are no errors. I'm not sure what I am missing, could someone please take a look at the code behind this form and see if it something obvious or is there something I need to do specifically for a filter/sort/list form before putting it onto a shared server (I work for an environmental state government agency where the server is secured)?

 Option Compare Database
Option Explicit
Dim fslDocs As FilterSortListBox
Private Sub cboseries_afterUpdate()
  applyFilter
End Sub
Private Sub cboseries_Enter()
  Dim strWhere As String
  Dim strSql As String
  If Not Trim(cbotype & " ") = "" Then
    strWhere = "WHERE DocType = " & cbotype & " AND blnDocArchived <> -1 "
  End If
  strSql = "SELECT DISTINCT tblDocInfo.[DocSeries] FROM tblDocInfo "
  strSql = strSql & strWhere & "ORDER BY tblDocInfo.[DocSeries]"
  Debug.Print strSql
  cboseries.RowSource = strSql
  cboversion = Null
End Sub
Private Sub cbotype_AfterUpdate()
  Me.cboseries = Null
  Me.cboversion = Null
  Call applyFilter
End Sub
Private Sub cbotype_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me!cbotype.SetFocus
Me!cbotype.Dropdown
End Sub
Private Sub cboseries_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me!cboseries.SetFocus
Me!cboseries.Dropdown
End Sub
Private Sub cboversion_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me!cboversion.SetFocus
Me!cboversion.Dropdown
End Sub
Private Sub cboversion_AfterUpdate()
  applyFilter
End Sub
Private Sub cboversion_Enter()
  Dim strWhere As String
  Dim strSql As String
  If Not Trim(cboseries & " ") = "" Then
    strWhere = "WHERE DocSeries = " & cboseries & " AND blnDocArchived <> -1 "
  Else
    cbotype = Null
  End If
  strSql = "SELECT DISTINCT tblDocInfo.[DocVersion], getStrVersion([DocVersion]) AS strVersion FROM tblDocInfo "
  strSql = strSql & strWhere & "ORDER BY tblDocInfo.[DocVersion]"
  Debug.Print strSql
  cboversion.RowSource = strSql
End Sub
Private Sub cmdCancel_Click()
  DoCmd.Close acForm, Me.Name
End Sub
Private Sub cmdClear_Click()
  fslDocs.FilterList ("")
End Sub
Private Sub cmdOK_Click()
  Me.Visible = False
End Sub
Private Sub cmdseries_Click()
  fslDocs.SortList ("DocSeries")
End Sub
Private Sub cmdtitle_Click()
  fslDocs.SortList ("DocTitle")
End Sub
Private Sub cmdtrackingnumber_Click()
  fslDocs.SortList ("TrackingNumber")
End Sub
Private Sub cmdtype_Click()
  fslDocs.SortList ("SOPType,DocSeries,DocVersion")
End Sub
Private Sub cmdversion_Click()
  fslDocs.SortList ("DocVersion")
End Sub
Private Sub Form_Load()
  Call FindAsUTypeLoad(Me)
  Set fslDocs = New FilterSortListBox
  fslDocs.Initialize Me.lstDocuments
End Sub
Public Sub applyFilter()
  Dim strType As String
  Dim strVersion As String
  Dim strSeries As String
  Dim strFilter As String
  If Not Trim(Me.cbotype & " ") = "" Then
    strType = "DocType = " & Me.cbotype & " AND "
  End If
  If Not Trim(Me.cboversion & " ") = "" Then
    strVersion = "DocVersion = " & Me.cboversion & " AND "
  End If
  If Not Trim(Me.cboseries & " ") = "" Then
    strSeries = "DocSeries = " & Me.cboseries & " AND "
  End If
  strFilter = strType & strSeries & strVersion
  strFilter = Left(strFilter, Len(strFilter) - 5)
  fslDocs.FilterList (strFilter)
End Sub

[dmaruca]

I see nothing obvious, but you haven't posted all of the code. I'm talking about FilterSortListBox.cls.

[colecole]

I'm posting the whole database on 4shared.com. It is in Access 2007 and completely safe.

http://www.4shared.com/file/ZXgnT2tK...O-4Shared.html

I have dummy data in place. If you open it, the Main Menu(frmMainMenu) pops up at start-up.

From there click "SOP Document Tracking"
Then, Click "OK" on the popup msg box
The SOP Document Search Form (frmDocSearch) pops up. This is the form that flickers and is impossible to choose a row after I split it and place it on my work server. It works fine before then.

Please let me know if you see anything obvious. I would really, really, really appreciate it!!!

[dmaruca]

I get an invalid link.