Multipage Seitenwechsel funkt nicht
26.11.2013 06:29:55
ludmila
ich bin neu im Forum und habe null Ahnung von VBA.
Dennoch will ich damit anfangen.
In einer Userform habe ich eine MultiPageSeite (MUPKD)
Nun will ich verhindern das die Seite gewechselt wird wenn TXTKD2 leer ist.
Leider funktioniert das nicht.
1.) Die Seite 1 oder 2 wird angezeigt, dann kommt die MSGBOX und danach
wird zwar der Reiter Page 0 angezeigt jedoch nicht der Inhalt.
Wol liegt der Fehler?
Danke!
Grüsse Ludmila
Private Sub MUPKD_Change()
If Me.MUPKD.Value = 3 Or Me.MUPKD.Value = 0 Then GoTo Aus
If Me.TXTKD2.Value = "" Then 'Txtkd2 befindet sich in Multpage 0
Me.MUPKD.Value = 0
MsgBox "Bitte erst einen Kunden anlegen"
GoTo Aus
ElseIf Me.TXTKD2.Value "" Then
GoTo weiter01
End If
weiter01:
If Me.MUPKD.Value = 1 Then
Me.CMDKD5.Enabled = False
Me.CMDKD6.Enabled = False
GoTo Aus
End If
If Me.MUPKD.Value = 2 Then
Me.TXTKD28.Value = Me.TXTKD2.Value & " " & Me.TXTKD3.Value
Me.CMDKD7.Enabled = False
Me.CMDKD8.Enabled = False
Application.Run "Bank_einlesen"
GoTo Aus
End If
Aus:
End Sub
Anzeige