not at all clear to me why you would want to do this but if you want one bit of code to work for every form then something like this function placed in a general module might do what you want
Code:
function formCleared(frm as form) as boolean
dim ctl as control
on error goto errctrl
for each ctl in frm.controls
if ctl.controltype =acTextBox then ctl=null
next ctl
formCleared=true
exit function
errctrl:
msgbox "err & ": " & err.description & " in " & frm.name
formCleared=false
end function
you would call it from a form with something like
if formCleared(me) then donextthing