Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Интересное дело
создал переменную

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

смотрю чему равна переменная

GLB_PRICE = 45

хотя Me!IN_PRICE = Format(Me!IN_PRICE, "#,##,0.00") = 45.00

не помогает даже GLB_PRICE = CDec(Me!IN_PRICE)
и CCur(Me!IN_PRICE)
а как жа тада быть с копейками.......