Validación de datos

Es bueno ayudar.. mira yo haría esto.. dejame ve si te entendí.. tu tienes 2 tablas una que se llama consulta y cliente, con los campos codconcodcli, descrinomb y codcli, y la pregunta es como buscar un registro de la tabla consulta y si no existe en la tabla clientes, grabalo.. ok..
Yo haría eso.
Se le consulta
Go top * primer registro de consulta
do while !eof() * hacer mientras no final
sele cliente && sele tabla clienjte
locate for cliente.cod_cli &&busco en cl
if !found() && si no esta lo graba
appen blank in cliente
replace cliente.codconcodcli with consulta.codconcodcli in cliente
replace cliente.descrinom with consulta.descrinomb
&& etc,etc.
Endif
Se le consulta
skip && salto al sig. registro
enddo
*** espero haberte ayudado y si no es asi hasmelo saber, ah.. por favor si tea ayude cierra la pregunta y califica por favor amigo. y si gustas has nuevas preguntas.... emmanuel carrillo... colima, mexico...

Hola amigo envío este código para que me ayudes que puedo hacer el código que me enviaste esta bien pero el detalle es que estoy en la tabla segundaría (consultas) buscando en la tabla primaria (cliente) si existe el código en cliente los registros se guardan en la tabla consultas ya que en esta tabla tengo otros datos. Pero este procedimiento se entiende que debe de guardar en cliente mil gracias por su interés
B=thisform.TEXT1.value
select pacientes
set order to cod_clie
seek B
IF found()
=messagebox("Codigo no existe en la tabla clientes",48,"Error")
y si existe el codigo los registros se deben de guardar en la tabla consulta
else
endif
IF MESSAGEBOX("Seguro de grabar",36,"Confirmacion")=6
APPEND BLANK
REPLACE sede WITH s
REPLACE fecha WITH f
replace cod_cli with c
replace medico with m
thisform.refresh
ELSE
=MESSAGEBOX("No se grabaron los datos",64,"Mensage del sistema")
Endif