super_si

Dim ans As Integer

Private Sub cmdcalc_Click()
ans = Val(txtage.Text)
Select Case ans
Case 0 - 16
lblcost1.Caption = "2"
Case 17 - 54
lblcost1.Caption = "3"
Case 55 - 80
lblcost1.Caption = "4"
Case 81 - 200
lblcost1.Caption = "5"
Case Else
lblcost1.Caption = "error"
lbltype2.Caption = "error"
MsgBox "Please correct the age"

End Select
lbltrace.Caption = Str$(ans)
End Sub

Private Sub cmdExit_Click()
End
End Sub

ive got this.

it doesnt seem to want to know the case statement. I think ive done it right. its just alittle college task. Ive used MSDN libabrys but hasnt shed any light cheers

Si

Belf

The compiler is evaluating your different case conditions when it compiles. So for Case 0 - 16 it is calculating 0-16 = -16 and what it is actually testing for is Case -16. Enter a age of -16 in when you run the program and you'll see the code in the first case statement get run. Like wise it is doing similar for all the other Case statments. Any proper age you enter will just fall through to Case else. You could use something like 'Case 1,2,3,4,5,6' etc. What your trying to do isn't really suited to a Select Case statement, use if, if else, and else instead.

super_si

Cheers mate but it specifcally says use a select case statement.

Personally id use a list or combo rather then having to input an age!!

says in notes i can use
case
case 1-2
case 1,2,3,4
case "fred"

and thats out the book ive trace coded so know the right value is in age. So im stumpted!

Si

nkh

Don't have a copy of VB laying around to test this but have you tried the IS keyword?

Select Case Day
Case is > 15
txt.Txt = "Bills are past Due"
Case is > 10
txt.Txt = "Pay up"
End Select

Any help?

super_si

sort of!

the overlaps are

0-16
17-54
55-81
82+

its ****ty little if x = b then Junior member rubbish
Private Sub cmdcalc_Click()
ans = Val(txtage.Text)
Select Case ans

Case Is < 16
lblcost1.Caption = "<16"

Case Is > 16 < 54
lblcost1.Caption = ">16 <54"

Case Is > 55 < 80
lblcost1.Caption = ">55 <80"

Case Is > 81
lblcost1.Caption = ">80"
End Select
lbltrace.Caption = Str$(ans)
End Sub
New code works for the 1st two. Fails on the 3rd and 4th case!

Si

[Edited by super_si - 9/26/2002 8:28:53 PM]

nkh

From VBA help pages for Access



So you need to rather than -

edited for picture URL

[Edited by nkh - 9/26/2002 8:31:27 PM]

super_si

pint to that guy

What did you search for?

I checked MSDN online and only came up with an example of the string based select cheers mate

Si

nkh

>>pint to that guy

I am not a guy as I have mentioned before...

>>What did you search for?

At the top of my post I said I used the standard microsoft help in MS Access VBA...

Can you read help pages? Do you remember anything beyond your own nose?

super_si

Sorry for not minding reading.

Sorry for not spotting the page within the other 100 pages listed.

thanks anyway....

[Edited by super_si - 9/26/2002 8:40:11 PM]

nkh

That's OK, glad to have been of help

super_si

Ill be back soon hehehe programming some graphics interface soon
and on Dimensional arrays, reading on files too........

super_si

back hehehe.

ive got to do times tables 1 to user specifys!
For i = 1 To 10
lblanswer.Caption = "1"
Next i

prints 1 and thats it!

Anything to do with print Multiple lines to a label?

Thanks again.

Si

nkh

This works for me in access

Private Sub Command1_Click()
Dim i As Integer

Label0.Caption = ""
For i = 1 To 10
Label0.Caption = Label0.Caption & Chr(13) & Chr(10) & i
Next i
End Sub

Chr(13) is a carriage return character
Chr(10) is a linefeed character

In combination they create a newline.

Does that help?

super_si

i was using + instead the & sign he he he. I was close!

Si

chiark

Honestly si, this isn't a dig, but your first point of call really should be the help system otherwise you're going to find yourself shafted sometime when you can't get on here, or people just give up

The big secret of being a PC whizz is to know where to get the answers you need. It'll make you appear God-like.

Cheers,

Nick.

super_si

No MSDN cd's Uni never supplied them. i used the online .vb net stuff but didnt shed much light

Si

dsmith

So very very true.

IWatkins

... when interviewing, this is the thing (almost above all others) that I look for.

chiark

The full MSDN is available on-line. Given that this is overwhelming, try this.

Crispin

GROUPS.GOOGLE.COM


WWW.VBFORUMS.COM


WWW.VBWEB.CO.UK

Just a couple Si - seriously m8 you will find your answers quicker by searching sites like these than you will by asking here. (no offence ppl)

BTW lblname.Caption = lblname.caption & "TEXTHERE" & VbCrLf & "TEXT2" & vbcrlf & "TEXT3"

super_si

cheers all