I will do the refresh thing now.
Private Sub capmvmntinputbtn_Click()
On Error GoTo Err_capmvmntinputbtn_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "CapitalMovementFormInpt"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Requery...