** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Impedir ingreso de datos en Subform vinculado
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoImpedir ingreso de datos en Subform vinculado

 Responder Responder
Autor
Mensaje
alfare Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 28/Junio/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 649
Enlace directo a este mensaje Tema: Impedir ingreso de datos en Subform vinculado
    Enviado: 02/Septiembre/2020 a las 03:04
Hola,
Tengo un subformulario el cual esta vinculado por medio de tres campos dentro de un formulario( Fecha-predio y solicitante) . Lo que necesito es que el usuario NO pueda ingresar datos al subformulario, SIN que haya primero ingresado los datos en los tres campos anteriores.

Que me pueden aconsejar?



GRACIAS!!!
Slds desde Cali Colombia
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13125
Enlace directo a este mensaje Enviado: 02/Septiembre/2020 a las 13:35
Hola,

Utiliza una función para saber si los 3 campos están rellenos que bloquee/desbloquee el control subformulario. 

Esa función la llamas desde los eventos AfterUpdate de cada control y desde el evento Current.

Function BloqueaSubformulario()
  If Nz(Me!Fecha, "") = "" Then
    Me!sfrDatos.Locked = True
    Exit Function
  End If

  If Nz(Me!Area, "") = "" Then
    Me!sfrDatos.Locked = True
    Exit Function
  End If

  If Nz(Me!Solicitante, "") = "" Then
    Me!sfrDatos.Locked = True
    Exit Function
  End If

  ' En este punto ya hay datos en los 3 controles
  Me!sfrDatos.Locked = False
End Function

En el AfterUpdate de cada control lanzas la función. También hay que lanzarla desde el Current (Al activar registro)

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
alfare Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 28/Junio/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 649
Enlace directo a este mensaje Enviado: 15/Septiembre/2020 a las 01:44
Hola,
He aplicado la recomendación de Xavi y me funciono perfecto, lo que hice al final fue :

1. crear la función : Function BloqueaSubformulario()
2.en cada control  en el evento  AfterUpdate() :  Call BloqueaSubformulario
3. En el evento  Form_Load() del formulario donde esta el subformulario : Me.Subform.Locked = True

Gracias Xavi,
Pueden cerrar el hilo.
Slds desde Cali Colombia
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable