محمد احمد لطفى

المشكلة ماالت قائمة نموذج استارت يغلق و بعد 13 ثانية النموذج الثانى يفتح المطلوب نموذج ستارت يفتح 13 ثانية ثم يغلق و يفتح النموذج الاخر

موضوع رائع ولكن أعتقد الموضوع يختلف

النموذج بيتأخر علشان فى داتا كتير فعلا و استعلامات

13 ثانية وبعدها Form star يغلق و يفح الفورم الاخر و ياريت يتزامن مع شريط التحميل

البرنامج كبير 100 ميجا ومرفق ملف للتعديل عليه او شرح كيفيفة عملها لأن فى برنامجى يغلق فورم شريط التحميل و بعد ثوان 5 او 6 او 7 لا اتذكر يفتح الفورم التالى

السلام عليكم ورحمة الله و بركاته برنامجى النموذج يفتح فى خلال 13 ثانية اى وجود نافذة اكسس كل هذه المدة فالبحث وجدت فى موضوع استاذى / ابا جودى موضوع صلاحيات المستخدمين نموذج به شريط متحرك يفتح بسرعة و بوقت يفتح النموذج التالى ولكن لا استطيع تطبيقها المطلوب كيف اتحكم فى غلق النموذج الذى به شريط متحرك ( اى عندما يصل الى 100 % ) يغلق و يتم فتح النموذج الاخر Test.rar

ضع مثال حتى نستطيع المساعدة

كل عام و أنتم طيبون وبصحة وسلامة

للرفع

للرفع 😅

ولكن بالطريقة لا اعرف التحكم بالجدول و النماذج لا يوجد زر اغلاق أعتقد أنها من خصائص النموذج للرفع

جزاك الله خيرا أستاذى د.كاف يار حلت المشكلة ولكن أريد أن أفهم قبل أن أنفذها كان البرنامج يفتح نماذج كاملة و نماذج غير كاملة أقصد هل لها علاقة بخائص كل نموذج أيضا

للرفع

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

جزاك الله خيرا

شكرا أستاذى @ابا جودى شكرا أستاذى @عبد اللطيف سلوم تمت الاجابة

السلام عليكم ورحمة الله و بركاته كيف يمكن تشغيل استعلام الحذف من خلال زر الحذف من النموذج عن طريق الكود وجزاكم الله خيرا testcopy.mdb

لم يحدث شىء بعد كتابة اسم محمد كان مفترض ان تكون المدينة القاهرة ولكن لم يحدث شيىء شكرا ً استاذى @ابا جودى هذا هوه المطلوب اضافة If DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]") Then Me.city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]") ElseIf DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]") Then Me.city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]") Else Me.city = "مدينة غير موجودة" End If

بداية انا عاوز اكتب اذا كان الاسم مطابق للاسم فى جدول TableA اذن Me.city = Nz(DLookup("city", "[TableA]", "[namex]='" & Me.[namex] & "'"), "") elseif الاسم مطابق للاسم فى جدول TableB اذن Me.city = Nz(DLookup("city", "[TableB]", "[namex]='" & Me.[namex] & "'"), "") elseif Me.city = "مدينة غير موجودة " end if كود أستاذى @د.كاف يار لم يعمل و شكرا للمساعدة

استاذى @ابا جودى Me.city = Nz(DLookup("city", "[TableA]", "[namex]='" & Me.[namex] & "'"), "") Me.city = Nz(DLookup("city", "[TableB]", "[namex]='" & Me.[namex] & "'"), "") عند اضافة اسم اسم يبحث البرنامج فى الجدولين عن المدينة و ينقلها اريد استخدام if اذا (محمد) موجود فى Table ينقل المدينة الى النموذج فى خانة المدينة و اذا لم يكن موجود فى الجدول ينتقل الى الجدول TableB واذا لم يكن موجود ايضا فيه يكتب فى خانة المدينة غير موجودة 😂😂

للرفع

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يوجد ثلاث جداول جدول Main وهو يأخذ بياناته من جدولين TableA and TableB حيث من خلال النموذج Main عند كتابة اسم بعد التحديث ينقل المدينة من الجدولين المطلوب عند كتابة اسم اذا كان موجود فى جدول TableA ينقل المدينة اذا كان غير موجود بجدول TableA ينقله المدينة من جدول TableB وكذلك اذا كان غير موجود فى TableB يضع فى المدينة "غير موجودة" مع العلم أن TableA و TableB مختلفى البيانات اى لا يوجد بينهما تكرار وجزاكم الله خيرً testcopy.mdb

بعد التجربة الكود الاول فى حدث عند النقر ( مرة واحده ) ولكن اضغط مرتين ستجد يذهب الى الخلية المطلوبة كود أستاذ / @qathi فى حدث عند النقر (مرة واحدة ) يذهب الى الخلية المطلوبة

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

تفضل كما طلبت تم العمل على id فى النموذج الفرعى و يمكنك التكرار فى اى خليه اخرى كما تريد الموظفين.accdb