نجوم المشاركات

الاخوة الكرام السلام عليكم ورحمة الله وبركاته مرفق مثال بسيط لعمل تصفية XFilter.rar دمتم بكل خير تحياتي

وعليكم السلام اخوي امير 🙂 رجاء الانتباه لقوانين المنتدى : 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 🙂 اما جواب سؤالك ، فارجو ان يفيدك هذا الرابط : جعفر

وعليكم السلام 🙂 لا تحتاج الى برنامج ، فالاكسس كفيل بحل المشكلة ، وذلك بعمل ضغط واصلاح لقاعدة البيانات Compact and Repair ، ولكن ، ستعود المشكلة مرة اخرى ، لذا يجب عليك ادخال/تغيير هذه المادة في الريجستري Registery ، عن طريق اوامر في cmd ، كما هو موضح في الرابط المرفق : https://support.office.com/en-ie/article/access-reports-that-databases-are-in-an-inconsistent-state--7ec975da-f7a9-4414-a306-d3a7c422dc1d جعفر

يمكنك استخدام الدالة DateAdd لزيادة او انقاص عدد من الايام او الاشهر او السنوات (مع مراعاة الاشارة السالبة) DateAdd("d";-[المدة];[التاريخ]) "للايام" DateAdd("m";-[المدة];[التاريخ]) "للاشهر" DateAdd("yyyy";-[المدة];[التاريخ]) "للسنوات" وهذا جدول يوضح المتغيرات اللمطلوبة للعمل

السلام عليكم تفضل اخي الكريم اعلمنا النتائج test1.rar

ربما كان المطلوب Trakiyat.xlsx

في الخلية D2 هذه المعادلة وتسحب نزولاً =CHOOSE((A2=C2)+1,B2-A2,0) في الخلية E2 هذه المعادلة وتسحب نزولاً =CHOOSE((A2=C2)+1,$B$1,$C$1) الملف مرفق OLD_NEW_RATEB.xlsx

اخوتي واساتذتي الكرام .. أضع بين أيديكم البرنامج مفتوح المصدر البرنامج مكون من عدة اجزاء الجزء الاول وهو البرنامج الرئيسي protection_trial وهو المسؤول عن قراءة مكونات جهاز العميل (قراءة سيريال الـ UUID و اسم المعالج) لتوليد رقم نسخة فريد خاص بجهاز العميل يقوم العميل بارساله الى المبرمج. ملاحظة1: في البداية وقبل ارسال البرنامج لاي عميل قم برفع المستند النصي المرفق Active1.txt الى موقع الـ dropbox واعمل للمستند مشاركة واستخرج من رابط المشاركة رمز مشابه لهذا الرمز (n702324j1aclxel) واستبدله في البرنامج لديك If CheckNetFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0") = True Then MyString = Decrypt(RTrim(LTrim(GetFromWebpage("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) If MyString = "" Then MyString = Decrypt(RTrim(LTrim(ReadURLFile("https://dl.dropboxusercontent.com/s/n702324j1aclxel/active1.txt?dl=0")))) الخطوة السابقة تفعلها للمرة الاولى فقط. الجزء الثاني من البرنامج وهو برنامج التشفير encrept_data وهو خاص بالمبرمج حيث يقوم المبرمج بأخذ رقم النسخة السابق من العميل ووضعه في المستند النصي المرفق مع برنامج التشفير active1 -original.txt مع تحديد تاريخ بداية فترة التفعيل ونهايتها كما هو موضح داخل المستند ومن ثم فتح برنامج التشفير ومة خلال النموذج الاول frm اضغط مباشرة على كلمة تشفير النص وذلك لتوليد مستند نصي آخر اسمه Active1.txt فيه تشفير لبيانات المستند النصي السابق .. قم برفع المستند النصي Active1.txt على موقع الـ dropbox بدون حذف الملف القديم الموجود على الموقع ( فقط ارفعه على نفس المكان ليقوم الموقع باستبدال الملف القديم بالجديد تلقائياً بدون تغيير رابط المشاركة) في كل مرة تقوم باضافة عميل جديد كل ماعليك القيام به هو فتح مستند النص active1 -original.txt ثم قم باضافة رقم نسخة العميل وتاريخ فترة تفعيل البرنامج ومن ثم تشغيل برنامج التشفير encrept_data ومن ثم رفع المستند النصي الناتج Active1.txt الى موقع الـ dropbox مباشرة في نفس مكان الملف القديم مع مراعات عدم حذف القديم لكي لاتفقد رابط المشاركة وهذا أمر هام جداً يرجى الانتباه له تحياتي encrept_data.zip protection_trial.mdb

سؤال : هل يمكن حصر رموز الأخطاء التي تظهر في رسائل نظام الأكسيس ، للتعرف على وصف كل منها ، ضمن جدول و تطبيق للبحث يمكن من خلاله البحث عبر شبكة الانترنت ( Google تحديدا ) عن أسباب الخطأ و حلوله ؟ الجواب : نعم و الحل في التطبيق المرفق تنويه : الجدول يحمل 2977 رمز خطأ و و صفه باللغة الانجليزية ، هذه دعوة لتوسيع التطبيق و اضافة تراجم لأوصاف رموز الأخطاء في الجدول ، مع وصف للحلول و الحالات التي تطلق رسائل الخطأ لكل رمز ، لعموم الفائدة ، كما يمكن استخدامه كمكتبة شخصية لتجميع الملاحظات حول الاخطاء التي تواجه كل منا . و الله من وراء القصد ... NA__ErrorCodeArchive.accdb

السلام عليكم ورحمة الله يوجد عندى برنامج عند الفتح تظهر رسالة unrecognise database format database is in an consistent state اريد برنامج يعمل ريكفري يكون مجانا ومضمون وشكر من فضلك انتبه بأن ترفع المشاركة فى القسم المخصص لها لتحصل على الإجابة المرجوة -تم نقل مشاركتك الى قسم الأكسيس

السلام عليكم حبيت اعمل مشاركة بسيطة وياكم بعض اكواد VBA لكل من يبي يعمل واجهة نظامية تحياتي ADO.rar

السلام عليكم ورحمة الله وبركاته ،، استكمالا لموضوع الاستاذ حسين فى هذه المشاركة الخاص بتغيير الالوان فى الاكسس .. جزاه الله كل خير فرأيت ان افرد مشاركة لهذا الموضوع ارجو ان تتقبلوه منى هدية لكم اولا : مرفق ملف PDF به كل الالوان ورقمها يمكنك فقط وضع الرقم فى خصائص الحقل او الخلفية او عن طريق الكود وسيعطى لك اللون المطلوب Access Color Code.pdf ثانياً: لو اخترنا مثلا اللون الفسفورى مثل ما ذكر حبيبنا استاذ حسين بارك الله فيه فنجد ان اللون الفسفورى يكتب فى الكود بالرقم التالي txt_RGB.BackColor = RGB(191, 255, 0) وفى خصائص النموذج تجده هكذا #BFFF00 ومرفق مثال تطبيقى بسيط وقد تم وضع رقم اللون الفسفورى فى خصائص الخلفية وايضا تم وضع حقل لتغيير الخلفية له عن طريق الكود M.S - RGB 24-11-2019.rar

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته احياناً وبعد انهاء البرنامج نحتاج الى تغيير الوان نماذج البرنامج اما كتغيير او تحديث او ... الخ فقمت بتصميم شىء بسيط ممكن ان نسميه Themes الفكرة ببساطة اننا نقوم بانشاء جدول يتكون من اسم Theme وثلاث حقول يتم فيه وضع الوان FormHeader و FormFooter و Detail وفي النموذج الرئيسي للبرنامج نقوم باختيار Theme فيتم وضع هذا الاختيار في متغيير ويتم تطبيق هذه Theme على كافة النماذج بعد وضع كود عند التحميل كما يوجد نموذج باسم frmThemes يمكننا من خلاله التحكم باسم Theme والوان FormHeader و FormFooter و Detail لتغيير الالوان في نموذج frmThemes اضغط DblClick على مربع النص الذي تريد تغيير لونه لتظهر قائمة الالوان البرنامج يمكن تطويره اكثر ليعمل على TextBox و Command كما يمكن ان يشمل التقارير لذلك فأرجو من الله ان ينتفع به كل طالب علم لا اطيل عليكم مرفق البرنامج بسنختين mdb و accdb DB_Themes-accdb.rar DB_Themes1-mdb.rar تحياتي

تفضل اخي العزيز ارجو ان يكون طلبك asd.rar

سلمت يداك استاذنا الفاضل تحياتي

إلى السيد hamed12345 كلمة المرور هي : 1992

بارك الله فيكم كفيتم ووفيتم ربي يجعلها في ميزان حسانتكم ويعطيكم كل ما تتمنوا

السلام عليكم راجع الملف المرفق لعل فيه ما تريد... بن علية حاجي نسبة إجمالية.xlsx

خوية جعفر عاشت ايدك للتذكير ارجوا المعذرة اني شكيت الموضوع يرادله توضيح اكثر بس كلت يمكن ماكو بي اشكال يلي عفته .

افضل موقع انا فعلا استفدت منه كتيييير وكل الموجودين فعلا خبرات ويستحقوا كل التقدير والاحترام شكرا جزيلا علي

تفضل اخي الكريم مثال(1).rar تحياتي

باذن الله

نسبة (بتحفظ).xlsx

السلام عليكم تفضل اخي الكريم Saifi - نسخة.rar تحياتي

تفضل اخي الكريم ارجو ان يكون هو المطلوب مثال(1).accdb تحياتي

أ.أحمد العيسى هو كان أفضل لو أرفقت مثالا تتم عليه التعديلات المناسبة كما قال أخى @محمد سلامة جرب هذا المرفق عسى أن يكون المطلوب سن المعاش.accdb

بعد شرح أخى جعفر زاده الله علما فلا مجال للحديث .. ولكنى أحببت المشاركة من أجل المشاركة 😊 ضع ملف الإكسيل فى نفس مسار قاعدة البيانات بنفس المسمى 01.xlsx وجرب المرفق وستكون النتيجة بجدول إسمه Nom .. عسى أن يكون المطلوب بالتوفيق ImpotrFromExcel.accdb

تفضل الطريقة الكاملة بالصور 🙂 1. تضبيط عملية الاستيراد ، ونقوم بها مرة واحدة فقط : . . . . في الصورة اعلاه ، نلاحظ ان الاكسس يخبرنا ، ان نوع العمود Data Type باللون الاسود ، هو نص Text (الاكسس ينظر الى اول معلومة في العمود ، ويتخذ القرار في نوع هذا الحقل) ، الاكسل متسامح في عرض اكثر من نوع واحد من البيانات في عمود واحد ، بينما الاكسس كونه قاعدة بيانات ، فلا يستطيع التعامل بأكثر من نوع من المعلومات في حقل واحد ، لذا ، لو نقرت على زر Next ، وبدون ان تختار Data Type لكل عمود ، وبعد ان تتم عملية الاستيراد ، قد تلاحظ وجود جدول جديد اسمه "أخطاء الاستيراد" (كما هو الحال هنا: https://www.officena.net/ib/topic/112647-مساعدة-فشل-في-تحويل-النوع/?do=findComment&comment=678047 ) فالحل: 1. من الاكسل : النظر في بيانات ملف الاكسل والتأكد بأن جميع بيانات الحقل من نفس النوع ، ومن واقع جدول الاخطاء ، ارجع الى ملف الاكسل وقم بتصحيح هذه المعلومات ، وقم بإستيرادها مرة اخرى ، وستبقى بعض الاخطاء الغير مهمة والتي يمكن تجاهلها. 2. من الاكسس : عند استيراد البيانات لأول مرة من الاكسل (طبعا نحن نستوردها الى جدول مؤقت ، ومن ثم يتم يقوم المبرمج بتوزيع البيانات الى الجداول والحقول الخاصة بها) ، وعند الوصول الى الصورة اعلاه ، وقبل النقر على الزر Next ، انقر في كل عمود ، واختار "نص" في نوع الحقل ، واعمل هذا لجميع الاعمدة ، طبعا هذا سيجعل الاكسس يستورد جميع الاعمدة كـ نص ، ويجب عليك معالجة اختلاف نوع البيانات في الاكسس ، بعد استيراد البيانات وعند توزيع بيانات هذا الجدول المؤقت الى الجداول الثابته عن طريق استعلامات ، الميزة في هذه الطريقة ان جميع البيانات يتم استيرادها ، والعيب فيها ، ان التنظيف يتم في الاكسس (ولكن في بيئة انت مرتاح في التعامل معها) ، ولا تنسى انه في الكثير من الاحيان تأتي ملفات الاكسل من مصادر لا نملك التحكم في تغييرها. . . . وهذه نتائج البيانات التي تم استيرادها ، الى الجدول المؤقت Feuil1 : . نعمل جدول ثابت ، حتى نستورد البيانات اليه : . ثم نعمل استعلام إلحاقي ، حتى نضيف البيانات الموجودة في الجدول المؤقت ، الى الجدول الثابت : . . والآن ، ولما يكون عندنا بيانات جديدة (في نفس اسم ملف الاكسل السابق) نريد اضافتها الى قاعدة البيانات ، فقط نقوم بعمل الخطوات التالية : . . . . جعفر

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

السلام عليكم Adobe Acrobat 10.0 Type Library

الصورة لا تنفع لمعالجة الامر فلا يمكن وضع معادلات على صورة يجب ارفاق الملف لاكتشاف الخطأ

ان ما تراه في صفوف الحتياط هو رقم الاستاذ وليس رقم القاعة للمزيد والتأكد هذا الملف من جديد مع (تعديل بسيط في الكود) ليظهر لك اسماء الاساتذة الاحتياط Option Explicit Sub For_matloub_2(col) 'Created by_salim 23/11/2019 'this code distribute teachers randomly Dim i%, m%, x%, k% Dim MY_max%, ro% Dim st$ m = 8 Dim minn%: minn = 1 Dim maxx% Dim arr1(), arr2() Dim how_many Dim myArrayList As Object, myArrayList2 As Object MY_max = Cells(Rows.Count, 2).End(3).Row If Not IsNumeric([E2]) _ Or [E2] < 1 Or [E2] > 18 Then maxx = 18 Else maxx = Int([E2]) End If how_many = maxx - minn + 1 Range(col & 8, Range(col & 7).End(4)).ClearContents Set myArrayList = CreateObject("System.Collections.ArrayList") For i = 1 To maxx - minn + 1 myArrayList.Add Rnd(i) Next arr1() = myArrayList.toarray Set myArrayList2 = myArrayList.Clone myArrayList2.Sort arr2() = myArrayList2.toarray For i = LBound(arr2) To UBound(arr2) If i > how_many - 1 Then Exit For x = Application.Match(arr2(i), arr1, 0) Range(col & m) = _ IIf(m > MY_max - [f2], "احتياط :" & Cells(x + minn + 6, 3), Cells(x + minn + 6, 3)) m = m + 1 Next Set myArrayList = Nothing: Erase arr1 Set myArrayList2 = Nothing: Erase arr2 End Sub '++++++++++++++++++++++++++++++++++++++++++++++++ Sub EXTARCT_for_matloub_2() Dim arr, tt% arr = Array("D", "E", "F", "G", "H", "I", "J", "K", "L", "M") For tt = LBound(arr) To UBound(arr) Call For_matloub_2(arr(tt)) Next Erase arr End Sub الملف للمرة الثالثة Exam _new.xlsm

وعليكم السلام الخطأ كان منك انت فى المعادلة-تم ضبط معادلات جميع صفحات الملف الاجازة2.xlsx

تفضل اخي تم تعديل الكود ووضعه في حدث عند التحميل وهو الان يعمل بدون مشاكل والحمد لله Private Sub Form_Load() If Now() >= #12:00:00 AM# And Now() <= #7:00:00 AM# Then Sdate.Value = Date - 1 Else Sdate.Value = Date End If End Sub البرنامج اكثر من رائع اخي الكريم وفقك الله لما يحب ويرضى تحياتي

بارك الله فيكم اخواننا الاعزاء الاستاذ محمد سلامة والاستاذ حربي ونشكركم على دعمكم المعنوي لنا وان شاء الله نكن عند حسن ظنكم

وهذا افضل مثال يقوم ببحث شامل عن المتشابهات لاستاذنا الفاضل @محمد طاهر أاآإ ةته ىي ئءؤو Search.rar تحياتي

بارك الله فيك اخي الكريم فقط احذف المعيار التالي من الاستعلام [forms]![Data01]![ItemBarcode] prov - Copy.rar تحياتي

وعليكم السلام ورحمة الله وبركاته انت تريد الطباعة حسب الكود الذي تختاره ام ماذا ؟ برجاء التوضح ولك الشكر تحياتي

بارك الله لكم على مجهودكم شباب أنا عملت برنامج يحسب عمر الأنسان بالسنوات و الأشهر و الأيام هو يعمل بشكل جيد سوف أقدمه لكم إذا كان عندكم ملاحظات تساعدنني في تحسينه إخوتي في الله حساب العمر.rar

السلام عليكم حل آخر باستعمال أعمدة إضافية... بن علية حاجي قائمة منسدلة 2مطاطية.xlsx

وعليكم السلام-تفضل قائمة منسدلة 1مطاطية.xlsx

تم معاجة الامر عليك اكمال الجدول في الصفحة الاولى بالاسعار المناسبة من الى تستطيع عدم ذكر العكس مثلا من جدة الى الرياض دون كتابة من الرياض الى جدة (المعادلات تعمل حتى الصف رقم 100) Prices_new.xlsx

السلام عليكم 🙂 شكرا اخي كاسر ، فلقد تذكرت اني مررت بمثل هذه المشكلة ، ودخت الى ان عرفت المشكلة 🙂 لما تستخدم الاكسس 2007 فما فوق ، فالاكسس يحمي الكمبيوتر ولا يسمح لك ان تفتح اي برنامج ، اذا اردت فتح البرنامج في مجلد "غير موثوق به" ، لذا ، اذا فتحت البرنامج في مجلد غير موثوق به ، سيظهر لك هذا الخط الاصفر ، وبه زر "تمكين المحتوى" : . لذا عليك بضغط الزر ، وسيعمل الكود في برنامجك بطريقة عادية. ولكن ، وحتى لا تحصل على هذه الرسائل دائما ، يجب عليك ان تعمل مجلد/مجلدات موثوق بها : ويجب ان تتأكد من انك سمحت للاكسس ان يعطيك الخط الاصفر : بعد هذا ، المفروض ان برنامجك يشتغل عدل 🙂 ولكن ، هناك مشكلة يقوم بها الكثير من المبرمجين ، وهذه المشكلة في جعل النموذج: منبثق = نعم ، شكلي او مشروط = نعم ، ويجعل النموذج ينفتح على حجم الشاشة (docmd.maximize) : . فلما ينفتح البرنامج ، سيكون الخط الاصفر خلف النموذج ، فلن تراه ، وعليه لن يعمل البرنامج !! جعفر

اعتقد انها تحتاج لبرنامج ADD IN السؤال موجه لمبرمجي الاكسل المحترفين مع احترامي للجميع

اضافة الى ماتقدم به الاستاذ ابو آدم بارك الله فيه .. إليكم جدول اخطاء الاكسس بالعربي جدول رسائل أخطاء الأكسس.zip

ربما يفيد المهتمين بترجمة الأسماء أو ترجمة النصوص عموما هذا الفيديو وفقنا الله جميعا للخير

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

الكرام المتألقون ..... مرحباً بكم بعد رد المتألق nart Lebzo .. الموضوع سخن فى دماغى ... صحيح هو كله جاى من أصل البرنامج الهايل الذى قدمه ... لكننى حاولت الاجتهاد لعمل الموضوع بشكل لطيف ويخدم المبرمجين كالتالى: طبعاً المعلومات الموجودة تم التغيير فيها لغرض استخدامها فى المثال فقط فى شاشة الترحيب أخفيت حقول الجدول حتى يتم التسجيل فيها بصمت. فى شاشة تأكيد الخروج أخفيت الحقول أيضاً وتأكيداً لصحة الحدث جعلته مع زر أمر الموافقة على الخروج من البرنامج فيكون آخر ما يتم تسجيله فى البرنامج قبل الخروج هو سجل حدث الخروج. فى الشاشة الرئيسية وضعت أكثر من شكل للمتابعة من خلال المبرمج .. وعليه أن يمنع مستخدمية من الوصول لهذا النموذج ويكون أداة له هو .. كل حسب طريقته. وكل يبدع حسب طريقته بقى..... يعنى حساب مدد الاستخدام ... إلخ يارب يعجبكم تحياتى محمد ندا User_Tracing_Tool.rar

اخي العزيز محمد اليك هذه الفكرة والفضل لله ثم لمن انجزها http://www.officena.net/ib/index.php?showtopic=17613

السلام عليكم أخي الكريم في المرفقات ملف يقوم بما تطلب وللأمانة فإن هذا الملف قمت بتحميله من أحد المنتديات , لا أذكر أيها ولا أذكر اسم صاحبها , جزاه الله خيراً وجعله في ميزان حسناته. فكرة البرنامج : قم بإضافة النموذج والجدول إلى قاعدة بياناتك التي تريد مراقبتها , وعند فتح قاعدة البيانات يقوم بتشغيل هذا النموذج ثم يغلقه فيقوم بإضافة بيانات المستخدم إلى جدول دون أن يشعر. والسلام عليكم ________________.rar