Network being extremely slow

[perryc]

MSAccess Database Experts,

I put the database backend in the network drive while frontend on local HDD. Lately our network overall has been unbearably slow, do anyone have any experience on how to make it faster?

Would sharing the Backend to other users help instead of leaving it on the network drive? If so, how should other user's frontend be linked? Do I create a FE that link to the BE path that was shared? I don't even know if this will work.

p.s.: BTW, the BE is ~15MB size. I don't think it is that bad. I have compacted it ~every month and it does not really help much regarding loading time or refresh time.

Thanks in advance.



Sincerely,
Perry

[orange]

You could review this material from FMS. OR This

[perryc]

Ty so much for the tips. Just to clarify, where should these codes reside? In the FE or BE? And exactly where? In a Module?



To create a persistent connection to the linked database, open a MS Access database variable in VBA using the DAO OpenDatabase method. Keep this variable open as long as your application is running.
Procedure Code

The procedure below supports multiple backend databases. Edit the section with the list of databases to match your backend database(s):
Sub OpenAllDatabases(pfInit As Boolean)
' Open a handle to all databases and keep it open during the entire time the application runs.
' Params : pfInit TRUE to initialize (call when application starts)
' FALSE to close (call when application ends)
' Source : Total Visual SourceBook

Dim x As Integer
Dim strName As String
Dim strMsg As String

' Maximum number of back end databases to link
Const cintMaxDatabases As Integer = 2

' List of databases kept in a static array so we can close them later
Static dbsOpen() As DAO.Database

If pfInit Then
ReDim dbsOpen(1 To cintMaxDatabases)
For x = 1 To cintMaxDatabases
' Specify your back end databases
Select Case x
Case 1:
strName = "H:\folder\Backend1.mdb"
Case 2:
strName = "H:\folder\Backend2.mdb"
End Select
strMsg = ""

On Error Resume Next
Set dbsOpen(x) = OpenDatabase(strName)
If Err.Number > 0 Then
strMsg = "Trouble opening database: " & strName & vbCrLf & _
"Make sure the drive is available." & vbCrLf & _
"Error: " & Err.Description & " (" & Err.Number & ")"
End If

On Error GoTo 0
If strMsg <> "" Then
MsgBox strMsg
Exit For
End If
Next x
Else
On Error Resume Next
For x = 1 To cintMaxDatabases
dbsOpen(x).Close
Next x
End If
End Sub

[orange]

You don't have to use that code.
See this simpler persistent connection set up from Daniel at DevHut

[Welshgasman]

Think about it?
What good is the code in the BE, if that is what you are trying to connect to?

[perryc]

Thank you all for trying to help. Welshgasman, I see your point!!

[Welshgasman]

Just in case. I worked at one place where we had a server and 5 PCs. the server was actually on the floor against my desk.
Network was painfully slow?

Why, it turns out all our traffic was being routed to Coventry where the Building Society was, and then back to Birrmingham where we were located.

One the network people sorted that, it was as fast as one would expect.

Not saying this is the cause, but sometimes the problems are out of your domain?