1
Haga clic en " Inicio", " Todos los programas", " Microsoft Office" y " Microsoft Access 2007. "
2
Abrir una base de datos existente usando "Archivo " " Abrir . "
3
Haga clic en" Visual Basic "en la pestaña" Herramientas de base de datos " de la cinta.
4 Haga clic en" módulos " de la menú " Insertar". Seleccione " Procedimiento " en el menú "Insertar" . Escriba un nombre para el procedimiento. Seleccione un tipo , como " función ", y un ámbito de aplicación y haga clic en " Aceptar".
5
Introduzca el código para su procedimiento. Por ejemplo :
Public Function Edad ( varBirthDate As Variant ) As Integer
varAge Dim As Variant
If IsNull ( varBirthDate ) Entonces Edad = 0 : Exit Función
varAge = DateDiff ( " yyyy" , varBirthDate , ahora)
Si Fecha < DateSerial ( Year (Now ) , Month ( varBirthDate ) , Día ( varBirthDate ) ) Entonces
varAge = varAge - 1
End If
edad = CInt ( varAge )
End Function
6
Haga clic en " ventana Inmediato " de "View . " Escriba "? Age ( " 02/01/1956 " )" y presionar "Enter " para probar el código . Usted debe obtener "54" si la fecha actual es de 2010 .
7
clic en el icono del disco en la barra de herramientas para guardar su trabajo.