SEMO.Pa3x

عموما لحل المشكلة: ضعي هذه الاكواد كما موضح لك في الصورة Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:01:00"), "Save1" End Sub ثم ضعي هذه الاكواد كما موضح لك في الصورة Sub Save1() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True Application.OnTime Now + TimeValue("00:01:00"), "Save1" End Sub

وعليكم السلام, اختي الفاضلة @saraali انتي في القسم خطأ. هنا قسم الاكسل: https://www.officena.net/ib/forum/135-منتدى-الاكسيل-excel/ ضعي مُشكلتك فيه وستجدين من يساعدك. حسنين

وعليكم السلام. قم بوضع اداة الـ ComboBox اعطها اي اسم مثلا ( Comb_List_Report ) ثم اذهب الى خيارات الكومبوبوكس بيانات > نوع مصدر الصف > قائمة القيم اكتب في حدث Form_Load For Each accObject In CurrentProject.AllReports Me.Comb_List_Report.AddItem accObject.Name Next حسنين

طيب، كل الذي ذكرته سهل التنفيذ. ساعطيك رأس الخيط وانت تكفل بالبحث والتنفيذ برنامجك الحالي الذي تروم لتنفيذه يسمى بـ الحكومة الالكترونية حيث تكون الجداول على السيرفر او على جهاز المشاركة وتكون قواعد البيانات على كومبيوترات اخرى لها صلاحيات معينة اي لكل كومبيوتر صلاحيات معينة في القراءة والكتابة من وعلى الجداول. تحتاج في الجداول لوجود اعمدة Yes/No لكل قسم ، مثلا للمدير العام, لقسم الانتاج ,, .. الخ ، مثل لو جاء كتاب او مراسلة قام بأستلامها مكتب السكرتير قام بالتهميش عليها ثم وضع عليها Yes اما عمود المدير العام، فانها سوف تنعرض لدى المدير العام ولا احد سواه،، بإستخدام Form_Timer ستقوم قاعدة بيانات المدير العام وحسب الوقت المعطى لها بعمل Requery للبيانات لجلبها اوتماتيكياً بعد ظهورها لدى لدى المدير سينظر في الطلب ويختار في تحويله اما للسكرتير او لقسم معين مع ترك تهميش المدير ( ملاحظات ) ... الخ

اقتراحي: تسلسل الكتب التاريخ اسم الدائرة او المركز او الشركة..الخ رقم الكتاب تاريخ الكتاب الموضوع

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

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

حسنا جدا , الطريقة تحتاج الى فنجان قهوة ومجموعة اجهزة مربوطة بشبكة داخلية ( Share Local ) عزيزي, مختصر الطريقة: تحتاج لمجموعة من الاعمدة وتكون نوع بياناتها Yes/No قيم منطقية كل عمود يعرض البيانات لشخص مثلا لو وضعت على الكتاب Yes للمدير تذهب له وهكذا للباقين. خلي افضى شوي واشرحلك اكثر.

حسنا، اسمح لي بطرح المزيد من الاسئلة كوني لم اتعامل سابقا مع هكذا نظم. بعد اطلاع المدير العام عليها اين ستذهب الى من؟ اقصد من سيطلع عليها بعد المدير ؟ وباقي الاقسام كذلك , مثلا مراسلة خارجية لمدير الانتاج بعد اطلاعه عليها اين ستذهب ؟ من سيطلع عليها بعده؟ لو سمحت اشرح لي هنا اكثر ثانيا: كيف يتم الرد هل هو بكتابة توقيع على الاوراق او ختم, او يتم الرد بطباعة كتاب من قاعدة البيانات مثلا: نرفق لكم ردنا على كتابكم ذو العدد 11 بتاريخ كذا...الخ بالنسبة لحفظه كـ صورة ضوئية فهذا امر يسير جدا ، ممكن اخليها تحفظ صورة صورة او دفعة واحدة بأستخدام الفيدر ( Feeder )

وعليكم السلام. ممكن تشرح فكرة البرنامج بصورة اسهل ( يعني اشرحه كـ امثلة من الواقع ) يعني انا فهمت من شرحك انك تريد عمل اشبه ببرنامج التواصل الاجتماعي مثلا ( فيسبوك ) بأرسال الكتب الصادرة والواردة والتخاطب بين الشعب والاقسام مع ظهور التنبيهات مثلا ( لديك بريد من القسم الفلاني ) اذا كنت فاهم شرحك خطأ صححلي ماذا تقصد بـ

حسناً، لا مشكلة. اولا: قم بنسخ عمود الارقام المرفوضة من الاكسل ثم قم بفتح الجدول tbl_Exception والصقهم به. الان عندما تقوم بادخال احد الارقام المرفوضة ستظهر رسالة تخبرك بذلك والعكس سيقوم بحفظه حسنين Haj.accdb

لم افهم قصدك

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

passAgain: XOREncryption(KEY_ENDE(),"النص او الرقم الذي تريد تشفيره") من المعروف ان كل خوارزمية تشفير مثلا XOR , AES, RSA ... ألخ تحتاج الى شيئين ( مفتاح ) وهو للتشفير وفك التشفير و يحتاج النص او الرقم الذي تريد تشفيره،، حيث ان KEY_ENDE() يمثل مفتاح التشفير والفك. الذي قمت انا بتعريفه كـ فنكشن في الكلاس والذي يحمل القيمة PA$X Function KEY_ENDE() KEY_ENDE = "PA$X" End Function حسنين

وعليكم السلام، تفضل سويت لك مشروع صغير. Dim Shell Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set link = Shell.CreateShortcut(DesktopPath & "\" & CurrentProject.Name & ".lnk") link.Description = "shortcut" link.TargetPath = CurrentDb.Name link.WindowStyle = 3 link.Save يأخذ الاسم للقاعدة الحالية ثم يعمل لها اختصار الى سطح المكتب بنفس الاسم والايقونة حسنين shortcut_SEMO_Pa3x.accdb

=XORDecryption(KEY_ENDE();"701D6068")

الله يجييك مُعلمي الغالي، نورت موضوعي المتواضع. شكرا لك.

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

غالبا ما احتاج طريقة تفكيك الحمايات ليس للعبث وسرقة جهد المبرمج وانما لتحليل الحماية و لصناعة حماية اقوى منها او على الاقل تظل صامدة لفترة طويلة. حسنين

وعليكم السلام, راجع موضوعي هنا حسنين

ماهي صيغة قاعدة البيانات المحمية ؟

بالفعل قمت بكتابة كود لك. للاسف لا املك اكسس 2003 لدي اكسس 2016.

بطبيعة الحال القرص C يحتاج صلاحيات Administrator للقراءة والكتابة عليه.

المنتدى ممتلئ بالشروحات فقط تعب نفسك وابحث.

تفضل قمت بكتابة مثال بسيط لك. حسنين SEMO_Pa3x_Color.accdb