Yep, just set up a form with an unbound textbox and a command button. On the on_Click event of the command button, in the VB window, use
docmd.openquery "NameOfQuery"
If you want to supress the confirmation messages, use this instead
docmd.setwarnings false
docmd.openquery "NameOfQuery"
docmd.setwarnings true
In the update To box, set this to
=Forms!NameOfForm"NameofUnboundTextbox
and it will plug in the value from the form.