please help with recordset code

[burgesse]

When I try to execute this code, I get en "Error 91, object variabe or with block not set.

The purpose of the code is to update a record in a table, based on a match of a field on a form. The code will be executed from a command button.

Option Compare Database

Dim MachineNames As Object
Dim RST As Recordset
Dim QDF As QueryDef
Dim STRSQL As String
Dim DB As Database

Option Explicit


Private Sub Command9_Click()

Set MachineNames = Forms![Laptops Users]![laptop history subform].Form![machine_name]
[red]Set RST = DB.OpenRecordset("machine name listing&quot[/red]
STRSQL = ("UPDATE [RST] SET [RST].Used = NO WHERE [RST]![Machine Name]&quot = MachineNames
DB.Execute STRSQL

End Sub

 

[bjd4jc]

you must first open your database

Use this before the set RST... line:

set db = OpenDatabase("database path&quot

 

[srinivasaraghavan]

IN DAO,u must first open the database using openDatabase(database path) and use db.openrecordset() Srinivasa Raghavan