ник: час
Интересное дело
создал переменную
Public GLB_PRICE As Currency
|
получаю из поля введённые данные
45
Private Sub IN_PRICE_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If NZVB(Me!IN_PRICE) <> "" Then
Me!IN_PRICE = Format(Me!IN_PRICE, "#,##,0.00")
GLB_PRICE = Me!IN_PRICE
Unload FRM_IN_PRICE
End If
|
смотрю чему равна переменная
хотя Me!IN_PRICE = Format(Me!IN_PRICE, "#,##,0.00") = 45.00
не помогает даже GLB_PRICE = CDec(Me!IN_PRICE)
и CCur(Me!IN_PRICE)
а как жа тада быть с копейками.......