P
PsyberFox
Hi there,
I run the following code:
Private Sub FShare__Coke_2LtPET_Exit(Cancel As Integer)
[FShare: Total].Value = [FShare: Total].OldValue - [FShare: Coke
2LtPET].OldValue
[FShare: Total].Value = [FShare: Total].Value + [FShare: Coke
2LtPET].Value
Form.Recalc
If [FShare: Coke 2LtPET].Value = 0 And [Price: Coke 2LtPET] <> 0 Then
result = MsgBox("Price info entered - needs F Share info", vbOKOnly)
Cancel = True
End If
End Sub
However, for some reason the result blanks out any information in this field
after this function is run. When i manually put in a value after I've entered
data, the function works 100%, but not for new records. I have set the
default value for this field to 0, and even tried to do a calc on form load,
but still no luck.
Can someone please help!
Thank you!
I run the following code:
Private Sub FShare__Coke_2LtPET_Exit(Cancel As Integer)
[FShare: Total].Value = [FShare: Total].OldValue - [FShare: Coke
2LtPET].OldValue
[FShare: Total].Value = [FShare: Total].Value + [FShare: Coke
2LtPET].Value
Form.Recalc
If [FShare: Coke 2LtPET].Value = 0 And [Price: Coke 2LtPET] <> 0 Then
result = MsgBox("Price info entered - needs F Share info", vbOKOnly)
Cancel = True
End If
End Sub
However, for some reason the result blanks out any information in this field
after this function is run. When i manually put in a value after I've entered
data, the function works 100%, but not for new records. I have set the
default value for this field to 0, and even tried to do a calc on form load,
but still no luck.
Can someone please help!
Thank you!