Use current form name in expression builder to create a query - forms

Question

I would like to refer to my current form name in the expression builder in order to create a query.
I have created the following function:
Public Function FormAtual()
Dim frm As Form
Set frm = Screen.ActiveForm
End Function
And then used it in the Expression Builder like that:
[Formulários]![FormAtual]![Lista0]
But it does not work.

Answer 1

Not quite sure what you are after, but to obtain the name of the active form:
Public Function FormAtual() As String
FormAtual = Screen.ActiveForm.Name
End Function
Then, to have an expression:
[Formulários](FormAtual)![Lista0]

Answer 2

Below is something that works with a form I am using and the steps I took. This code can be simplified, but I wanted to show how the pieces fit together.
First, create the following in a Global Module
Public Function GetVariableValue(ctlName As String) As String
Dim sFrmName As String
Dim sVal As String
' First get the Active Form Name
sFrmName = Screen.ActiveForm.Name
' Now get the value of the desired control
sVal = Forms(sFrmName).Controls(ctlName)
' Display the Form/Ctl/Value
MsgBox "Form Name: " & sFrmName & vbTab & "CtlName: " & ctlName & vbTab & "Ctl Value: " & sVal
End Function
Public Function GetFormName() As String
GetFormName = Screen.ActiveForm.Name
End Function
Next, use the query builder to select the Function and then specify the desired control. i.e.
SELECT GetVariableValue('MyID') AS Expr1, [0_Stack].Resolved, [0_Stack].WebAddress, [0_Stack].DateAdded, [0_Stack].DateChanged, [0_Stack].MyID
FROM 0_Stack
WHERE ((([0_Stack].MyID)=GetVariableValue('MyID')));