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

حصة شرح عن DAO & Recordset كيفية إستخدامها لو تكرمتم

مغلق
بدأه khyrabak في 9 أبريل 2007 · 3 رد · 2,197 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أريد أن أستخدم هذا الكود

وأريد أن أعرف متطلباتة من References و Activex كيف يعنى لأنة يعطينى أخطاء

ولدى سؤال عن إستخدام Recordset ماهى المتطلبات لإستخدام هذا الكود

Dim db As Database, rst As Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("tbl_tahlilwekly_merf")

rst.MoveFirst

Do Until rst.EOF

If rst!regname = Me!reg_name And rst!comp_id = Me!comp_id And rst!well_num = Null And rst!date = Me!date Then

MsgBox " العينة مكررة للفرع ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبية"

Me.Undo

DoCmd.CancelEvent

Exit Do

End If

rst.MoveNext

Loop

rst.close

بمعن ما هو المطلوب تعريفة من DAO وماذا أيضا ومن أين تعرف ولو ممكن بالصور كما عودتنا مشرفتنا الجميلة زهرة

وشكرا جزيلا

post-26686-1176137623_thumb.jpg

#2

اخي الكريم اضغط على دي بج يكون خط على الخطأ لانك تضيف نص إلى رقم او ما اشبهه يفضل ارفاق قاعدة المعلومات والمطلوب وتجد الحل إن شاء الله تعالى

Dim db As Database, rst As Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset("tbl_tahlilwekly_merf")

rst.MoveFirst ' غير مهم لان الجدول المفتوح يبدأ من الأول وإذا لم يوجد معلومات بالجدول يعمل مشاكل

Do Until rst.EOF

If rst!regname = Me!reg_name And rst!comp_id = Me!comp_id And rst!well_num = Null And rst!date = Me!date Then

MsgBox " العينة مكررة للفرع ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبية"

'Me.Undo

'DoCmd.CancelEvent

Exit Do

End If

rst.MoveNext

Loop

rst.close :Db.close

من سار على الدرب وصل

#3

السلام عليكم

شكرا لك أخى مفرج على مرورك وإهتمامك

المشكلة لدى هى أننى أريد أن أمنع التكرار إدخال عينة أكثر من مرة حيث أنى لدى الجدول بة

إسم المنطقة / رقم الفرع/ رقم البئر / التاريخ للعينة

المطلوب هو عدم تكرار عينة فى تاريخ معين لنفس المنطقة أو

عدم تكرار عينة فى تاريخ معين لنفس المنطقة مع رقم الفرع أو

عدم تكرار عينة فى تاريخ معين لنفس المنطقة مع رقم الفرع مع رقم البئر

تكون البيانا فى الجدول كالتالى :

مرفق / ـــــــ / ـــــــ / تاريخ العينة عينة من مرفق كبير

مرفق / فرع / ــــــ / تاريخ العينة عينة من فرع تابع لمرفق

مرفق / فرع / بئر / تاريخ العينة عينة من بئر تابع لفرع

أرجو أن أكون إستطعت أن أشرح ما أريد وأتمنى أن أجد لديكم الإجابة

وقمت بتجربة dcount ولكن المشكلة بها هو مقارنة قيمة فارغة فى الجدول وقمت بإستخدام Recordset ومنها هل أستطيع أن أضع شرط يساوى Null مثل السطر ( رقم البئر فى الجدول)

And rst!well_num = Null

ومرفق لك المثال بة كود dcount والكود الأخر Recordset وأريد أن أعرف متطلباتة من References لم أقم فى المثال بتعريف أى References والأمر متروك لك أخى الكريم

test.rar

#4

للرفع

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

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

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

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

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

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