AW: 10 Stellen in TextBox sonst leer
04.07.2006 14:11:52
Josef
Hallo Mustafa!
Im Anhang findest Du mein Makro.
Folgender Vorgang soll geschehen:
Ist der Inhalt der TextBox32 mit dem Inhalt der Textbox31 ident dann soll
noch geprüft werden ob in der TextBox2 genau 10 Stellen eingegeben wurden.Ist dies der Fall dann ist der Eintrag OK und die TextBox3 wird angesteuert.
Ist der Inhalt der TextBox32 mit dem Inhalt der Textbox31 ident jedoch sind keine 10 Stellen in der TextBox2 eingegeben, dann soll der Hinweis VSNR falsch auscheinen und die Textbox2 geleert werden.
Ist der Inhalt der TextBox32 mit dem Inhalt der Textbox31 nicht ident dann soll die TextBox2 geleert werden.
Josef
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo 90
Dim arrZahlen(10) As Long, lngI As Long
For lngI = 0 To 9
arrZahlen(lngI) = CLng(Mid(TextBox2, lngI + 1, 1))
Next lngI
TextBox21.Text = arrZahlen(0) * 3
TextBox22.Text = arrZahlen(1) * 7
TextBox23.Text = arrZahlen(2) * 9
TextBox32.Text = arrZahlen(3)
TextBox24.Text = arrZahlen(4) * 5
TextBox25.Text = arrZahlen(5) * 8
TextBox26.Text = arrZahlen(6) * 4
TextBox27.Text = arrZahlen(7) * 2
TextBox28.Text = arrZahlen(8) * 1
TextBox29.Text = arrZahlen(9) * 6
TextBox30 = CDbl(TextBox21) + CDbl(TextBox22) + CDbl(TextBox23) + CDbl(TextBox24) + _
CDbl(TextBox25) + CDbl(TextBox26) + CDbl(TextBox27) + CDbl(TextBox28) + CDbl(TextBox29)
TextBox31.Text = TextBox30 Mod 11
If TextBox32.Text = TextBox31 Then
TextBox2.Text = ""
Cancel = True
Label48.Caption = "VSNR falsch"
With TextBox2
.SetFocus: .SelStart = 0: .SelLength = Len(.Text)
End With
Else
If TextBox32.Text = TextBox31 And Len(TextBox1) <> 10 Then
TextBox2.Text = TextBox2
Label48.Caption = "VSNR OK"
With TextBox3
.SetFocus: .SelStart = 0: .SelLength = Len(.Text)
End With
If Not TextBox32.Text = TextBox31 Then
TextBox2.Text = ""
Cancel = True
Label48.Caption = "VSNR falsch"
With TextBox2
.SetFocus: .SelStart = 0: .SelLength = Len(.Text)
End With
End If
End If
End If
90:
If TextBox2.Text = "" Then
Label48.Caption = ""
Cancel = True
End If
End Sub