بروز خطا در فراخواني ركوردست

[talabaki]

سلام دوستان
من کد زیر را دارم




Dim st as string




Dim db as database

Dim rst as dao.recordset

St=""select m from T_mojodi where Id_material=1"

Set rst=db.openrecordset(st)

Rst.movefirst


DAO 3.6 هم فعال است
RUN time error 91 را می دهد (object variable or with block variable not set )
حالا به نظرتون چه کار کنم

[mehdi_fiz]

سلام دوست عزيز
خطاي شماره 91 به علت اينکه شما db رو ست نکرده ايد رخ مي دهد و بايد قبل از ست کردن رکورد ست کد زير را اضافه کنيد
set db = curentdb
موفق باشيد

[dadsara]

سلام دوست عزيز
خطاي شماره 91 به علت اينکه شما db رو ست نکرده ايد رخ مي دهد و بايد قبل از ست کردن رکورد ست کد زير را اضافه کنيد
set db = curentdb
موفق باشيد
دوست عزیز
من مراحل فوق را انجام داده ام ولی متاسفانه بازهم با خطای 91 روبرو هستم
(البته در اکسس پروجت قصد دارم اینکار را انجام دهم)