Impedir ingreso de datos en Subform vinculado
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85467
Fecha de impresión: 19/Abril/2024 a las 16:24
Tema: Impedir ingreso de datos en Subform vinculado
Publicado por: alfare
Asunto: Impedir ingreso de datos en Subform vinculado
Fecha de publicación: 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? https://ibb.co/L5QsMPt" rel="nofollow">  GRACIAS!!! ------------- Slds desde Cali Colombia |
Respuestas:
Publicado por: xavi
Fecha de publicación: 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 http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: alfare
Fecha de publicación: 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 |