PrivateSub cmdopenform_Click() With Me.Ramka_moja SelectCase .Value Case 1
DoCmd.OpenForm "frmkina" Case 2
DoCmd.OpenForm "frmopery" Case 3 ' ... CaseElse '... EndSelect EndWith EndSub
napisał: hubciopl postów: 11
umieszczony: 5 marca 2008 12:51
Witam
Prosze o pomoc bo niestety zapomniałem prostego zadania. Mam w Accessie (formularzu) kilka opcji wyboru, wybierając jeden i klikając na przycisk ma mi się otworzyc konkretny formularz. Dzięki z góry za pomoc