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

[ykm145]

دوستان این مشکل من در ماجوالهای اکسس ولی چون به نوعی مرتبط به وی بی در اینجا نیز مطرح کردم تا کسانیکه که تجربه ای دراین زمینه دارند راهنمائی فرمایند :

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

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 نیز این مشکل پابرجاست
درضمن جدول از نوع قابل ویرایش و حذف واضافه رکورد می باشد
ممنکه بیگید این اشکال ازکجا ناشی میشه ویا اگر مربوط به reference کدام یک را باید اضافه کنم یا تیک مارک ان را بردارم
باتشکر

[ehsan_ansaripoor]

دوست عزیز بنده اشکالی که در این کد دیدم مربوط میشه به SET کردن متغییر Db:


dim db as database
dim as rs recordset
set db = DbEngine.openDatabase(App.path & "\Data.mdb" )
set rs =db.openrecordset("table1")
if rs .eof=true then یا if rs.eof then
rs.addnew
else
rs.movenext
endif

[ykm145]

احسان جان خیلی ممنون که راهنمائی کردی بازنتونستم دیتابیس را ست کنم فایل را گذاشتم اگه محبت کنی یه نگاه بهش بندازی ممنون می شم

[ashkan209]

دوستان سلام
من یک سوال داشتم ،که توی یک تاپیک جداگانه نوشتم ،ولی حذف کردند .
بخاطر این ،سوالم را اینجا مطرح میکنم
میخواستم همه رکوردهای یک جدول را از طریق کدی که مینویسم ،حذف کنم
احتمالا این فرمان را در کد نمیتوان استفاده کرد DELETE * FROM Mytable
فرض کنید تعداد رکوردها ،بیشتر از 10000 باشد
ممنون