Lint met daarop tabbladen verwijderen.

[fwalraven]

Hallo,

Is het mogelijk, middels VBA, om bij het openen van een formulier, het rood/bruine lint waarop de tabbladen, bestand, start, etc zijn geplaatst aan de bovenzijde van het scherm, te laten verdwijnen?

Betreft Access 2016.


Met vriendelijke groet,

Frans

 

[OctaFish]

Ik snap niet wat je wilt en bedoelt. Of waarom je persé een VBA oplossing wilt. Maar begin eens uit te leggen wat je wilt bereiken.

 

[fwalraven]

OctaFish,

Ik heb als voorbeeld 2 schermafdrukken bij gevoegd.

Bij schermopname 1 zie je de rood/bruine balk bovenin.
In mijn geval blijft bij het openen van de database de balk bovenin ook zichtbaar, met als gevolg dat mijn formulier niet geheel zichtbaar is.

Er moet dan gescrold worden om de onderste gegevens te kunnen in vullen en dat wil ik niet.

Bij scherm 2 zie dat het formulier ahw. over de balk valt, dat zou voor mij ook prima zijn.

Mijn database is gemaakt met Access 2003 en heeft het met enkele opvolgende Access goed gedaan, totdat Access 2016 kwam.

De voorbeelden zijn van het sjabloon taakbeheer van Access en ik kan niet bij de programmacode komen hoe een en ander in elkaar zit.

Mvg. Frans

 

[OctaFish]

Ik gebruik inderdaad VBA om Access te 'verbergen'. Die code ziet er zo uit, waarbij de eerste routine op je startformulier moet staan.

Private Sub Form_Open(Cancel As Integer)
    fSetAccessWindow (SW_SHOWMINIMIZED)
End Sub

Function fSetAccessWindow(nCmdShow As Long)
'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed, except as part of an application.
' You are free to use it in any application, provided the copyright notice is left unchanged.
'
' Code Courtesy of Dev Ashish

'Usage Examples
'Maximize window:
' ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
' ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
' ?fSetAccessWindow(SW_HIDE)
'Normal window:
' ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX As Long
Dim loForm As Form
On Error Resume Next

    Set loForm = Screen.ActiveForm
    If Err <> 0 Then 'no Activeform
        If nCmdShow = SW_HIDE Then
            MsgBox "Cannot hide Access unless a form is on screen"
        Else
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
            Err.Clear
        End If
    Else
        If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
            MsgBox "Cannot minimize Access with " _
            & (loForm.Caption + " ") _
            & "form on screen"
        ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
            MsgBox "Cannot hide Access with " & (loForm.Caption + " ") & "form on screen"
        Else
            loX = apiShowWindow(hWndAccessApp, nCmdShow)
        End If
    End If
    fSetAccessWindow = (loX <> 0)

End Function

Misschien heb je er wat aan.

 

[fwalraven]

OctaFish,

Alvast bedankt.

Ik ga er dit week-end mee aan de gang.

Mvg. Frans

 

[Daneron]

Waarom niet bij openen form
Private Sub Form_Open(Cancel As Integer)
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

 

[OctaFish]

Daarmee verberg je alleen de werkbalk, niet de omgeving. Maar wellicht is dat al genoeg, wie zal het zeggen .

 

[fwalraven]

Daneron,

Dat is precies wat ik bedoelde.
De werkbalk verdwijnt in z,n geheel.
Voldoende om het hele formulier te tonen, zonder te hoeven scrollen.


Bedankt.


Mvg. Frans

 

[fwalraven]

OctaFish,


Ik ga voor de oplossing van Daneron.

Maar ook bedankt voor je reactie.


Mvg. Frans

 

[OctaFish]

Dan mag je de melding nog op <Afgesloten> zetten .