The major error I found is that there is a duplicate sub-routine name in the form "SRCHASSEMBLY". The first 3 lines of each sub are:
Code:
Private Sub cmdOrderbyAssembly_Click()
Dim Response As Integer
Response = basOrderby("Assemblylog.AssemblyID", "asc")
.
.
Private Sub cmdOrderbyAssembly_Click()
Dim Response As Integer
Response = basOrderby("Assemblylog.AssemblyID", "DESC")
.
.
The second sub should (might) be named
Private Sub cmdOrderbyAssemblyDesc_Click() ????
(BTW, there are better ways to change the sort order.)
====================
Other things I saw:
Under TOOLS/OPTIONS, General Tab, the two checks under "Name AutoCorrect should be unchecked. This is a known cause of mdb corruption.
On the FORMS/REPORTS tab, "Always use Event Procedures" should be checked.
----------
There is not a reference to Microsoft DAO 3.6 Object Library
(in the IDE - TOOLS/REFERENCES..)
Every code page should begin with these two lines:
Option Compare Database
Option Explicit
----------
You should think about splitting the mdb if more than one person will be accessing the database at the same time.