Post Warning upon data entry on form

[GregShah]

I have a form that has an estimated weight we use to quote the job. Once designs are completed, i use a form to enter the actual weight of the project. I would like to put a simple warning flag on the form so if the weight varies by more or less than 10%, it directs the person entering the data to check with estimating.



I set up a check but it was triggered before the actual weight was entered so it was always out of range. Need a way to wait until actual is entered and then check to see if it is close enough to continue.

Thanks,

Greg

[jojowhite]

on design view of your form, add code to the ActualWeight textbox BeforeUpdate event:

Private Sub txtActualWeight_BeforeUpdate(Cancel As Integer)
' put the estimated weight here
' or put it on the table
const EstimatedWeight As Double = 1000
dim TenPct As Double
TenPct = EstimatedWeight * 0.1
Cancel = [txtActualWeight] > (EstimatedWeight + TenPct)
If Cancel
    Msgbox "Weight is more than 10% from " & EstimatedWeight 
    Exit Sub
End If
Cancel = [txtActualWeight] < (EstimatedWeight - TenPct)
If Cancel
    Msgbox "Weight is less than 10% from " & EstimatedWeight 
 End If
End Sub

[GregShah]

Thanks for the info. I use est weight with a space and actual weight for the names of these records. Can I change the code to use my values or will it not work. I remember that spaces are not good.

[pbaldy]

While spaces are not advised, you can use your names as long as you bracket them: [est weight]

[Welshgasman]

I have a form that has an estimated weight we use to quote the job. Once designs are completed, i use a form to enter the actual weight of the project. I would like to put a simple warning flag on the form so if the weight varies by more or less than 10%, it directs the person entering the data to check with estimating.

I set up a check but it was triggered before the actual weight was entered so it was always out of range. Need a way to wait until actual is entered and then check to see if it is close enough to continue.

Thanks,

Greg

Use the AfterUpdate event of the actual weight control to run your code.

[jojowhite]

see this demo. open Table1 form and enter some numbers.
on design view of the form, check out the code on the
Actual Weight BeforeUpdate event.

[GregShah]

see this demo. open Table1 form and enter some numbers.
on design view of the form, check out the code on the
Actual Weight BeforeUpdate event.

I tried but nothing happened.

What I would like to see is a warning if the actual fall outside of 10%.

[Welshgasman]

I tried but nothing happened.

What I would like to see is a warning if the actual fall outside of 10%.

Works for me?

[GregShah]

Got it. Unblocked macros and works fine.

Thanks for all the help.

Greg