Run-Time Error 91

[opie]

Thank you in advance for your help.

When I run the following I get a "Run-Time Error 91: Object variable or With block variable not set"

 Function GetAddress() As Hyperlink 
 
Dim dbLogBook As DAO.Database
Dim tblStation As DAO.Recordset
Dim strSQL As String
Dim hypAddress As Hyperlink
 
Set dbLogBook = CurrentDb
 
strSQL = "SELECT A1 FROM tblStation"
 
Set tblStation = dbLogBook.OpenRecordset(strSQL)
 
hypAddress = tblStation("A1")
 
tblStation.Close
 
GetAddress = hypAddress
 
End Function

It is having a hang up on this line "hypAddress = tblStation("A1" )"

If I set "hypAddress " of course I get a "Type Mismatch"

What am I doing wrong?

[Rabbit]

The Hyperlink object represents a hyperlink associated with a control on a form, report, or data access page. What is it you're trying to do?

[opie]

I was able to fix it I wasn't using a variant

Thanks for your help

[Rabbit]

Good luck.

[ql25]

re: Run-Time Error 91

Nice Replays!