pass a table name to a function to open a recordset

[sub5]

Hi

When I try to pass this table name from procedure1 to function1 it tells me "object variable or with block variable not set"

private sub procedure1
call function1("T-Table1")
end sub

private function function1(strTable as String)
dim db as database, rst as recordset
set rst = db.openrecordset(strTable)
rst.edit
rst!field = 300
rst.update
end function

Is it possible to pass a table name?

 

[Blorf]

try diming rst as object, and db.openrecordset to currentdb.openrecordset.

ChaZ

There Are 10 Types Of People In The world:
Those That Understand BINARY And Those That Don’t.

 

[PJStephenson]

a couple of things to try
[blue]dim db as dao.database, rst as dao.recordset[/blue]
make sure you have a reference to DAO
and you forgot
[blue]dim db = currentdb[/blue]
and possibly try
[blue]rst.field("fieldname").value = 300[/blue]

it should work ask long as the string you pass is a valid table or select query name

[η][β][π]

 

[sub5]

it works when i add the line in the function
set db = currentdb
cheers blorf

 

[Blorf]

Glad to help.

There Are 10 Types Of People In The world:
Those That Understand BINARY And Those That Don’t.