Accessing a form using a variable name.

[rainsworth]

Trying to set focus to a form using a variable. Here is the code. - Thanks

Set dbs = CurrentDb
Set RST = dbs.OpenRecordset("Functions&quot
Function_name = Trim(Forms!Main_menu.FunctionsCMB.Value)
Form_Name = Trim(RST.Fields!form_alias.Value)

RST.MoveFirst
Do While Not RST.EOF
If Function_name = Trim(RST.Fields![User/Manage_Functions].Value) Then
DoCmd.OpenForm (Form_Name) ' This works !
Forms!Main_menu.SetFocus
DoCmd.Close
Forms!(Form_Name).SetFocus ' This does not work
RST.MoveLast
RST.MoveNext
Else
RST.MoveNext
End If
Loop
End Sub

 

[Steve101]

Simple syntax problem. Change the line:

Forms!(Form_Name).SetFocus ' This does not work

to

Forms(Form_Name).SetFocus ' This will now work

ie. remove the ! character; you only use it if you're hardcoding the form name.



Steve Lewy
Solutions Developer
steve@lewycomputing.com.au
(dont cut corners or you'll go round in circles)

 

[rainsworth]

Works great - thanks.