عدم اجرای دستورات درrecordset

[ykm145]

دستورات که با رکوردست برای ایجاد رکورد جدید -حرکت بین رکورد -ایجاد فانکشن نوشتم یا جواب نمیده یا خطای غیر نحوی میده


dim db as database
dim as rs recordset
set db = currentdb
set rs =db.openrecordset("table1
if rs .eof=true then یا if rs.eof then
rs.addnew
else
rs.movenext
endif
حتی بدون شرط if وفقط با rs.addnew نیز این مشکل پابرجاست daoنیز اول databaseو.. اضافه میکنم جواب نمیده
درضمن جدول از نوع قابل ویرایش و حذف واضافه رکورد می باشد وافیس 2003 میباشد
ممنکه بیگید این اشکال ازکجا ناشی میشه ویا اگر مربوط به reference کدام یک را باید اضافه کنم یا تیک مارک ان را بردارم
باتشکر

[ykm145]

دوستان لطفا راهنمایی کنید

[ykm145]

تا سه نشه بازی نشه کسی بالاخره نمی خواد جواب بده

[OMRANVISUAL]

database شما چیه
اگر اکسس باشه این کار خیلی راحته و برای اضافه کردن رکورد جدید نیازی به کد شما ندارد
database.recordset.addnew
else
database.recordset.movenext

[ykm145]

ممنون از راهنمائیت
رکورد ست را شما به چی ست کردی ؟

اصلا if rs.eof =false then msgbox"a" عمل نمی کنه ؟!

[ykm145]

اقا لطفا یکی این مشکل را حل کنه
باتشکر