Necesito consejo sobre los datos de un formulario cargados de una tabla desde la base de datos

Hola Buen día de nuevo yo!
¿Se nota mi novates en esto no?
Espero no molestar mucho!
aver si me podes ayudar
Mira tengo un formulario que al llenarlo los datos se cargan en una tabla
lo que yo quiero es que los datos no se carguen en la tabla hasta que yo lo pida!
¿Por qué? Por hay veces que no se llenan completamente los formularios y aun así se guarda la información y queda a medias!
Quisiera que no se guardara hasta que yo diara click a un botn o algo así o que me marcara un error si alguno de los campos estuviese vacío!
Espero puedas ayudarme! Gracias espero tu respuesta

1 Respuesta

Respuesta
1
Probá con esto:
Supongamos que querés comprobar los campos Nombre y Código
Poné un botón para salir del formulario, con este código:
______________________________________________________________
Private Sub Comando4_Click()
If IsNull(Nombre) Or Me.Nombre = "" Then
Beep
MsgBox "No se completó el campo Nombre", vbInformation, "TituloMensaje"
GoTo Mensaje_Comando4_Click
Else
If IsNull(Código) Then
Beep
MsgBox "No se completó el campo Código", vbInformation, "TituloMensaje"
GoTo Mensaje_Comando4_Click
'-----------------------------------------
Else
'-----------------------------------------
DoCmd.Close
'**************************
End If
End If
'**************************
Exit Sub
Mensaje_Comando4_Click:
Beep
If MsgBox("Si sale de este formulario estando incompleto se perderán los datos ingresados" & Chr(13) _
& "¿Desea salir de todos modos?", vbYesNo + vbExclamation, "TituloMensaje") = 6 Then
DoCmd.SetWarnings False
On Error Resume Next
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
DoCmd.Close
Else
GoTo Fin_Comando4_Click
End If
Exit_Comando4_Click:
    Exit Sub
Fin_Comando4_Click:
End Sub
___________________________________________________________________
Podes agregar al código todos los campos que quieras, de la siguiente manera (Supongamos que querés agregar el campo "Domicilio"):
Debajo del "Else" que te encerré entre dos filas de GUIONES ponés:
_________________________________________
If IsNull(Domicilio) Or Me.Domicilio = "" Then
Beep
MsgBox "No se completó el campo Domicilio", vbInformation, "TituloMensaje"
GoTo Mensaje_Comando4_Click
Else
Y agregás un "End If" en los que te encerré entre filas de ASTERISCOS
Otra cosa, en la primer línea:
Si el campo es numérico o de fecha no pongas Or Me.NombreCampo = ""
poné solamente If IsNull(NombreCampo) Then
____________________________________
Hacés esto mismo con todos los campos que quieras comprobar antes de cerrar
Para entender bien el funcionamiento del códiga pruébalo. Está un poco desprolijo porque lo escribí rápido para contestar tu pregunta, pero ya lo probé y funciona perfecto.
Bueno.
Me olvidaba algo súper importante!
Donde pongo "Comando4" (Todas las veces que se repite) va el nombre de tu botón.
Ahora sí!
Me voy a comer

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas