Hi Guys The runtime error "You Must Save Current Field before you run Requery" error message . ANy help will be much appreciated.
Code:
Private Sub cmdSave_Click()
'Me.txtHidden.SetFocus
Dim rs As Recordset
If ValidateForm = False Then Exit Sub
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_Mas_DocLog WHERE DocCode = '" & Me.txtCode & "'")
rs.Edit
rs!DocCode = Me.txtCode
rs!Owner = Me.cboOwner
rs!VersionID = Me.txtVersion
rs!Date_SignedOff = Me.txtDateSignedOff
rs!Date_Live = Me.txtDateLive
rs!Date_Expired = Me.txtDateExpires
rs!Date_Withdrawn = Null
rs!DocName = Me.txtDocName
rs!AreaID = Me.cboArea
rs!FileTypeID = Me.cboType
rs!Date_Withdrawn = Me.txtDateWithdrawn
rs!Comment = Me.txtComment
rs.Update
rs.Close
Set rs = Nothing
Set rs = CurrentDb.OpenRecordset("tbl_Ref_DocLogHistory")
rs.AddNew
rs!DocCode = Me.txtCode
rs!Owner = Me.cboOwner
rs!VersionID = Me.txtVersion
rs!Date_SignedOff = Me.txtDateSignedOff
rs!Date_Live = Me.txtDateLive
rs!Date_Expired = Me.txtDateExpires
rs!Date_Withdrawn = Null
rs!DocName = Me.txtDocName
rs!AreaID = Me.cboArea
rs!FileTypeID = Me.cboType
rs!CreatedDate = Date
rs!CreatedTime = Time()
rs!CreatedBy = GetUserName()
rs.Update
rs.Close
Set rs = Nothing
[COLOR=red]Forms!frm_Function_T!lstDue.Requery
Forms!frm_Function_T!lstOverDue.Requery
[/COLOR]ClearDown
DoCmd.Close
End Sub