Reference to current field on a form

[giftron]

MS Access 2000-
I have a table with 200 fields named F001 through F200
and a form to collect data for those fields. I need to
execute an event procedure On Exit to do a conversion ie.

Private Sub F001_Exit(Cancel As Integer)
    If Me![F001].Value = "1" Then
        Me![F001].Value = "A"
    ElseIf Me![F001].Value = "2" Then
        Me![F001].Value = "D"
    ElseIf Me![F001].Value = "3" Then
        Me![F001].Value = "U"
    End If
End Sub
 

Is there a way to reference the current field in this
procedure so that one procedure will work for all
fields (F002, F003, ... F200) so I can copy and paste
the procedure rather than replace the field name in
each of the 200 fields ie. instead of using
Me![F00x].Value is there a reference to the current
field that would work in all the fields?

Any suggestions will be greatly appreciated.

[PEB]

Hi,

Type your conversion as a function! Like:

Function my_conversion(my_field)

if my_field=1 then
my_conversion="A"
end if
and so on...

End function

Have a nice day!

:)

[giftron]

Thank you very much for the response. Yes, I can accomplish the same thing with either a function or with a 'Sub' code procedure but the only way I can do either is with a reference to the field name. In order to pass the field parameter to the function, I must use the field name as in:
Function my_conversion(FieldA)
To do this for FieldB, I must pass that field name as the parameter ie.
Function my_conversion(FieldB) and so on
This is fine for a few fields but for hundreds of fields, it would be much easier if I could just reference the current field, whatever that field's name may be.

For example, a reference to the current form is:
Me![ProdID] - where Me references whatever form you are currently in
which can be used as a 'shortcut' in place of [Forms]![Products]![ProdID]
and that will work to reference the field ProdID in any current form.

Is there any such 'shortcut' or symbolic reference that means "current field" so that a function or event 'Sub' procedure can be coded referring to whatever field you are currently working with.

Or am I just missing the point entirely. My function
Function CvtNum(F001)
works to return the correct conversion to the field named F001
but to use that same function with the field named F002, I have to
change the parameter to
Function CvtNum(F002)

in the On Exit event line I am using
=CvtNum(F001)
for the field named F001 and it works but if I copy and paste that same line to the On Exit event line for the field named F002 it does not work. If I try to pass a parameter other than the actual field name, it returns an error that the parameter is an invalid field name.

In looking for a reference or term meaning "current field" am I just wishing for something that doesn't exist? Again, any help or ideas will be greatly appreciated. Thanks.

[PEB]

Hi,

Try

Application.Screen.ActiveDatasheet.Form.Recordset. ActiveControl

This one works for the queries...

For the forms You have to try it! If it works pls tell me!

Thanks

:)