Hi DB
I have now tried to open the database "BA.accdb". I bypassed start up options by holding.
down the SHIFT key while opening my database.
And yes now the Wizard works.
When starting "BA.accdb" again in "normal"
mode. The Wizards is not working.
There are three Forms opening at start, by excluding them one by one I found the form causing Wizards not to work and it is the form "Produktion".
Produktion has an OnOpen property.
Private Sub Form_Open(Cancel As Integer)
OpenAllDatabases True
End Sub
The "OpenAllDatabases" is a code I found and use to improve performance with linked tables.
OpenAllDatabases
In my case the code is like this:
Option Compare Database
Option Explicit
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 and Thanks to: Luke Chung FMS https://www.fmsinc.com/microsoftaccess/Performance/LinkedDatabase.html
Dim X As Integer
Dim strName As String
Dim strMsg As String
' Maxantal tabelldatabaser på servern som skall länkas
' när detta skrivs är det Trading Base.accdb
Const cintMaxDatabases As Integer = 1
' List of databases kept in a static array so we can close them later
Static dbsOpen() As DAO.Database
If pfInit Then
' Om kunden har valt att inte jobba med Trading Base i nätverk och låter bli att definiera sökväg
If (Eval("[Forms]![Alla Val]![EgenPathExtra1] Is Null")) Then Exit Sub
ReDim dbsOpen(1 To cintMaxDatabases)
For X = 1 To cintMaxDatabases
Select Case X
Case 1:
' för att detta skall fungera ... gå till fliken Bas / Mappar mm och skriv in sökvägen till Trading Base
strName = [Forms]![Alla Val]![EgenPathExtra1] & "Trading Base.accdb"
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. (du anger sökvägen under Bas / Mappar mm" & 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
In the "mid" of the code above I have an If:
If (Eval("[Forms]![Alla Val]![EgenPathExtra1] Is Null")) Then Exit Sub
So if the user dont register the path to the BE "Trading Base.accdb" this If code exit the Sub OpenAllDatabases.
And that makes the wizards run. So there is something in the code below that If making Wizards not to run and even stopping the possibility to convert macros to code.
But what? I dont know. Any ideas?
Best // Peter Forss Stockholm and Sigtuna GMT +1.00
