Access - Formulario Carga de Datos

   
Vista:

Formulario Carga de Datos

Publicado por Angel (84 intervenciones) el 10/07/2012 17:55:08
Hola a todos y desde ya muchas gracias. Tengo un formulario en modo "carga de datos" en el cual me sucede que si cierro el formulario en medio de una carga ingresa los datos cargados en sus respectivos controles. Lo que me sucede es que de esta manera si se cierra el registro me puede quedar a medias. Muchas Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Formulario Carga de Datos

Publicado por Rubén (47 intervenciones) el 11/07/2012 12:03:49
Una forma (no sé si chapucera) podría ser que almacenases confirmaciones cada vez que se cubre cada uno de los campos y luego en el evento de cerrar formulario, comprobases que estuviese todo OK.
Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Formulario Carga de Datos

Publicado por jose (741 intervenciones) el 14/07/2012 15:49:27
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar