Public Function CurrentValue() As Long CurrentValue = lng End Function Private Sub Form_Current() lng = Me! Me.Recalc End Sub
http://www.sql.ru/forum/1303255/uslovnoe-formatirovanie-tekushhey-zapisi