if len(alltrim(cRutaFoto))<>0 thisform.txtArchivo.Value= cRutaArchivo ***guardamos en la tabla selec miTabla append blank replace campoTabla with cArchivo thisform.refresh endif
if len(alltrim(cRutaFoto))<>0 thisform.txtArchivo.Value= cRutaArchivo ***guardamos en la tabla selec miTabla append blank replace campoTabla with cArchivo thisform.refresh endif
if len(alltrim(cRutaFoto))<>0 thisform.txtArchivo.Value= cRutaArchivo ***guardamos en la tabla selec miTabla append blank replace campoTabla with cArchivo thisform.refresh endif
if len(alltrim(cRutaFoto))<>0 thisform.txtArchivo.Value= cRutaArchivo ***guardamos en la tabla selec miTabla append blank replace campoTabla with cArchivo thisform.refresh endif