Code funktioniert nicht
04.01.2007 08:38:16
Servoazubi
das Textfeld heisst txtFracht
Private Sub txtFracht_AfterUpdate()
If UFFormat.txtFRACHT.Text = "" Then
MsgBox "Bitte Parameter bei Fracht angeben."
ElseIf UFFormat.txtFRACHT.Text = 0 Then
txtFRACHT.Locked = False
ElseIf UFFormat.txtFRACHT.Text = 1 Then
txtFRACHT.Locked = False
Else
MsgBox "Ungültiger Parameter bei Fracht. Geben sie eine 1 oder eine 0 an."
End If
End Sub
DIe txtFracht.locked elemente habe ich nur drin damit der etwas macht wenn da ne 0 ode rne 1 drin ist ..... sind platzhalten weil ich nicht wusste was ich machen kann damit wenn die bedingung 1 oder 0 erfüllt ist der einfach weitermacht, denn dann soll ja nichts passieren.
Ich hoffe man versteht was ich will ..... wahrscheinlich kenne ich einfach nur den richtigen befehl nicht ..... danke für eure Hilfe