En Access es posible crear funciones personalizas y utilizarlas en una consulta SQL con SELECT.
Se tiene la siguiente tabla denominada tbPersonas.
De esta tabla, se requiere determinar el grupo de edad al que pertenece cada persona.
Los grupos son:
0 a 14 años
15 a 24 años
25 a 54 años
55 a 64 años
65 y más años
En el editor de código VBA creamos un nuevo módulo llamado modFuncionesPersonalizadas y creamos la siguiente función:
Public Function GrupoEdad(inEdad As Integer) As String
Select Case inEdad
Case 1 To 14
GrupoEdad = "0 a 14 años"
Case 15 To 24
GrupoEdad = "15 a 24 años"
Case 25 To 54
GrupoEdad = "25 a 54 años"
Case 55 To 64
GrupoEdad = "55 a 64 años"
Case Else
GrupoEdad = "65 y más años"
End Select
End FunctionCreamos una nueva consulta SQL y utilizamos la función GrupoEdad.
SELECT Id_Persona,Nombre,Edad,GrupoEdad([Edad]) AS Grupo
FROM tbPersonas
El resultado de ejecutar la consulta:
