Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Access 2003: establezca el valor predeterminado para el cuadro de texto al crear un nuevo registro
Este tutorial de MSAccess explica cómo establecer valores predeterminados para los cuadros de texto al crear nuevos registros en Access 2003 (con capturas de pantalla e instrucciones paso a paso).
Ver soluciones en otras versiones de Access:
- Visita 2007
Problema: en un formulario de Access 2003/XP/2000/97, quiero verificar cuándo un usuario agrega un nuevo registro (¿hay algún evento relacionado?) para poder cargar un valor de fecha predeterminado en el cuadro de texto. Intento ir a un nuevo registro cada vez que se carga el formulario, pero esto genera muchos registros no deseados. ¿Cómo puedo evitar esto?
Respuesta: En el objeto Formulario, debe haber un evento “Antes de insertar”. Debería poder poner código allí para establecer el valor del cuadro de texto.
Descargue la versión en Access 2000 (el ejemplo se muestra a continuación)
Veamos un ejemplo. A menudo, es útil saber cuándo se crean los registros en una base de datos de Access. Por lo tanto, creamos una tabla de clientes con un campo llamado Create_Date. Usaremos este campo para almacenar la fecha y hora exactas en que se creó el registro.
Aquí hay un ejemplo del formulario que creamos. Hay código en el evento “Antes de insertar” de este formulario para actualizar un campo denominado Create_Date. Cuando ve este formulario en modo Formulario, no ve un campo llamado Create_Date.
Sin embargo, si mira este formulario en la vista Diseño, notará que en realidad hay un campo llamado Create_Date. El campo se ha establecido en “invisible” para que el usuario no interfiera con el código de evento “antes de insertar” que se ejecutará.
Cuando se inserta un nuevo registro en la tabla Clientes, el campo Create_Date se actualizará a la fecha/hora actual del sistema.
El código VBA es muy simple:
Private Sub Form_BeforeInsert(Cancel As Integer) 'Set the Create_Date field in the Customers table to the current system 'date when a new record is created Create_Date = Now() End Sub