AW: Wo ist der Code ???? OT
07.12.2003 16:23:46
Jens
Private Sub UserForm_Click()
Private Sub Command1_Click()
Dim Groesse As Integer
Groesse = Val(Text2.Text)
Gewicht = Val(text3.Text)
If (Groesse <= 100) Or (Groesse > 230) Then
MsgBox "Geben Sie eine gültige Größe ein !", 0, "Achtung"
Text2.Text = ""
Text2.SetFocus
Exit Sub
End If
If (Option1.Value = True) Then
Idealgewicht = (Groesse - 100) * 0.85
ElseIf (Option2.Value = True) Then
Idealgewicht = (Groesse - 100) * 0.9
Else
MsgBox "Wählen Sie ein Geschlecht !", 0, "Achtung"
Exit Sub
End If
Text4.Text = Idealgewicht
Differenz = Gewicht - Idealgewicht
If Differenz > 0 Then Text5.Text = "Übergewicht !"
If Differenz = 0 Then Text5.Text = "Idealgewicht !"
If Differenz < 0 Then Text5.Text = "Untergewicht"
Text6.Text = Format$(Differenz, "###.00 kg")
Select Case Differenz
Case Is < -20
Text7.Text = "Suchen Sie sofort einen Arzt auf !!!"
Case -20 To -15
Text7.Text = "Magersucht !"
Case -15 To -10
Text7.Text = "Sie sollten etwas essen !"
Case -10 To -3
Text7.Text = "Sie können beruhigt mehr essen !"
Case -3 To 2
Text7.Text = "Leben Sie so weiter !"
Case 2 To 5
Text7.Text = "Etwas mehr Sport könnte nicht schaden !"
Case 5 To 10
Text7.Text = "Empfohlene Kur: weniger essen !"
Case 10 To 20
Text7.Text = "Schwieriger Fall: Absolute Nulldiät !"
Case Is > 20
Text7.Text = "So gehts nicht weiter, Sie leben nicht mehr lang !"
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Option1_Click()
Command1.SetFocus
End Sub
Private Sub Option2_Click()
Command1.SetFocus
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub
-------- hier liegt der fehler-------------
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Option1.SetFocus
End Sub
End Sub