refreshing screens

[judith]

i have a screen with two sub forms showing allocated and
unallocated items. As the user ticks a box the item moves
from one screen to another. Initially i did this through
macros, jumping from screen to screen and doing a
requery. It worked but was "Clunky" and the screen
juddered at each stage. So I moved it to a VBA event but
i suspect my programming skills are not very good as now,
although it works and is a lot smoother it is very slow.
I am using:-

rectID = setRectId

DoCmd.Save

Forms!systemForm!maintenanceNoVisitLogForm.SetFocus
DoCmd.Requery

Forms!systemForm!maintenanceVisitForm!
MaintenanceVisitLogForm.SetFocus
DoCmd.Requery

Forms!systemForm!maintenanceVisitForm.SetFocus
DoCmd.Requery

Any suggestions for a quicker result please