Thread: positive and negative number check?

Moved to Access Forum

Originally Posted by Centurion

here is my logic:

Code:

Private Sub submit_Click()
Dim txtNumber As Integer
Dim submit
    
If txtNumber + Abs(txtNumber) = 0 Then
 MsgBox "Negative"
Else
 MsgBox "Positive"
    End If
End Sub

This won't work, what if the number was 0? That's not really a negative.

Code:

Private Sub submit_Click()
Dim txtNumber as Integer

txtNumber = int(val(me.mytextbox))

If txtNumber < 0 then
 Msgbox("Negative")
Else
 Msgbox("Positive")
   End If
End Sub

Originally Posted by Centurion

also need to write some code on :

Finding the largest and smallest numbers from a list held in a file. Assume that each number is on a separate line.

Calculating the mean, median and mode of a series of numbers entered by a user from the keyboard.

I would use domain aggregate functions.

Davg
Dcount

median would be dcount of your list plus one divided by 2.

MyMedian = (nz(dcount("[mynumbers]","mytable"),0)+1)/2

I'm afraid that is not the definition of a median. Median is the value of the item for which half the values are greater and half are less. As a simple example, if you have the values: 23, 28, 31, 40, 52, 66, 74, the median is 40, not (7 + 1) / 2, or 4. (And the mean, or average, is their sum divided by the count, in this case about 44.85...)

sorry, didn't explain it correctly, meant to say that you count how many numbers you have; in don's example, he had 7 numbers. you add 1 to the count which makes 8, and divide by 2, which gives you 4 - meaning the forth number in the ascending sequence..... sorry, was rushed when I jotted down that formula.

:-) I figured it was either that, or you were relaxing with your second martini when you wrote it! :-)

lol, well, if I could have martinis at work, then it would be a lot less stressful these days, lol.