FoxPro/Visual FoxPro - busqueda en formulario

como estan ,necesito saber como busco en un formulario que contiene dos tablas ,un dato que puede estar en diferentes campos,y en alguna de las tablas, he tratado de unir la busqueda con codigo dentro de una caja de texto,pero aparece un error de sintaxis,gracias.

***************
supongo que las tablas ya estan abiertas
entonces solo hacemos lo siguiente:
***************
cDatoQueSeBusca='dato' && puede ser también tipo de dato fecha, número o lógico

dimension ;
aTablas[2]

aTablas[1]='facturas'
aTablas[2]='clientes'

lEureka=.f.
for i=1 to alen(aTablas) && alen() nos dá el número de elementos de la matriz
.....sele &aTablas[i]
.....for j=1 to fcount() && fcount() nos dá el número de campos de la tabla actual
..........cNombreDelCampo=field(j)
..........if type(cNombreDelCampo)=type('cDatoQueSeBusca') or ;
.............type(cNombreDelCampo)='m' and type('cDatoQueSeBusca')='c'
.............go top
.............xContenidoDelCampo=&cNombreDelCampo
.............scan for allt(xContenidoDelCampo)=cDatoQueSeBusca
.......................wait 'Eureka!' +' '+ ;
...............................'Tabla: '+upper(aTablas[i])+' '+ ;
...............................'Campo: '+cNombreDelCampo +' '+ ;
...............................'Registro: '+ltrim(transform(recno(),'999,999')) window nowait
...............................lEureka=.t.
...............................exit
.............endscan
..........endif
..........if lEureka
.............exit
..........endif
.....endfor
.....if lEureka
........exit
.....endif
endfor

if !lEureka
...wait 'no se halló el dato especificado' window nowait
endif

************
bora los puntos que puse delante de los comandos
los puse para que se pueda leer mejor porque si pongo espacios
se borran y se ve todo ajustado

saludos