VBA: UF/MultiPage
22.12.2019 23:27:51
Charly
habe da ein Problem wo Ich nicht weiter komme.
Zu meinem Vorhaben,
1.)
Über eine Tabelle rufe Ich per Button eine UF(1) auf u. wähle einen OptionButton aus.
Danach wird UF(1) geschlossen u. eine neue UF(2) würd geladen u. gestartet, im Anschluss wird eine Seite der MultiPage1 (Page1/Index 0) aktiviert alle weiteren Pages werden deaktiviert.
2.)
Ich Wähle über zwei ComboBoxen zwei Wert aus, anhand dieser Werte werden Daten gesucht diese Prozedur übergebe ich an einen CommandButton (OK).
3.)
Hinter dem CommandButton steht der unten stehende Code.
Per iCklick MsgBox wird per YesNoCancel gefragt ob die Daten weiter Verarbeitet werden sollen.
Per Klick auf Yes, wird eine weitere UF(3) geöffnet, UF(2) bleibt weiterhin geöffnet.
Sobald die UF(3) gestartet ist soll festgelegt werden welche Page der Multipage9 aktive sein soll, alle anderen sind /sollen deaktiviert werden.
Hier liegt das Problem, die Aktivierung der Page wie in UF(1), klappt mit meine UF(3) nicht.
CommandBotton:
Private Sub Cbu_OkSave_Click()
If Me.CB_ID_RO = True Then
iClick = MsgBox( _
prompt:="Einen moment Bitte..." & vbCrLf & _
"Sind Sie Sicher das Sie die Bewohnerdaten Auslagern möchten?" & vbCrLf & _
"Bewohnerdaten Auslagern, Bestätigen Sie mit (Ja)" & vbCrLf & _
"Bewohnerdaten nicht Auslagern, Bestätigen Sie mit (Nein)" & vbCrLf & _
"Zur Mappenansicht zurück (Abbrechen)", _
Buttons:=vbExclamation + vbYesNoCancel)
If iClick = vbYes Then
If UF1_Austragen3.MultiPage9.Value = 0 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_RO2
ElseIf UF1_Austragen3.MultiPage9.Value = 1 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_RS2
ElseIf UF1_Austragen3.MultiPage9.Value = 2 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_PRS2
ElseIf UF1_Austragen3.MultiPage9.Value = 3 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_Ki2
ElseIf UF1_Austragen3.MultiPage9.Value = 4 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_WLM2
ElseIf UF1_Austragen3.MultiPage9.Value = 5 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_ADM2
ElseIf UF1_Austragen3.MultiPage9.Value = 6 Then
MsgBox "Bitte Ergänzen Sie Folgende Angaben!", vbInformation
UF1_Austragen3.Show
Call M_UF1.PageDisabled_Son2
End If
ElseIf iCklick = vbNo Then
UF1_Austragen.Show
ElseIf iClick = vbCancel Then
UF1_Austragen.Show
Unload Me
MsgBox "Zurück zur Mappenansicht", vbInformation
End If
Else: Me.CB_ID_RO = ""
MsgBox "Bitte wählen Sie im oberen Abschnitteinen" & vbCrLf & _
"den Bereich u. die dazugehörige ID aus!", vbInformation
End If
End Sub
MultiPage der UF(1):
Sub PageDisabled_RO()
'UF1_Austragen.MultiPage1(0).Enabled = False ' MultiPage "RO"
UF1_Austragen.MultiPage1(1).Enabled = False
UF1_Austragen.MultiPage1(2).Enabled = False
UF1_Austragen.MultiPage1(3).Enabled = False
UF1_Austragen.MultiPage1(4).Enabled = False
UF1_Austragen.MultiPage1(5).Enabled = False
UF1_Austragen.MultiPage1(6).Enabled = False
End Sub
Sub PageDisabled_RS()
UF1_Austragen.MultiPage1(0).Enabled = False
'UF1_Austragen.MultiPage1(1).Enabled = False ' MultiPage "RS"
UF1_Austragen.MultiPage1(2).Enabled = False
UF1_Austragen.MultiPage1(3).Enabled = False
UF1_Austragen.MultiPage1(4).Enabled = False
UF1_Austragen.MultiPage1(5).Enabled = False
UF1_Austragen.MultiPage1(6).Enabled = False
End Sub
MultiPage der UF(3):
Sub PageDisabled_RO2()
'UF1_Austragen3.MultiPage9(0).Enabled = False ' MultiPage "RO"
UF1_Austragen3.MultiPage9(1).Enabled = False
UF1_Austragen3.MultiPage9(2).Enabled = False
UF1_Austragen3.MultiPage9(3).Enabled = False
UF1_Austragen3.MultiPage9(4).Enabled = False
UF1_Austragen3.MultiPage9(5).Enabled = False
UF1_Austragen3.MultiPage9(6).Enabled = False
End Sub
Sub PageDisabled_RS2()
UF1_Austragen3.MultiPage9(0).Enabled = False
'UF1_Austragen3.MultiPage9(1).Enabled = False ' MultiPage "RS"
UF1_Austragen3.MultiPage9(2).Enabled = False
UF1_Austragen3.MultiPage9(3).Enabled = False
UF1_Austragen3.MultiPage9(4).Enabled = False
UF1_Austragen3.MultiPage9(5).Enabled = False
UF1_Austragen3.MultiPage9(6).Enabled = False
End Sub
Kann mir jemand bei meinem Problem helfen, Danke im Voraus.Gruß Charly