Levering aan klanten is afgeschermd, maar klikken op tab Start biedt ontwerpweergave

[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

[Welshgasman]

Non comprende. Lo sieñto

[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

For delivery to my customers I have blocked the lint, but clicking on the tab 'frmStart' opens the possibility to change the code. Can I hide 'frmStart'?

[Welshgasman]

Lint?
Supply an accde file. Then no code will be available.

[HansvanhEERTUM]

Lint?
Supply an accde file. Then no code will be available.

Problem solved. Thank you!