Pivottable openen in switchboardmanager

[User007]

Hallo beste leden,

Ik heb een form als pivottable, als ik deze gewoon open maak dan zie ik mijn pivottable verschijnen. Maar in mijn switchboardmanager wilt het form niet openen als pivottable, ik moet deze handmatig van FORM VIEW naar PIVOTTABLE view zetten. Kan het niet gewoon direct?

Alvast bedankt beste mensen!

Groeten! :thumb:

 

[Greenery80]

Pivottable openen met VB

Hallo user007,

het is volgens mij mogelijk om een formulier te openen al PIVOTTABLE vanaf versie: Access 2002.

Je moet de volgende code invoegen in Visual Basic:

DoCmd.OpenForm "frmPivotTable", acFormPivotTable

En dan moet je frmPivotTable veranderen in de naam van het werkelijke formulier. acFormPivotTable is namelijk de weergave van het formulier, in dit geval dus Pivottable.

Jouw code zal waarschijnlijk als volgt zijn:
(OpenPivottable is de naam van de knop waarmee je het formulier opent, als je knop anders heet hernoem dit dan!)

Private Sub OpenPivottable_Click()
On Error GoTo Err_OpenPivottable_Click

    Dim stDocName As String
    stDocName = "frmPivotTable"
    
    DoCmd.Close
    DoCmd.OpenForm stDocName, acFormPivotTable

Exit_OpenPivottable_Click:
    Exit Sub

Err_OpenPivottable_Click:
    MsgBox Err.Description
    Resume Exit_OpenPivottable_Click
    
End Sub

Ik hoop dat je hier wat aan hebt?!?

 

[User007]

Hallo Greenery80,

Bedankt voor je antwoord! Ik ben niet zo heel bekend met VB , net geprobeerd om je codes ergens toe te voegen in VB maar zonder succes. Zou je mij aub kunnen zeggen waar precies ik die codes moet plaatsen?

Alvast bedankt!

User007

 

[Greenery80]

VB invoegen

Allereerst een knop (maken en/of) van naam veranderen als volgt:
Rechtermuisklik op de knop en eigenschappen selecteren.
4e tabblad selecteren 'Overig'
1e regel: 'Naam' moet hier dan 'OpenPivottable' zijn, staat ook in de code!

Dan het 3e tabblad selecteren 'Gebeurtenis'
Dan de 1e regel 'Bij klikken' moet je op de knop met ... (3 stipjes) klikken.
In pop-up: 3e optie kiezen "programmacode"

Hiermee zeg je dus: als je op de knop drukt, dan moet het pivottable formulier geopend worden! Ik ben er overigens vanuit gegaan dat je het formulier wilt openen met een knop?!?

Dan in Visual Basic de code verwijderen:

Private Sub OpenPivottable_Click()

End Sub

En dan de eerdere gegeven code plakken.

Let op:
Hernoem de code frmPivotTable in VB!
Bij stDocName = "frmPivotTable"
Heet het formulier dat je wilt openen in pivottable bijvoorbeeld FormArtikel, dan wordt de 5e regel van de code als volgt:

stDocName = "FormArtikel"

Ik hoop dat het lukt met deze handleiding!

 

[WimenBeer]

Als je gebruik wilt maken van het schakelbord (NL voor switchboardmanager) dan kan je het ook regelen zonder een aparte knop op te nemen.

Kies (maakt niet uit bij welk formulier je dat doen) voor de optie 'Visual Basic'.
Bij de opties toevoegen (invoegen) kies je voor 'Module'.
Hier in plaats je de code van Greenery80. (niet getest).
Hier vervang je Sub door Function (ook bij het End statement).

Ga naar je schakelbordmanager en voeg een nieuwe onderdeel toe.
Kies hier voor de opdracht 'Programmacode uitvoeren'.
Bij functie voer je dan 'OpenPivottable_Click' in, want dat is de naam van de functie.

Nu heb je dus een nieuwe keuzemogelijkheid gemaakt die een functie aanroept in VBA.

Moet volgens mij werken.

Succes.
Wim