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

السلام عليكم ورحمة الله تعالى وبركاته نظرا للطلب والتساؤلات الكثيرة حول الموضوع او نقاط فرعيه منه قاصدا من ذلك أن يكون الموضوع شاملا ومرجعا للراغبين فى ذلك والدراسبن اليكم بناء القاعدة والذى اتمنى على الله تعالى ان يبدأ البناء وينتهى بشكل احترافى بقدر الإمكان وسوف نبدأ من الصفر تباعا ان شاء الله سوف يتم تحديث الموضوع تباعا الموضوع بأمر الله سوف اضع له الخطوط العريضة طبقا للمؤسسة التى اعمل بها لاننى أصلا سوف اقوم بقاعدة البيانات لمؤسستى وبقدر الإمكان سوف أضع فى الحسبان ان يكون التصميم عام بقدر الإمكان ليتناسب ويتماشى مع الجميع ومع رغباتهم بقدر الإمكان اهلا بكل من يريد المشاركة فى ادراة الموضوع والافكار والتعديل او الاضافة و ...... مبدئيا خلونا نتفق وقتى ضيق فى الفترة المقبلة لما انا مقدم عليه فلذلك ارجو الاعتذار مقدما ان لم التفت الى اى تساؤلات والتى وإن حدث سوف يتم تأجيلها حتى ينتهى مشروع اعداد التطبيق لمؤسستى تماما ان شاء الله بسم الله وعلى بركة الله بداية المشروع اول شئ تصيد وتسجيل الاخطاء بجدول وده وظيفته تسجيل الحطأ باسم الحدث أو الدالة المستخدمة فى الكود عند تنفيذ امر ما ورقم الخطا وصفه للمساعدة مستقبلا فى الوقوف على اماكن الاخطاء لعمل الصيانة اللازمة طبعا تم التطرق اليه فى هذا الموضوع: ويمكنكم الذهاب اليه والمتابعة من هنا طيب حلو جدا جدا وعلشان انا هبدأ بالأكواد ملاحظات هامة جدا جدا جدا جدا لبداية صحيحة واحترافيه : كتابة كود احترافي تتطلب ممارسات جيدة واتباع مبادئ برمجية صحيحة. فيما يلي بعض النصائح التي يمكن أن تساعدك في كتابة كود احترافي: توضيح الكود: استخدم تعليقات لشرح الجزء العلوي من الكود وللأمور المعقدة. اختر أسماء مفيدة وواضحة للمتغيرات والدوال تدل على وظائفها التى تمت كتابتها من اجلها. التنظيم: استخدم الهندسة المعمارية لتنظيم البرنامج إلى وحدات صغيرة وقابلة لإعادة الاستخدام. قم بتقسيم البرنامج إلى وحدات ووظائف مستقلة. الأداء: ابتعد عن الأكواد المكررة وقدّم الأكواد القابلة لإعادة الاستخدام في وحدات. حافظ على الأداء بتجنب العمليات الزائدة غير الضرورية. اختبار الوحدات: قم بكتابة اختبارات للتأكد من أن وحدات الكود الخاصة بك تعمل كما هو متوقع. الأمان: تحقق دائمًا من صحة البيانات الواردة والخارجة من الدوال. تفادى استخدام الأكواد المعرضة لثغرات أمان. تحسين الأداء: استخدم الهندسة العكسية لتحسين الأداء. ابحث عن فرص لتحسين الكفاءة والسرعة. استخدام التعليمات البرمجية النظيفة: ابتعد عن استخدام المتغيرات العالمية عندما لا تكون ضرورية. تجنب الأكواد التي تعتمد على التبديلات الطويلة. توثيق الكود: وفر توثيقًا جيدًا للكود ليسهل على المطورين الآخرين أو نفسك فهم كيف يعمل البرنامج. متابعة المعايير: اتبع معايير البرمجة المتعارف عليها . التحسين المستمر: كن مستعدًا لتحسين الكود الخاص بك بناءً على التعلم وتغييرات متطلبات المشروع. الالتزام بتلك المبادئ يمكن أن يساعدك في كتابة كود أكثر احترافية وقابل للصيانة. حلو الكلام وكل ده هيبان بقدر المستطاع فى التعليمات البرمجية التى سوف تتم تباعا يمكنك استخدام البادئات التالية لتسمية العناصر والكائنات بشكل منظم ويجعل الشيفرة أكثر وضوحًا. البادئات تعتمد على النوع أو الدور الذي تقوم به العناصر: وعلى سبيل المثال وليس الحصر المتغيرات: int للأعداد الصحيحة. dbl للأعداد العشرية. str للنصوص. bool للقيم البولية اى True , False أو Yes , No . Dim intCounter As Integer Dim dblAmount As Double Dim strName As String Dim boolIsValid As Boolean المصفوفات: arr للمصفوفات. Dim arrNames() As String الدوال: Function للدوال التي تعيد قيمة. Sub للإجراءات (دوال بدون إرجاع قيمة). Function CalculateTotal() As Double Sub DisplayMessage() الكائنات: frm للنماذج (Forms). rpt للتقارير (Reports). tbl للجداول (Tables). qry للاستعلامات (Queries). cls للكائنات أو الفئات لتعريف الكلاسات (Classes). bas وحدات الشيفرة- الوحدات النمطية (Modules). tbl للجداول (Tables). qry للاستعلامات (Queries). Dim frmCustomer As Form Dim rptSales As Report Dim tblData As TableDef Dim qryFilteredData As QueryDef الثوابت: c للثوابت. Const cMaxValue As Integer = 100 المتغيرات العامة: g للمتغيرات العامة. Public gCounter As Integer المتغيرات المؤقتة: temp للمتغيرات المؤقتة. Dim tempValue As Integer التعليقات: REM لتعليقات الشيفرة. REM هذا تعليق لشرح الشيفرة الأشكال والعناصر الرسومية: btn للأزرار (Buttons). lbl للتسميات (Labels). txt لحقول النص (Textboxes). chk لمربعات الاختيار (Checkboxes). القوائم والمراقبين: cmb لقائمة الاختيار (Comboboxes). lst لقوائم الاختيار (Listboxes). cb لمراقبات الصندوق (Checkboxes). الكائنات الأخرى: app لكائن التطبيق (Application). cnn لكائن الاتصال (Connection). doc لكائن المستند (Document). الحقول والأعمدة: fld لحقول البيانات (Fields). col لعمود البيانات (Column).

السلام عليكم هذا البرنامج عملته من سنين ، حين كنت اعمل في مكتبة المدرسة برنامج مكتبة مدرسية شامل 1- تسجيل الكتب وتوصيفها 2- تسجيل الطلاب 3- شاشة احترافية لإعارة الكتب واسترجاعها باستخدام قارىء الباركود ، أو باستخدام ادخال رقم الكتاب ورقم الطالب 4 - تقارير متنوعة شاملة 5- محاولة لتفعيل جهاز البصمة للزوار لم تكتمل بعد وميزات اخرى تجدونها عند تجربة البرنامج ارجوا ممن يستفيد منه الا ينساني من دعوة في ظهر الغيب . mktbah.rar

تحديث برنامج طبي متكامل مجاني كلمة السر 1 والاعدادات 123 يجب ان يستخرج المجلد في قرص D رابط التنزيل: https://drive.google.com/file/d/1AYN9Y768HIsNB1RWyZlLsiCtH32r-5z4/view?usp=drivesdk

مشاركة مع احبتي يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال تفضلي high or low.rar

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

شكرا لك دكتور جمال 🙂 هدية مقبولة ، وبرنامج شامل ، فيه الكثير من الفوائد 🌹🌷

السلام عليكم ورحمة الله وبركاته أخي الكريم توضيح فقط وهو أن دالة subtotal تعمل فقط مع اخفاء الصفوف ولا تعمل مع الأعمدة وهنا عليك استخدام هذه الصيغة =(CELL("width",E6)>0)*E6+(CELL("width",G6)>0)*G6+(CELL("width",I6)>0)*I6+(CELL("width",K6)>0)*K6 ولكن مع ملاحضة أن هذه الصيغة كلما أخفيت عمود أو أظهرت عمود يجب تحديثها أي تقف على الصيفة مثلا وتضغط F2 ثم تضغط Enter ويمكنك استخدام هذا الكود Public Function SumVisible(Rg As Range) As Double Dim xCell As Range Dim xRg As Range Dim xOutRg As Range On Error Resume Next Application.Volatile Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange) If Not (xRg Is Nothing) Then For Each xCell In xRg If (xCell.EntireRow.Hidden = False) And _ (xCell.EntireColumn.Hidden = False) Then If xOutRg Is Nothing Then Set xOutRg = xCell Else Set xOutRg = Application.Union(xCell, xOutRg) End If End If Next End If If Not xOutRg Is Nothing Then SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")") Else SumVisible = 0 End If End Function د يجمع سواء الصفوف أو الأعمده الظاهرة في النطاق المراد جمعه ولكن الكود يعمل تلقائي مع الصفوف وبخصوص الأعمدة يجب تحديث الخلية التي ستضع فيها الصيغة الناشئة من الكود وهي =sible(Range) هذا والله أعلم

تفضل استاذ @سامر محمود محاولتي ووافني بالرد . DD447.rar

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

وعليكم السلام -تفضل لك ما طلبت للرفع.xlsb

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

غير اتجاه النص الى يمين يسار والسلام

أستاذ @سامر محمود ابشر لكن الموضوع كبير وبيأخذ وقت والاستاذ @kkhalifa1960 شغال عليه .

أستاذ @سامر محمود ابشر لكن الموضوع كبير وبيأخذ وقت وأنا شغال عليه .

والسلام عليكم ورحمة الله وبركاته هل تقصد شيء كهذا؟؟!! aBoo.xlsm

أهلا بكم جميعا.. هذا مثال مصغر عن إمكانية الويب مع الأكسس وفلسفة التجاوب.. AccessWithWeb.accdb

اعزائي اليكم هذا السطرالواحد من الكود والذي يقوم بفتح مربع حوار سحب الصور من الاسكنر وحفظ الصورة في نفس مسار برنامجك الاكسس ! Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(CurrentProject.Path & "\" & InputBox("ادخل اسم الصورة") & ".jpg") تحياتي

والأخر ايضا يعمل تمام هل لاحظت الصور ؟

أخى الكريم لاحظ بالصور لا يوجد مشاكل بالتحميل https://up.top4top.net/downloadf-1129unji31-rar.html وايضا هذا رابط اخر على ميديا فاير http://www.mediafire.com/file/5wkob9d35px26mx/كنترول+شيت+2019-ابتدائى+واعدادى-الأستاذ+عبد+البارى.rar

جرب هذه المعادلة =TEXT(A1,"B2 DDDD") وجرب معادلتك كما ترى وان لم تفلح معك فعليك استبدال الفاصة العادية بالفاصلة المنقوطة ; =CHOOSE(WEEKDAY(A2),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعة","السبت")

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

تسلم أخوي رمهان كود خفيف في وزنه ، ثقيل في عمله جعفر