Foros del Web » Programación para mayores de 30 ;) » Programación General »

Codigo en access

Estas en el tema de Codigo en access en el foro de Programación General en Foros del Web. Buenas a todos!!! Mi problema es el siguiente... tengo una bd creada en access y tengo diferentes botones para controlarmejor la bd. Pero el problema ...
  #1 (permalink)  
Antiguo 23/11/2003, 13:09
 
Fecha de Ingreso: noviembre-2003
Ubicación: España->Madrid
Mensajes: 368
Antigüedad: 21 años
Puntos: 0
Codigo en access

Buenas a todos!!!
Mi problema es el siguiente... tengo una bd creada en access y tengo diferentes botones para controlarmejor la bd.
Pero el problema es que tengo un boton de agregar nuevo registro que si le doy antes de rellenar todos los campos requeridos del formulario me sale un mensaje de error que me da las opciones finalizar o depurar... y si le doy a depurar me lleva al codigo. Pero claro yo no voy a ser el usuario habitual de la bd asi que eso conlleva un gran peligro ...entonces seme ocurrio poner condiciones if pero no se como hacerlo puesto que no se mucho de programacion... por no decir qmis conocimientos son nulos...
weno ahi va el codigo

CODE
Private Sub AgregarNuevo_Click()
On Error GoTo Err_AgregarNuevo_Click


DoCmd.GoToRecord , , acNewRec

Exit_AgregarNuevo_Click:
Exit Sub

Err_AgregarNuevo_Click:
MsgBox Err.Description
Resume Exit_AgregarNuevo_Click

End Sub

Entonces mi idea seria decirle

if campo1<> vacio and campo2 <> vacio ... then
DoCmd.GoToRecord , , acNewRec
else
msgbox "Por favor compruebe que ha rellenado todos los campos requeridos.Muchas Gracias."


creo q esto seria una solucion valida... pero no se como ponerlo bien... creo q seria..

if me.nombrecampo1<>null and me.nombrecampo2<>null and... then...

ó if [nombrecampo1] <> null ... then...

alguien me dice como seria mi idea... o me dala solucion correcta?¿?¿

Muxas gracias de antemano
  #2 (permalink)  
Antiguo 25/11/2003, 02:59
 
Fecha de Ingreso: abril-2003
Ubicación: Madrid
Mensajes: 707
Antigüedad: 21 años, 7 meses
Puntos: 0
Puestos a comprobar, lo mejor sería tener en cuenta, que además de nulos, puede haber blancos, que también pueden ser errores, pero sobretodo si está grabando algo, porque si está en un registro ya existente de la base de datos, no le vas a obligar a completar la información, no???

entonces, lo primero es comprobar si está en edición.

If Me.Dirty Then
' está modificando o introduciendo información, ahora a comprobar que ha puesto todos los datos
if nz(me.campo1,"") = "" then
' campo1 está sin completar mensaje de error
msgbox "debes completar campo1",vbexclamation
' mandar el foco a campo1
me.campo1.setfocus
elseif nz(me.campo2, "") = "" then
' campo2 está sin completar mensaje de error
msgbox "debes completar campo2",vbexclamation
' mandar el foco a campo2
me.campo2.setfocus
elseif nz(.......
.
.
.
.
.
.
End If

Espero que te sirva de ayuda, Un saludo
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:16.