Add error message on calculated value.

canuck38 · July 22nd, 2004, 05:01 PM

Hello,

I was wondering if there is a way to add an error message to calculated text box. What is going to happen is some values will be entered into other boxes and then the box I would like to add the error message to will calculate the average. If the average is below a certain value then an error message should pop up. The catch here is that there will be different average values selected for different orders.

I hope I have explained it well enough. Thank you

Steven · July 22nd, 2004, 05:53 PM

How about you do something like this on the Form_Current event:

Code:

Dim iCompare as Integer
Select Case OrderType
   Case 1   'First order type has a min Avg of 5
     iCompare = 5
   Case 2   'Second order type has a min Avg of 10
     iCompare = 5
   Case Else 
     iCompare = 0
End Select
If Me.txtAverage<iCompare Then 
    Msgbox "Average cannot be less than " & iCompare

I am a loud man with a very large hat. This means I am in charge

canuck38 · July 22nd, 2004, 11:02 PM

Thank you for responding, however, I don't think that this will do. The problem is that the user inputs two variables for calculation by means of a check box and then after selecting these two things goes on to enter in anywhere from 12 to 56 different measurments. So I have figured out how to average the measurements but have not yet found a way to display a message on this average box everytime it does a calculation. I have looked in the help files and it basically says that you can't use an AfterUpdate procedure on a calculated control. I was wondering if maybe there was a way to getting text box "a" to equal text box "b" and then maybe write the code for the error message.