kanory

واياك استاذي @أحمد وجيه

جرب المرفق كده ..... واعلمنا بالنتيجة Kan_الموردين1.accdb

نعم بالضبظ هو الموضوع ... انا اقول شفت موضوع في هذا الخصوص بارك الله فيك اخي واستاذي @ابوبسمله كتب الله اجرك ورحم الله والديك

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

انا استخدم 19 وهي موجودة .... وهذه النسخة المستخدمة .....

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

ما شاء الله تبارك الله تستاهل اخي @Moosak مزيد من التألق والى الامام ...

في اوفيس 16 يتم تنسيقها مثلها مثل مربع النص ولا تحتاج تحايل .

هل النموذج المشار الية ظاهر طوال فترة تشغيل النموذج الرئيسي وحتى بعد الضغط على زر فتح التقرير ؟؟؟ اذا كانت الاجابة نعم استخدم هذا في مربع نص التاريخ الموجود في التقرير كتجربة هل يظهر التاريخ ؟؟؟ = [forms]![start]![frm].[Form]![date_m]

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

دقق في النتيجة الموجودة في الاستعلام هل هي صحيحة حسب المدخل في النموذج اسفله ... وهل هو هذا المطلوب

مشاركة مع المهندس @Eng.Qassim استخدم هذا ....... DoCmd.CopyObject , "tbLNew", acTable, "tblOld" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbLNew.sdate FROM tbLNew;" DoCmd.SetWarnings True

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

ما شاء الله تبارك الله استاذي الحبيب @مبرمج متقاعد ثري دائما ... احيانا يحتاج الواحد يخرج من الصندوق لكي يفكر ... احسنت

كلامك عام وايضا الكود عام ...ز تفضل ..... 'starnet(http://www.accesswordkingdome.com/) sourcedb = "D:\sterile_dep\pre_db\Main_program.accdb" targetdb = "D:\sterile_dep\Main_program.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Set accessApplication = Nothing DoCmd.Close acForm, "makeAccde" DoCmd.Quit

بالنسبة للتسلسل نحتاج رقم وليس نص جرب الان واخبرنا ...................... الموردين4 (1).accdb

طيب :::: اضفنا حقل في الجدول id_id وذلك لضمان تسلسل السجلات بالجدول .... جرب المرفق واعلمنا .... الموردين4.accdb

تقصد بهذه الصورة .....

حياك الله اخي الحبيب @ابوبسمله جزاك الله خيرا

اقرا هذ الموضوع وغيره من موضوعات

(إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ

اخي الكريم هل النماذج كانت فيها اكواد وعناصر .... لانها تبدو فارغة من الاكواد ؟؟

انا مثلك لم اسمع بها ............... بالرغم ان النسخة الموجودة لدي لنفس البرنامج واحدث انظر ....

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

جرب هذا ..... If Me.تم_الدفع = True Then MsgBox "تم السداد" DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdSaveRecord End If