Private Sub أمر18_Click()
If MsgBox(" هل تريد الاضافةً ؟؟ ", vbYesNo, _
" رسالة تأكيد اضافة ") = vbNo Then
Cancel = True
SendKeys "{ESC}"
Exit Sub
End If
End Sub
اريد ان اضع كود الاغلاق بعد هذا الكود ليغلق النوذج ( اين اضعه )
DoCmd.close
مساعدة في كود
مغلق
جرب استخدام الكود التالي
If MsgBox(" åá ÊÑíÏ ÇáÇÖÇÝÉð ¿¿ ", vbYesNo, _
" ÑÓÇáÉ ÊÃßíÏ ÇÖÇÝÉ ") = vbNo Then
Cancel = True
SendKeys "{ESC}"
DoCmd.Close
Exit Sub
End If
DoCmd.Closeشكرا اخي
أخي الكريم
ما فهمته منك أنك تريد إغلاق النموذج في الحالتين سواء اختار المستخدم نعم أو لا في الرسالة وقد جربت المثال حسب ما وصفت فقام بالمطلوب
إذا كان ما تريده غير ذلك فاشرح لي أو أرفق الملف الذي تريد تطبيق المثال عليه وسأجد لك الحل بإذن الله
هذا ما اريده
سوف احاول واخبرك
اخي جزاك الله عنا الف خير
نعم يقوم بأغلاق النوذج ولكن بدون تنفيذ الشرط
يعني يغلق ويحفظ حتى لو ضغطت لا في رسالة الحفظ
أخي الكريم
مسألة الحفظ وعدمه لا علاقة لها بالكود الذي كتبت بل هي مرتبطة بخيارات الأمر docmd.close
ضع السطر التالي بدل السطر الخامس في الكود الذي كتبته لك سابقاً
DoCmd.Close , , acSaveNo
عفوا اخي الكود يعمل عند اضافة سجل
ويسأل هل تريد ان يضيف ان كان الجواب نعم يحفظ
اذا كان الجواب لا يلغي الاضافة
اريد الاضافة وهي اغلاق النموذج بعد تنفيذ السؤال اعلاه
جزاك الله خير
ربما لم استطع ايصال المعلومة
ما اريده
لدي نموذج لادخال البيانات الى الجدول
عند كتابة البيانات لا تضاف مباشره ويكون هناك زر عند الضغط عليه تظهر رسالة سؤال بالموافقة او الرفض عند الموافقة تضاف البيانات الى الجدول
عند الرفض لايتم اضافاتها حتى لو اغلق النموذج بدون الضغط على الزر لا تضاف
اتمنى ان تكون المعلومة وصلت
سؤال اضافي ( اختياري الاجابة )
النموذح عند الفتح يجعل مربعات النص فارغة
لو اردت التعديل هل استطيع مثلا كتابة الاسم وتتعبأ المربعات ذان الصلة بالاسم مباشرة للتعديل
كلي امل في ان تصبر علينا فلدينا الرغبة في التعليم
وفقك الله
حبذا لو أرسلت لي الكود كاملاً على الأقل النموذج والجدول المرتبط به ضعهما في قاعدة بيانات فارغة وأرسلها وسأبذل جهدي في مساعدتك
وفقنا الله وإياك لكل خير
قد تجد فائدة في هذا الموضوع
http://www.arabteam2000.com/vb/showthread....?threadid=13229
أخي الكريم
ما فعلته خطأ والصحيح وضع البيانات في جدول واحد لأنها غير مكررة
إننا نحتاج إلى تقسيم البيانات إذا كان هناك بيانات أساسية غير مكررة وبيانات فرغية مكرر
مثال ذلك جدول في بيانات الطلاب الأساسية وجدول في الغياب ففي الجدول الرئيسي يكون لكل طالب سجل واحد أما في جدول الغياب فكل يوم غياب له سجل خاص ومعنى ذلك أن رقم الطالب لا يتكرر في الجدول الأول ويتكرر في جدول الغياب في هذه الحالة فقط نضع جدولين ونربط بينهما بعلاقة رأس بأطراف
شكرا اخي
ولكن كما تلاحظ في الجدول الاول ( الرقم والاسم )
فااحيانل يكون للشخص رقمين في مدينتين مثلا جده والرياض
فالفكره انني لا اريد ان اكتب الاسم مرتين
وجعلت في الجدول الثاني الرقم الخاص بالاسم مكرر
الرجاء افادتي
هل تعني أن للشخص رقمي جوال ورقمي مكتب ورقمي مكتب !!!
إذا كان الأمر كذلك فهذا ممكن
نعم اخي
الشخص الواحد له رقمي منزل في مدينتين مختلفة
ونفس رقم الجوال
ففكرة في عمل جدولين وربطها افضل من تكرار الاسم
ما اريده اخي كيف اعمل نموذج ادخل للجدولين ( يعني يكون في امكانية ادخل الاسم مره واحده وادخل المدينة ورقم المنزل اكثر من مره
اريد عن فتح النموذج للادخال يكون خالي من البيانات ( معروفة )
اريد عن فتح النموذج للتعديل يكون مربع الاسم مربع سرد به الاسماء الموجوده في الجدول والبيانات الاخرى خاليه بمجرد اختيار الاسم من مربعة السرد تظهر البيانات الخاصه به وعند تغيير الاسم تتغير وهكذا ( غير معروفة )
في كلتا الحالتين لا يتم الحفظ تلقائيا
يوجد زر في الحالتين مكتوب عليه خروج
عند الضغط عليه تظهر رسالة هل تريد الحفظ ، التعديل
اذا ضغط على موافق يغلق مع الحفظ
اذا ضغط على لا يغلق بدون حفظ
(clock)
وفقك الله
أرسلي ما قمت بعمله وسوف أحاول مساعدتك إذا يصعب علي بناء البرنامج من الصفر لكثرة أشغالي هذه الأيام وآمل أن تقبل عذري
قمت بعمل الجداول ونموذج الادخال ونموذج البحث ولكن بجدول واحد
فقمت بالغاءه
وعملت الجدول الذي رايته في المرفقات فقط ولا استطع بناء النموذج على جدولين
لو تكرمت اعمل النموذج فقط بدون تنسيق (عادي ) مع المواصفات اعلاه
الهدف التعليم ومن ثم سوف اقوم بتنسيقه
جزاك الله خيرا
مهما كان حجم ما عملت أرسله لي ، على الأقل حتى أستفيد من جداولك أبني عليها
أخي الكريم
من المعروف في أكسس أنه لا يمكن التراجع عن التغييرات بعد الانتقال من السجل الذي تم التعديل فيه إلى سجل آخر وأنت ربطت مسألة التراجع بالخروج من النموذج
لنفترض التالي
في تموذج التعديل الذي ذكرته اختار المستخدم اسماً من القائمة ثم عدل في بيانات الهواتف الخاصة به
ثم اختار من القائمة اسماً آخر لن يكون بإمكانك التراجع عن التغييرات
بالطبع يمكن الاحتيال على هذه العملية بتخزين التعديلات في جدول مؤقت ثم نقلها إلى الجدول الرئيسي لكنني لا أنصح بذلك
أخبرني عن رأيك في هذا الأمر وأنا معك بإذن الله
اسف على التأخر
ممكن يكون في كود عند التحديث للتغيير الي يحصل
وعلى العموم انا ابغى اتعلم انت ادرى بالصحيح وهو مااريد ان اتعلمه
بارك الله فيك
هذا الموضوع مغلق.