الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول فتح السجلات في الاكسس بكود فيجيول بيسك

مغلق
بدأه basharss في 14 يوليو 2004 · 6 رد · 806 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

الاخوة الكرام انا بحاجة كبيرة لمساعدة وبأسرع وقت وانا اثق بكم كثيراً ، لقد عملت بمؤسسة حديثاً وطلب مني عمل برنامج لنظامها عندما اقوم بكتابة الكود التالي :

اقتباس
Dim Dbcs As Database

Dim DRS As Recordset

Set Dbcs = Currentdb()

Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)

DRS.AddNew

DRS!AssessmentNo = 25

DRS.Update

DRS.Close

Dbcs.Close

يعطيني خطء على الجملة رقم 4 وهي الجملة :

Set DRS = Dbcs.OpenRecordset("Assessment", DYNASET)

ورسالة الخطء تقول :

run-time error 13 :

Type mismatch

مع العلم بأن ADO مفعله من قائمة المراجع

انا بإنتظار الاجابة بأسرع وقت

مع خالص الشكر والتقدير

بشار ابوشمعه

logosite.gif
#2

يا أخي العزيز،

في المراج يجب أن تعرف

Microsoft DAO 3.6

وليس

ADO

#3

شكرا اشرف

ولكن انا قمت بما قلت

اي اضفت microsoft ADO الى Reference في الاكسسس ولم ينجح ذلك

مع العلم ان ال اوفيس 2000 والويندوز XP

logosite.gif
#4

أخى الكود الذى تستخدمه هو كود خاص بمكتبة ال DAO و انت تقول انك واضع فى ال Refrence مكتبة ADO اذن من الطبيعى أن لا يعمل الكود

قم بالتأشير على مكتبة ال DAO و سوف يعمل الكود باذن الله

#5

لقد عمل اخيرا شكراً جزيلا لكم

logosite.gif
#6

العفو , بالمناسبة , موقع Geocities لا يدعم خاصية File Linking أى ان الصورة الموجودة فى توقيعك لن تظهر فى المنتدى,

الحل السهل : اذهب الى مركز تحميل الصور بالمنتدى و حمل الصورة عليه:

http://www.arabteam2000.com/picload/

#7

لقد اجاب الاخ مهند العبادي في منتدى الاكسس على سؤالي وشكراً جزيلا له ، وقد ارتئيت ان اضع اجابته هنا ، و اجابته كانت :

Dim DRS As object
Set DRS = Currentdb.OpenRecordset("Assessment")

DRS.AddNew
DRS!AssessmentNo = 25
DRS.Update
set DRS = Nothing
logosite.gif

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…