Error 438 on ActiveControl.Value

[oxicottin]

Hello, I have a form that has a control and its value is a decimal. I want to move that value to the control I opened from and I keep getting an error:

Run-time error '438':
Object doesn't support this property or method

Debug takes me to my only vba im using on the button on the form.

Private Sub Command45_Click()
Screen.ActiveControl.Value = txtDecimal
End Sub

Any ideas? Thanks....

Thanks,
SoggyCashew.....

 

[oxicottin]

Ok this worked, Thanks again!

=Int([txtDiff]/60*100)/100
OR
=Fix([txtDiff]/60*100)/100

Thanks,
SoggyCashew.....