formulier openen met knop

[Noordhoekie]

Ik heb drie formulieren ontwikkeld waarin de status van een project kan worden bijgehouden.

Afhankelijk van de categorie van een project moet er een bepaald formulier worden gebruikt. (bijvoorbeeld bij projectcategorie A hoort formulier 1)

Nu wil ik met een knop "status" het formulier openen dat van toepassing is. Dus bijvoorbeeld: Als projectcategorie = A, dan open formulier 1. Heeft iemand een tip hoe ik dit het beste kan doen.

Alvast bedankt voor het meedenken.

 

[OctaFish]

Je kunt een keuzelijst op je hoofdformulier zetten met de opties die gekozen kunnen worden. Deze keuzelijst geef je een gebeurtenis <Na Bijwerken>, waarbij je de Caption van de knop instelt.
Bijvoorbeeld:

Private Sub cboStatus_AfterUpdate()

    iVar = Me.cboStatus.Value
    Select Case iVar
        Case 1
            Me.cmdStatus.Caption = "Formulier 1"
        Case 2
            Me.cmdStatus.Caption = "Formulier 2"
        Case 3
            Me.cmdStatus.Caption = "Formulier 3"
        Case Else
            Me.cmdStatus.Caption = "Testje"
    End Select

End Sub

Vervolgens zet je op de knop een actie die de Caption van de knop uitleest, en met een Select Case het goede formulier opent.

Private Sub cmdStatus_Click()

    sVar = Me.cmdStatus.Caption
    Select Case sVar
        Case "Formulier 1"
            DoCmd.OpenForm "Formulier 1"
        Case "Formulier2"
            DoCmd.OpenForm "Formulier 2"
        Case Else
            Exit Sub
    End Select
        
End Sub

Michel

 

[Noordhoekie]

Dank je voor je snelle reactie!

Ik ga ermee aan de slag en laat nog even weten of het gelukt is!