coding prob ***resolved***

[azrina]

i have five values to be compared with a value.
the five values must be greater than some value.
if the 5 values are less than that,
the system will count how many of them are less than
the value.
the count value will be displayed in a label.
my prob is the count value will always return 0 value even though
there is a lesser value .
why is that??
i'm new in vb programming, so anyone here could help me
fixing the coding below.
thank u in advance

bb = 0
If Val(Label98.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
    
ElseIf Val(Label99.Caption) < Val(Label110.Caption) Then
   bb = bb + 1
   
ElseIf Val(Label100.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
    
ElseIf Val(Label102.Caption) < Val(Label110.Caption) Then
    
    bb = bb + 1
ElseIf Val(Label101.Caption) < Val(Labe110.Caption) Then
    
    bb = bb + 1
End If
Label33.Caption = bb

[NoteMe]

Don't use Else if....just If If if and so on...

[da_silvy]

NoteMe's correct

If Val(Label101.Caption) < Val(Labe110.Caption) Then bb = bb + 1

[NoteMe]

Originally posted by da_silvy
NoteMe's correct

If Val(Label101.Caption) < Val(Labe110.Caption) Then bb = bb + 1

thanks for pointing that out.....Ain't I always corect...


The problem here is that it wil only check one of them, and not all of them..listen to the english words IF and Else...that meens not both...

[azrina]

ive tried using 5 individual "if" statements.
another prob is if the count value supposed returns 3 value only
are less than the value, but the system will return 4 values.
why?im confused..

bb = 0
If Val(Label98.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
End If
 
If Val(Label99.Caption) < Val(Label110.Caption) Then
   bb = bb + 1
End If
 
If Val(Label100.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
 End If
 
If Val(Label102.Caption) < Val(Label110.Caption) Then
    
    bb = bb + 1
End If
 
If Val(Label101.Caption) < Val(Labe110.Caption) Then
    bb = bb + 1
End If
 
 
Label33.Visible = True
Label33.Caption = bb

[MartinLiss]

The bolded part looks like a typo. (You should use Option Explicit if you aren't already)

bb = 0
If Val(Label98.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
    
ElseIf Val(Label99.Caption) < Val(Label110.Caption) Then
   bb = bb + 1
   
ElseIf Val(Label100.Caption) < Val(Label110.Caption) Then
    bb = bb + 1
    
ElseIf Val(Label102.Caption) < Val(Label110.Caption) Then
    
    bb = bb + 1
ElseIf Val(Label101.Caption) < Val([b]Labe110[/b].Caption) Then
    
    bb = bb + 1
End If
Label33.Caption = bb

[azrina]

i didnt realize that
thank u all for helping
god bless u..

[NoteMe]

Use Option Explicit...it is better for you........then the IDE will tell you when you make mistakes like that...