negative currency

I have a field with currency format.
I would like all numbers entered in this field to have a negative value.
any tips
thanks!

If you mean that all numbers entered should be less than zero, then set the
Validation Rule for the field to this:
0

--

Ken Snell
MS ACCESS MVP

wrote in message
nk.net...
I have a field with currency format.
I would like all numbers entered in this field to have a negative value.
any tips
thanks!

On Sat, 18 Dec 2004 19:41:32 GMT, wrote:

I have a field with currency format.
I would like all numbers entered in this field to have a negative value.
any tips
thanks!


If you want the user to be able to type 312 and have the value stored
as -312, put code like this in the Form textbox's AfterUpdate event:

Private Sub txtMoney_AfterUpdate()
If Me!txtMoney 0 Then
Me!txtMoney = - Me!txtMoney
End If
End Sub

Note that you *must*, no option, use a Form to do this; table
datasheets have no usable events.

John W. Vinson[MVP]
Join the online Access Chats
Tuesday 11am EDT - Thursday 3:30pm EDT
http://community.compuserve.com/msdevapps

Here's a variation on John's idea.

It allows the user to type a positive sign in front of the number should
they need to override the negative interpretation.

Function MakeNegative(txt As TextBox)
If Not IsNull(txt.Value) Then
Select Case Asc(txt.Text)
Case 43, 45 'Plus or minus
'do nothing
Case Else
txt.Value = -txt.Value
End If
End If
End Function


--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"John Vinson" wrote in message
...
On Sat, 18 Dec 2004 19:41:32 GMT, wrote:

I have a field with currency format.
I would like all numbers entered in this field to have a negative value.
any tips
thanks!


If you want the user to be able to type 312 and have the value stored
as -312, put code like this in the Form textbox's AfterUpdate event:

Private Sub txtMoney_AfterUpdate()
If Me!txtMoney 0 Then
Me!txtMoney = - Me!txtMoney
End If
End Sub

Note that you *must*, no option, use a Form to do this; table
datasheets have no usable events.

John W. Vinson[MVP]
Join the online Access Chats
Tuesday 11am EDT - Thursday 3:30pm EDT
http://community.compuserve.com/msdevapps

On Sun, 19 Dec 2004 18:47:21 +0800, "Allen Browne"
wrote:

Here's a variation on John's idea.

It allows the user to type a positive sign in front of the number should
they need to override the negative interpretation.

Function MakeNegative(txt As TextBox)
If Not IsNull(txt.Value) Then
Select Case Asc(txt.Text)
Case 43, 45 'Plus or minus
'do nothing
Case Else
txt.Value = -txt.Value
End If
End If
End Function

Point!

John W. Vinson[MVP]