Member Avatar for Billy Shears

This is a silly question I'm sure but I'm pretty much stumped. I have a report named Blood Test that models medical test values such as blood pressure and cholesterol I would like to create a module that will place an asterisk next to any cholesterol above 200. Any help would be greatly appreciated I've tried this

Public Sub BpTester()
If BloodPressure > 200 Then
BloodPressure = BloodPressure + "*"
End Sub
Edited by Billy Shears because: n/a
  • 2 Contributors
  • 1 Reply
  • 77 Views
  • 3 Weeks Discussion Span
  • Latest Post Latest Post by maxwanadoo
Member Avatar for maxwanadoo

Billy, you havent declared (or made clear) what TYPE of data is BloodPressure. If it is a number then you cannot add a STRING to it. If it is a string then you can concatenate it with the & (ampersand) instead of the + (plus) sign.
ALSO: if you are using a variable (as opposed to a table field) then you should make this into a function to return the new variable.
ie
Public Function BpTester(strIn) as string
BpTester = strIn
if val(strIn) > 200 then
BpTester = strIn & "*"
endif

Max

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.