Originally Posted by
HansvanhEERTUM
Ik heb voor de levering aan mijn klanten het lint en meer afgeschermd, maar zij kunnen op frmStart klikken om toch in de ontwerpgave te komen.
Kan ik onderstaande code zo aanpassen dat de tabs van de forms ook niet meer te zien zijn:
On Error Resume Next
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim error As String
Dim hulp As String
Dim LinkedDB As String
Dim pos As Long
Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
If CurrentProject.Path = "C:\PremiumSoftware_Hans" Then
'herstel het navigatie window command
Call DoCmd.SelectObject(acTable, , True)
'herstel Ribbon
Call DoCmd.ShowToolbar("Ribbon", acToolbarYes)
Else
'verberg navigatie panel
Call DoCmd.RunCommand(acCmdWindowHide)
'verberg Ribbon
Call DoCmd.ShowToolbar("Ribbon", acToolbarNo)
End If
'build linked table
pos = InStrRev(CurrentProject.Name, ".")
hulp = Left(CurrentProject.Name, pos - 1) & "_be.accdb"
LinkedDB = CurrentProject.Path & "\data" & hulp
cat.ActiveConnection = CurrentProject.Connection
DoEvents
For Each tbl In cat.Tables
If tbl.Type = "LINK" Then
If tbl.Properties("Jet OLEDB:Link Datasource") = LinkedDB Then
'niet te doen, link is ok
Else
tbl.Properties("Jet OLEDB:Link Datasource") = LinkedDB
If Err.Number = 0 Then
tbl.Properties.Refresh
Else
error = "Error " & tbl.Name & vbCrLf
Err.Clear
End If
End If
End If
Next
'error?
If Len(error) > 0 Then
MsgBox error
End If
' disable error handling
On Error GoTo 0
Hans