Accde related problem

[Mgomp]

Hi all.
I have run into a problem wich I can't figure out how to fix.

Background is Access 2010.

I have made a splitted database system. Due to a perfomance problem over the network, I tried to compile the fornt end to a ACCDE file.

I have used the new "menu system" for access 2010, with top and left buttons in a web lookalike system.
The two first buttons on the top works fine, but the third and fourth windows (form) will not work. Instead I get the ferror message:

Requested type library or wizard is not a VBA project

There where no errors when I compiled the file. and I do not have any errors when running as a normal accdb.

Any ideas on how to fix this?

Regards.

 

[Guus2005]

The problem probably lies in the code behind those two buttons. It is uncertain to say anymore given the current information.

Perhaps if you show us the code you are using?

To speed up your application, please consider using TLookup (search this forum) or execute the application with a higher processor priority

modProcesPriority:

Option Compare Database
Option Explicit

Private Const NORMAL_PRIORITY_CLASS = &H20
Private Const IDLE_PRIORITY_CLASS = &H40
Private Const HIGH_PRIORITY_CLASS = &H80
Private Const REALTIME_PRIORITY_CLASS = &H100

Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Declare Function GetCurrentProcess Lib "kernel32" () As Long
Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Declare Function SetPriorityClass& Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long)
Declare Function GetPriorityClass& Lib "kernel32" (ByVal hProcess As Long)

Type PROCESS_INFORMATION
        hProcess As Long
        hThread As Long
        dwProcessId As Long
        dwThreadId As Long
End Type

Type PrioriteitNiveau
    High   As Long
    Normal As Long
End Type

Function SetPriorityLevel(ByVal High As Boolean)
    If High Then
        SetPriorityClass GetCurrentProcess(), HIGH_PRIORITY_CLASS
    Else
        SetPriorityClass GetCurrentProcess(), NORMAL_PRIORITY_CLASS
    End If
End Function

Function GetPrioriteitsNivo() As String
Dim RetVal As Long
    
    RetVal = GetPriorityClass(GetCurrentProcess())
    Select Case RetVal
        Case REALTIME_PRIORITY_CLASS
            GetPrioriteitsNivo = "Realtime"
        Case NORMAL_PRIORITY_CLASS
            GetPrioriteitsNivo = "Normal"
        Case HIGH_PRIORITY_CLASS
            GetPrioriteitsNivo = "High"
        Case IDLE_PRIORITY_CLASS
            GetPrioriteitsNivo = "Low"
    End Select
End Function

Enjoy!

 

[Mgomp]

Thank You for Your answer.

The code is to lang to put here, but I can try to explain better:
The App are made up around two standard forms for registrating data. With a main and subform for each. Just plain standard forms which are imported into each "menu button" in the new web-menu lookalaike system. The odd thing is - both of these form have almost exactly same code behind. All forms and all controlls (combolist) have record source based on standard queries.
Both forms has an dao-code for finding the first record in the On Open event. All other record select/update are based on standard ADO code.

I have tried to search for a solution, but all I can find is that this error (Requested type library or wizard is not a VBA project) where a problem on earlier version on Access...

About the speed, the problem is not on my computer.. In short; locally the app runs more than fast enough(that means everything happends instantly). The Backend on a server in the same buling, well - it works alright. When haveing the back end on a another server 70km away - the app halts for 15 - 30 seconds for each click on any control. The Linked Table Manager needs almost a minute to complete. I have a discussion on this on another place on the forum...

As for the Tlookup, I dont have any search where either D or Tlookup will have so much influence. - that is what I think after reading other input about tlookup.

Regards.