Is it possible to generate the alias name for a row in query from function?

[Michael R]

Hi all.

I need to create a query so that the one of the row name aliases will be generated from a function (for graph purposes). Is there a way to do it?

Thanks.

[ADezii]

Hi all.

I need to create a query so that the one of the row name aliases will be generated from a function (for graph purposes). Is there a way to do it?

Thanks.

Yes there is:

1. Create a Public Function that will return a String value, this value will be the Alias for a specific Field(s). In the demo, I created a Function named fGenerateAlias() which will return a String value that will be the Name of the first Table in your Database. This Table Name will be the Alias for a [LastName] Field in an Employees Table. Here is the simple Function below:
   

   Public Function fGenerateAlias() As String
     fGenerateAlias = CurrentDb.TableDefs(0).Name
   End Function

2. The following code below will create a Query named qryTestAlias. The Query will return only the First and Last Name Fields from the Employees Table. The [LastName] Field will be Aliased with the Name of the first Table in your Database.
   

   On Error Resume Next
   Dim qdfTest As DAO.QueryDef, strSQL As String
    
   CurrentDb.QueryDefs.Delete "qryTestAlias"
    
   strSQL = "Select [FirstName], [LastName] As '" & fGenerateAlias() & "' From Employees;"
    
   Set qdfTest = CurrentDb.CreateQueryDef("qryTestAlias", strSQL)

3. Any other questions, please do not hesitate to ask.