Form Record Source Not Updating

[masterdineen]

Hello there.

I want to open a form and change the Record Source via a dynamic variable.

 Dim Table as String
  
 Table = "Statistics"+replace(Environ("Username"),".","")
  
 DoCmd.OpenForm "FrmStats", acNormal, , , , acHidden
  
 Form!FrmStats.RecordSource = Table
  
 DoCmd.Close acForm, "FrmStats", acSaveYes

When I go back into the FrmStats form and have a look at the RecordSource property, I can see that it has not changed.

Can someone point me in the right direction please. This doesn't seem like a hard task.

Regards

Rob

 

[Ranman256]

Why are making more work?
Set the form property to the query source.
No vba needed. It always works.

 

[masterdineen]

I will have multiple users on this Form and so I need to refresh each instance to a new table dynamically

 

[MarkK]

This form should set its own recordsource, like...

private sub form_open(cancel as integer)
   me.recordsource = "Statistics"+replace(Environ("Username"),".","")
end sub