EXCEL-VBA UserForm MultiPage fülek közötti váltás

Question

Sziasztok! Érdekes problémával szembesültem.

Szeretnék a Form-ban a MultiPage fülei között váltani úgy, hogy ha egy másik fülre kattintva egy feltétel nem teljesül, akkor ugorjon nekem a legelső fülre. Nos oda is ugrik, de a tartalom az aktív első fül ellenére a régi marad előttem.

UserForm1.MultiPage1.Value = 0

Ezzel a legelső fülre ugrik ugyan, de mégse azt a tartalmat látom, ami benne van, hanem azt, amire kattintottam. Talán érthetőbb így: A 3. fülre kattintok, a feltétel nem teljesül, emiatt az 1. fülre ugrik, viszont mégis a 3. fül tartalmát látom, pedig az 1. fül aktív. Ha egy CommandButton-ra rakom ezt sort:

UserForm2.MultiPage1.Value = 0

akkor is vált az első fülre, és a tartalom is az ami ténylegesen benne is van. De ha egy másik fülre kattintva akarom ugyanezt, akkor a tartalom nem változik pedig az első fület mutatja aktívnak.

Amiatt lenne erre szükségem, hogy ha valaki nincs bejelentkezve a Login fül alatt, akkor ne tudjon az egyéb fülek között navigálni, hanem mindig ugorjon vissza a Login fülre. Mi volna a megoldás?

Köszönöm!

Mutasd a teljes hozzászólást!

Accepted Answer

Szia!
Próbáld meg a következőt:
Egy modulba vedd fel az alábbi makrót:

Sub mutatos()
If UserForm1.MultiPage1.Value = 2 Then
        Unload UserForm1
        Load UserForm1
        UserForm1.MultiPage1.Value = 0
        UserForm1.Show
End If

End Sub
A Multipage1_Change eseményben pedig ezt a makrót hívod meg.

Private Sub MultiPage1_Change()
mutatos
End Sub

Üdv.

Mutasd a teljes hozzászólást!

Accepted Answer

Szia!
Próbáld meg a következőt:
Egy modulba vedd fel az alábbi makrót:

Sub mutatos()
If UserForm1.MultiPage1.Value = 2 Then
        Unload UserForm1
        Load UserForm1
        UserForm1.MultiPage1.Value = 0
        UserForm1.Show
End If

End Sub
A Multipage1_Change eseményben pedig ezt a makrót hívod meg.

Private Sub MultiPage1_Change()
mutatos
End Sub

Üdv.

Mutasd a teljes hozzászólást!