sanders1969
Gebruiker
- Lid geworden
- 29 dec 2018
- Berichten
- 243
Onderstaande code opent een Access applicatie echter is deze niet volledig geopend (zie bijlage).
Weet iemand toevallig hoe ik de applicatie geheel in de scherm kan openen ipv zoals in bijlage want dit levert problemen op.
Zo kan er een beveiliging op staan wanneer je de applicatie voor het eerst open en zie je niet direct bovenin de knop om de beveiliging te deactiveren.
En ja de tabellen zijn ook zichtbaar maar daar ben ik nog mee aan het stoeien...
Weet iemand toevallig hoe ik de applicatie geheel in de scherm kan openen ipv zoals in bijlage want dit levert problemen op.
Zo kan er een beveiliging op staan wanneer je de applicatie voor het eerst open en zie je niet direct bovenin de knop om de beveiliging te deactiveren.
En ja de tabellen zijn ook zichtbaar maar daar ben ik nog mee aan het stoeien...
Code:
Function OpenApplicatie(strAppName As String) As Boolean
Dim db
On Error GoTo OpenApplicatieErr
Set db = New Access.Application
db.OpenCurrentDatabase strAppName
DoCmd.Quit
OpenApplicatieErr:
If Err.Number <> 0 Then
Err.Clear
End If
End Function