Multipage Textbox leeren
28.07.2013 08:23:14
Peter
ich möchte alle Textboxen auf der gerade ausgewählten Seite
der Multipage1 über eine Schaltfläche leeren. Funktioniert leider nicht.
Lässt sich die beigefügte Routine von NEPUMUK entsprechend
abändern ohne das ich alle Textboxen umbenennen muss?
Wer kann helfen.
-mein Fehlversuch-
Private Sub cmdAendern_Click()
Dim Contr As Control
Dim gesName
With Me
For Each Contr In .Controls
If MultiPage1.Value = 0 Then
..
If MultiPage1.Value = 1 Then
gesName = Contr.Name Like "txtName" & MultiPage1.Value & "*"
MsgBox gesName
Contr.Name Like "txtName" & MultiPage1.Value & "*"=
End If
If MultiPage1.Value = 2 Then
..
Next Contr
End With
End Sub
-Von Nepumuk-
Private Sub MultiPage1_Change()
With MultiPage1
If .Value = 1 Then Call Clear_Controls(.Pages(1))
End With
End Sub
Private Sub Clear_Controls(objContainer As Object)
Dim objControl As Control
For Each objControl In objContainer.Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "Label"
objControl.Caption = ""
Case "ComboBox", "ListBox"
objControl.ListIndex = -1
Case "CheckBox", "OptionButton", "ToggleButton"
objControl.Value = False
Case "ScrollBar", "SpinButton"
objControl.Value = objControl.Min
Case "Image"
Set objControl.Picture = Nothing
End Select
Next
End Sub
Peter