Search results

Thanks all Fixed now Finally

Thanks Ridders Changed to below but still not updating the record may have to find another way of doing this. strSQL = "SELECT Log.EmpName, Log.DateReq, Log.MGR_Comments, Log.Approved, Log.Declined, Log.Cancelled" _ & "FROM Log " _ & "WHERE (((Log.EmpName)= '" &...

Thanks All l have Managed to put this together: strSQL = "SELECT Log.EmpName, Log.DateReq, Log.MGR_Comments, Log.Approved, Log.Declined, Log.Cancelled FROM Log" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) rs.MoveFirst rs.MoveLast rs.Filter = [DateReq] = [Forms]![MyTeam]![DateReq]...

Thank You Ridders The rs.updatequery was meant to be seperate it's just rs.update. I have looked around and this is how l have found to do it but if anyone knows a better way please tell me.

Hi All I'm abit struck on open this recordset and with Parameters with a Query Its ran through a Button on a form Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("TeamADC") rs.Edit rs("Approved") = True rs("TMS") = Me.MTS rs.Update Query: SELECT Log.Name, Log.DateT, Log.Comments...