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

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

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

السلام عليكم ورحمة الله و بركاته كيف يمكن تشغيل استعلام الحذف من خلال زر الحذف من النموذج عن طريق الكود وجزاكم الله خيرا 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

صفحة مفيدة الأكسس 32 بت، 64 بت

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

شكراً أستاذى @ابا جودى ظهرت أول صورة فقط بطريقة مكررة فى باقى السجلات و لأنى أحتاج الصور فى عملى اضطررت الى الانتقال الى اوفيس 2016

شكراً أستاذى

أستاذى @ابوخليل بعد بحث فعلا صدق كلامك (فالصورة في 2003 ليس لها مصدر عنصر تحكم) لا أعلم ولكن كان يعمل لمدة طويلة مصدر الصور خارجى غير منضمة هل يمكن اظهارها أم لا Photo.rar

للرفع

حصلتلى قبل كده وكان الحل الوحيد تغيير ويندوذ 😂😂😂😂 بس أكيد ليها حل صورة المشكلة

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

هذا يفتح الرسام وومكن أن يفتح برامج أخرى Dim retVal retVal = Shell("c:\windows\system32\mspaint.exe")

للرفع

شكراً أستاذى @kaser906 شكراً أستاذى @ishak19 فعلا عند فتح الملف ادمن ييتغير التاريخ هل هناك طريق لفتح الملف ادمن من خلال البرنامج

أسف أقصد لم يتم تغيير التاريخ

لم يتم تغيير الساعة نهائيا

تفضل Lab.rar