Seek ThisForm.Txtidentidad.Value
IF !Found ()
Append Blank
EndIF
With ThisForm
Replace Identidad With .Txtidentidad.Value; Nombre With .Txtnombre.Value;
Dia With .Cmbdia.Value;
Mes With .Cmbmes.Value; Año With .Cmbaño.Value; Sexo With .Cmbsexo.Value; Lugar_Nacio With .Txtlugar.Value;
Depto With .Cmbdepto.Value;
Responsable With .Txtresponsa.Value; Direccion With .Txtdireccion.Value;
Telefono With .Txttelefono.Value;
Celular With .Txtcelular.Value
ENDWITH
Con el primer codigo le desis que busque si no encuentra lo buscado te creara un registro en blanco, si lo encuentra reemplazara los registros en la tabla usalo es facil si funciona ese es el que uso para prgramar
Los campos a la izquierda son los que estan en la tabla y los de la derecha son los del formulario, con esta opcion puedes guardarlo las veces que quieras, sino ahi esta mi correo para que me preguntes ok.
[email protected]. Buenas noches