Tab openen in tabset op formulier

Status
Niet open voor verdere reacties.
J

Jacobusje

Gebruiker
Lid geworden
15 apr 2021
Berichten
89
Goedemorgen,

We hebben hier een database waar gegevens van projecten worden bijgehouden.
In het formulier van projecten staat een tabset met een stuk of 8 tabs.

In diverse andere formulieren kan door dubbelklikken het projectformulier worden geopend.
Dat gebeurt met:

Code: 
Private Sub ID_Project_DblClick(Cancel As Integer)
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Invoer_Projecten"
    
    stLinkCriteria = "[ID_Project]=" & Me![ID_Project]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub

Weet iemand hoe deze code uit te breiden zodat in de tabset gelijk de tab "Te bestellen" word geopend/weergegeven?
Vast bedankt.
 
controleer de OpenArgs in het formulier bij de OnLoad event :

Code: 
Private Sub Form_Load()
    If OpenArgs = "PRB" Then
        TabCtl0.Value = PagePRB.PageIndex
    End If
End Su
b
 
Dit heb ik er van gemaakt bij Form load

Code: 
    If OpenArgs = "PRB" Then
TabbestEI58.Value = PagePRB.PageIndex
End If

Er gebeurt niets bij het laden van het formulier.

En eigenlijk moet dat ook niet altijd gebeuren, alleen vanuit overzicht bestellingen gelijk naar het tabblad bestellingen.
Open ik een project vanuit het hoofdformulier moet hij niet naar het tabblad bestellingen.
 
Doe er eens een voorbeeldje bij. Ik ga niet uit eerst zelf een situatie nabouwen die de mijne niet is. Die tijd wil ik wél in een oplossing steken :).
 
Bijgaand.
Alleen project 1 bestaat

Met de eerste knop kom je in het projectformulier door een 1 in te voeren als hij dat vraagt.

Met de tweede knop (hier hoef je niets in te voeren) krijg je een formulier.
Bij het dubbelklikken op de regel kom je ook in het projectformulier
Maar dan wil ik juist gelijk naar het tabblad bestellingen.
 

Bijlagen

  • Tabset.zip
    159,1 KB · Weergaven: 15
Voeg in formulier OverzichtZoekProjectOpAchternaam "TEST" toe

Code: 
Private Sub VolledigeNaam_DblClick(Cancel As Integer)

    
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Invoer_Projecten"
    
    stLinkCriteria = "[ID_Project]=" & Me![ID_Project]
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , ,[B] "TEST"[/B]


End Sub


en in het projectenformulier:

Code: 
Private Sub Form_Load()
If Me.OpenArgs = "TEST" Then
    Me.TabbestEl58.Value = 2
End If

   
End Sub
 
Dat is de oplossing die ik bedoel.

Nu kan ik van verschillende plaatsen gelijk in het juiste tabblad terecht komen

Dit is het geworden in het formulier.

Code: 
Private Sub Form_Load()

If Me.OpenArgs = "Bestellen" Then
    Me.TabbestEl58.Value = 6
    
ElseIf Me.OpenArgs = "Planning" Then
    Me.TabbestEl58.Value = 5
End If

End Sub

Bedankt allemaal.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan