guardar registro con condicion ACCESS 2007

[nomade42k]

Hola muchachos y muchachas. Me gustaria guardar un registro mediante un formulario siempre y cuando todos los campos del formulario esten llenos, para asi no tener filas vacias o con menos valores en la tabla correspondiente. He hecho una macro incrustada para un boton guardar, donde la accion es ejecutarcomando y el argumento guardar registro. Es aqui donde me gustaria que, si no todos los campos del formulario estan llenos, no se guarde.

muchas gracias

[ViccoLizcano]

Saludos, antes de que ejecutes tus funciones en el botón, agrégale algo de código validando eso, por ejemplo:


teniendo dos campos de texto (txtFICHA y txtNOMBRE) y una lista desplegable (lstCATEGORIA)

If Len(txtFICHA) > 1 AND Len(txtNOMBRE) > 1 AND Not IsNull(lstCATEGORIA) then
'Aqui iría tu código para guardar los datos
Else
MsgBox "Favor de capturar todos los datos.", vbCritical, "3RR0R!!!"
End If

Saludos!

[nomade42k]

Muchas gracias por tu respuesta. Lo malo es que no se programar el codigo del access, por lo cual lo estoy haciendo con las macros incrustadas que éste software ofrece. ¿Como podria validar ahi?

[ViccoLizcano]

No sé manejar el "editor" de macros de Access, todo prefiero hacérselo con VBA. Si quieres intentarlo así, en la vista diseño del formulario da click secundario sobre el botón guardar, selecciona generar evento y generador de código.

Dentro del código que te aparece, copias y pegas el código que te pasé, ajustando los nombres de los campos a los de tu formulario y a la cantidad de campos que tengas (para agregar otra condición le antepones AND).

Suerte!

[nomade42k]

Funciona!!, pude comprobarlo con el error que arroja. Sin embargo, no se como es el codigo VBA para guardar un registro. En el "editor" es facil, ya que ahi uno pone ejecutar comando, guardar. ¿podrias decirme como guardo el registro en mi base de datos?

muchas gracias

[Taribo007]

Prueba esto:

DoCmd.RunCommand acCmdSaveRecord

Otra forma de comprobar que un control esta vacio o contiene un valor null:

If nz(txtFICHA,"") ="" then

Un saludo

[nomade42k]

Oye funcionó de maravilla, muchas gracias. Me gustaria aprender mas del código VBA, para hacer mas cosas. ¿De donde puedo aprender mas?

[ViccoLizcano]

Googléalo!

[Taribo007]

Aqui tienes el mejor manual de VBA, de Eduardo Olaz:

Manula VBA Olaz

Un saludo

[nomade42k]

Muchas gracias. Espero poder seguir avanzando con lo mio leyendo este manual. Hasta pronto