Klassenmodul zuweisen
11.09.2003 11:53:48
Matze
ich möchte ein Klassenmodul erstellen, welches in bestimmten Textboxen der Userform nur Zahlen zuläßt. Einen Code dafür habe ich schon gefunden:
(ins Klassenmodul:)
Option Explicit
ClassModule: Tabelle1
Private Sub CommandButton1_Click()
frmNurZahlen.Show
End Sub
StandardModule: basMain
Sub CallForm()
frmNurZahlen.Show
End Sub
ClassModule: frmNurZahlen
Private Sub cmdContinue_Click()
Unload Me
End Sub
Private Sub txtNumber_Change()
Dim sTxt As String
sTxt = txtNumber.Text
If sTxt = "" Then Exit Sub
If Right(sTxt, 1) Like "[0-9]" = False Then
txtNumber.Text = Left(sTxt, Len(sTxt) - 1)
End If
End Sub
Der Debugger meckert immer über ClassModule: Tabelle 1, diese Befehlszeile muss irgendwie in eine Prozedur. Wie bekomme ich das zum laufen?
Noch eine Frage: Wie spreche ich nur bestimmte Textboxen an?
Danke.
Anzeige