Formulario Carga de Datos
saludos Angel
Para hacer eso que tu pretendes los campos de texto donde introduces los datos deben de ser independientes , es decir no pueden estar en origen de control vinculados a ninguna tabla o consulta.
luego pon un boton que se GRABAR
En el evento al hacer clic , comprueba cada campo que hayan introducido para que reuna los requisitos que buscas
ejemplo :
mal=""
if text1.value="" then mal= mal & " falta dato 1!
if text2.value <> "s" then mal= mal & " debe poner S en el campo 2 "
if mal <> "" then msgbox" no se puede grabar " & mal : exit sub: rem no lo graba porque esta mal y se sale
si esta bien inserta una linea
Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
c10 = "": c20 = "": c30 = "": c40 = "": C50 = "": c60 = " ": c70 = "": c80 = "": C81 = ""
c10 = "INSERT INTO [nombretabla] ( capo1, campo2, campo3, campo3FECHA, campo4,campo4 )"
c20 = " SELECT " & Str$(NUM) & " AS UNO,"
c30 = "'" & text1.value & "' AS DOS," : rem string
c40 = "" & Str$(text2.value ) & " AS TRES, ": rem numerico
C50 = " #" & Now() & "# AS CUATRO," : rem fecha
c60 = " '" & "A" & "' AS CINCO,"
c70 = " '" & Forms![3F-CAMBIO-CONTRASEÑA]![C1] & "' AS SEIS "
c80 = " FROM [3T-PERMISOS]"
C81 = " WHERE [NUMAUTORIZADO]= " & Str$(NUM)
consulta = c10 & c20 & c30 & c40 & C50 & c60 & c70 & c80 & C81
'MsgBox CONSULTA
'Stop
RS.Open consulta, CON, adOpenDynamic, adLockOptimistic
un saludo Jose manuel