Convert a String to an Object 2

[EwS]

This works:
Dim myForm as Form
Set myForm = frmForm1

This doesn't work:
Dim tempForm As String
tempForm = "frmForm1"
Set myForm = tempForm

I want to read the form name from a database and then assign it to myForm. How to convert from a string to an object type?

Thanks.

 

[onpnt]

Dim tempObj As object
Dim tempForm As String

tempForm = "frmForm1"
Set tempObj = CreateObject(tempForm)


____________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";
$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

http://www.onpntwebdesigns.com

 

[strongm]

Here's one solution:
[tt]
Public Function FormByName(strForm As String) As Form
Dim myForm As Form

' Check to see if form is already loaded
For Each myForm In Forms
If myForm.Name = strForm Then Exit For
Next

' Load named form if not already loaded
On Error GoTo BadForm
If myForm Is Nothing Then Set myForm = Forms.Add(strForm)
On Error GoTo 0

Set FormByName = myForm
Exit Function

BadForm:
If Err.Number = 424 Then Call Err.Raise(vbObjectError + 424, "FormByName", strForm + ": no such form exists in the project", "", 0)
End Function

 

[EwS]

Thanks for help.

onpnt -
Your code didn't work.

strongm -
It works.

 

[onpnt]

sorry, still brushing off the VB dust bunnies. I think setting the object to Nothing may need to be done first.

hope my appearance isn't getting anyone irritable. It's like riding a bike, right?!?

____________________________________________________
_{$str = "sleep is good for you. sleep gives you the energy you need to function";
$Nstr = ereg_replace("sleep","coffee",$str); echo $Nstr;}

http://www.onpntwebdesigns.com