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

سؤال

بدأه Adel67 في 1 أكتوبر 2012 · 15 رد · 555 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

حاولت تنفيذ الاتي في حدث After Update بعد ادخال رقم الموظف في نموذج الحضور ولم تأتي النتائج بالشكل المرغوب بالاضافة الى رسائل حطأ فحذفت ما فعلت ربما اجد ما اريد عندكم ان شاء الله

اريد ان يبحث عن رقم الموظف في جدول الموظفين فان لم يجده يعرض رسالة تفيد ذلك وان وجده يأخذ الرقم والتاريخ والوقت و ok من النموذج وادخالهم ثم يحفظ ويقف على سجل جديد

اذا حاول الموظف التوقيع مرة ثانية يعرض رسالة تفيد بانه وقع قبل ذلك ويعرض رسالة هل يقبل التوقيع الجديد ام لا

في نموذج الانصراف وايضا في حدث After Update بعد ادخال رقم الموظف في نموذج

يبحث عن رقم الموظف في جدول الموظفين فان لم يجده يعرض رسالة تفيد ذلك وان وجده فيبحث في جدول الحضور والانصراف هل وقع حضور فان كان لم يوقع يعرض رسالة تفيد ذلك ثم يأخذ الرقم والتاريخ والوقت من النموذج وادخالهم ويثبته حضور ويحفظ ويقف على سجل جديد

واخيرا كيف اجعل المستخدم لا يستطيع ان يغير وقت الجهاز او اجعل البرنامج يعتمد على وقت غير الجهاز وجزاكم الله خيرا

#2

الملف المرفق

Attendance.rar

#3
Adel67 كتب:

حاولت تنفيذ الاتي في حدث After Update بعد ادخال رقم الموظف في نموذج الحضور ولم تأتي النتائج بالشكل المرغوب بالاضافة الى رسائل حطأ فحذفت ما فعلت ربما اجد ما اريد عندكم ان شاء الله

اريد ان يبحث عن رقم الموظف في جدول الموظفين فان لم يجده يعرض رسالة تفيد ذلك وان وجده يأخذ الرقم والتاريخ والوقت و ok من النموذج وادخالهم ثم يحفظ ويقف على سجل جديد

اذا حاول الموظف التوقيع مرة ثانية يعرض رسالة تفيد بانه وقع قبل ذلك ويعرض رسالة هل يقبل التوقيع الجديد ام لا

في نموذج الانصراف وايضا في حدث After Update بعد ادخال رقم الموظف في نموذج

يبحث عن رقم الموظف في جدول الموظفين فان لم يجده يعرض رسالة تفيد ذلك وان وجده فيبحث في جدول الحضور والانصراف هل وقع حضور فان كان لم يوقع يعرض رسالة تفيد ذلك ثم يأخذ الرقم والتاريخ والوقت من النموذج وادخالهم ويثبته حضور ويحفظ ويقف على سجل جديد

واخيرا كيف اجعل المستخدم لا يستطيع ان يغير وقت الجهاز او اجعل البرنامج يعتمد على وقت غير الجهاز وجزاكم الله خيرا

هل من مجيب جزاكم الله خير

#4

السلام عليكم

عفوا ان كان الموضوع صعب أو طويل فأرجو بيان الخطأ في هذا

aa = DLookup("[start_time]", "duty", "number = '" & Me.number.Value & "' And [the_date] = #" & Me.the_datef.Value & "#")

كما ارجو شرح كيف اعدل قيمة داخل recordset

وأشكر تعاونكم

#5

ايه ياجماعة الخير فينكم

#6

طيب حد يقولي الدالة dlookup لاتعمل مع معياري الرقم والتاريخ اين الخطأ تعبت من البحث

#7

اخي الفاضل

استخدم هذه الطريقة

aa=DLookup("[start_time]", "duty", "[number] = '" & Me![number] & "'" & " AND [the_date] =#" & Me![the_datef] & "#")

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 4 أكتوبر 2012 في 19:20

#8

جزاك الله خيرا وجاري التنفيذ

#9

جربت تم التنفيذ ولكن تعطي القيمة Null للمتغير رغم وجود القيمة بالجدول ومتوفر عليها الشروط

#10
Adel67 كتب:

جربت تم التنفيذ ولكن تعطي القيمة Null للمتغير رغم وجود القيمة بالجدول ومتوفر عليها الشروط

اخي الفاضل

اذا كان حقل الرقم لديك نصي فجرب هذا الكود

aa=DLookup("[start_time]", "duty", "[number] = '" & Me![number] & "'" & " AND [the_date] =#" & Me![the_datef] & "#")

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 8 أكتوبر 2012 في 07:29

#11

اشكر اهتمامك وجزاك الله خير وادعو لك بظهر الغيب ليس الان ولكن منذ بدأت أهتم بالأكسس واستفدت من أفكارك كثيرا . جعله الله في ميزانك

جربت ولم ينفذ ايطا مرفق الملف ولوتكرمت تنظري على نموذج الانصراف ايضا فقد حاولت التعديل في وقت الخروج مع recordset ولم تفلح المحاولة

Attend.rar

#12

ساعدونا في هذا الموضوع بارك الله فيكم للاهمية

#13

انتظر ردا هل من مجيب جزاكم الله خير

#14

تفضل اخي الكريم

ملفك بعد التعديل

لكي تحصل على النتيجة المطلوبة يجب ان تقوم بتغيير تنسيق التاريخ في التقويم الى هذه الصيغة

post-15367-071153100 1349676696_thumb.gi

za-Attendance-UP.rar

بالتوفيق

المرفقات
DD1.gif
1
#15

ربنا يجزيك خير وجاري التنفيذ

#16

أسأل الله لك عمرا عامرا بالخيرات ونور الايمان وعافية الابدان وطول عمر في طاعة الرحمن ويذهب عنك هموم الحياة وأن يجيرك من النيران ويسكنك أعلى الجنان انت وجميع الأخوه بهذا المنتدى الرائع واجابتك أكثر من رائعة نفع الله بك وجعله في ميزانك .

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