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

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

نهنىء انفسنا بانضمام الاستاذ احمد الفلاحجي الى قائمة الخبراء الف مبروك حبيبنا .. زادك الله علما ..

السلام عليكم ورحمه الله وبركاته الصلاه والسلام على معلم الامه سيدنا محمد صل الله عليه وسلم كنت اهم منذ اسبوع على ان اقدم هذا الدرس واحاول ان اجعله بشكل بسيط وميسر واليوم وانا ابحث عن مثال لاحد الاخوه وجدت هذا المثال بشرح فيديو ارفقه لكم واسال الله العلى القدير ان تنتفعوا به وجزاه الله خيرا صاحب الشرح الاخ العزيز hamidymom من موقع الفريق العربى للبرمجه هذا الرابط الموضوع ايضا http://arabteam2000-forum.com/index.php?/topic/215278-شرح-مفصل-عن-كيفية-صنع-قوائم-جميلة-باستخدام-ال-activex/ ورابط الايقونات بالموضوع ايضا https://www.axialis.com/free/icons/ فلم اجد فى نفسى شرح اجمل واوفى من ذلك ورايت نشره للاستفاده والدعاء لاخينا hamidymom جزاه الله خيرا وجميع اخواننا واساتذتنا الذين تعلمنا ونتعلم منهم تقبلوا تحياتى وتمنياتى لكم جميعا بالتوفيق Toolbars.rar

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

لا عليك أسأل ما بدى لك ونحن نحاول الاجابة تفضل ..... ka_2 (1).mdb

طيب انظر هذا والمرفق PhotoC.rar

وعليكم السلام مشاركه لاخى علاء و فضلا لا امرا عند وضع سؤال يرجى وضع مثال لما تريد وعلى حسب ما فهمت فالنموذج قف على الحقل t4 وفالخصائص تمكين = لا وممكن تضيف الخاصيه مؤمن معها = نعم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخي محمد جرب التعديل Photo.rar

برنامج الموارد البشرية HR "مفتوح المصدر" يحتوى على التالي : -بيانات الموظف . -الإجازات . - الأذنونات . - تسجيل الحضور يدوياً . - الخصومات . - السلف . - المكافأت . - تقيييم الموظف . - ساعات إضافية . - تقارير. - متابعة الحضور والانصراف . - تسجل الحضور والانصراف بشكل آلي . - تسجل الحضور بشكل يدوي . وخيارات أخرى . وهذا البرامج من تطويري وجدت جداوله في موقع خارجي . لا تنسونا من خالص الدعاء ،،، HR.rar

السلام عليكم جميعا عندما اضع هذا الكود DoCmd.GoToRecord , , acNewRec في خصائص النموذج عند الفتح لا يعمل ولا تظهر حقول النموذج فارغه وجاهزه للتعبئه استخدم اوفيس اكسس 2016 شكرا لكم

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

بارك الله فيك وزادك الله من فضله

جرب هذا الأكواد المستخدمة توضع هذه الأكواد في بداية الكود Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False وتوضع هذه الأكواد قبل نهاية الكود قبل end sub Application.Calculation = xlAutomatic Application.EnableEvents = True Application.ScreenUpdating = True برنامج التنسيق تعديل14.xlsm

الف مبروك ابو بسملة 🌺🌼🌸💐⁦ بصمتك وجهدك واضح وتفاعلك ربنا يوفقك ياحبيبي .. تحياتي

الف مبروك وفقك الله وسدد خطاك ونفع بك

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

اخي العزيز alix24028 جرب تغير المكتبة المشار اليها بالصورة وفقا لإصدار الأوفيس لديك. تحياتي

السلام عليكم استاذنا @عبد اللطيف سلوم استخدام الكود التالي هو الافضل للتعبير عن القيمة الفارغة (Null) . If Not IsNull(Me.رقم_القضية) Then Me.a.Visible = True End If تحياتي

تسلم أستاذ أحمد وبارك الله في جهودك .. أنا ممتن لك ..

Try this File My_sarch.xlsm

السلام عليكم حسب فهمي لطلبك عملت لك نموذجين الاول لادخال البيانات والثاني لغرض المعاينة ويمكن الاستغناء عنه وحذفه وعملت لك تقرير يظهر لك ماقمت بادخاله من بيانات ملاحظة : لم اقم بتنسيق النماذج او التقرير بصورة جيدة لاني عملتها بسرعة. اعلمنا بالنتائج تحياتي Database1.rar

تفضل حسابات1.xlsx

اليس هذا هو ترحيل ملخص الفواتير ام تقصد شئ اخر المرفقات مره اخري Test_2.xls

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox(" هل تريد حفظ التغييرات؟ ", vbYesNo, " تأكيد الحفظ") = vbNo Then Me.Undo End If DoCmd.SetWarnings True End Sub تحياتي

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

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

اخينا وحبيبنا ومعلمنا الغالي استاذ أحمد الفلاحجي " ابو بسملة " 😀 والله قد تعجز الكلمات على ان تعطيك قدرك 😀 ولاكن لا يسعني الا استعمالها لاوضوح صورة بسيطة عما في قلبي 😀 اللهم بارك له في ما تولى اعنه على ذلك وزد عليه من نعمك ...... اللهم آمين 😀 😀 تذكر دائما وابدا ان لك اخا في الله يدعو لك بظهر الغيب " اخوك - ابراهيم الهوبي من فلسطين " 😀

الف مليون مبروك وبالتوفيق ان شاء الله ✔️

الف مبروك استاذنا وبالتوفيق ان شاء الله

الف الف مبروك استاذ @أحمدالفلاحجي

ألف مبارك، تستاهل كل خير مثال التواضع والخلق الحسن.

وعليكم السلام نعم يمكن عمل كل شىء اخى باستخدام دوال التجميع هتجيب مبلغ الفاتوره بناء على رقم الفاتوره المتبقى سيتم خصم المدفوع ناقص الاجمالى والله اعلى واعلم وارفق لك مثالان لاخواننا واساتذتنا جزاهم الله خيرا لعلك تنتفع منهم وفضلا لا امرا ارفق مثال من عندك بالموضوع لان الصور وحدها لا تكفى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق الرصيد.zip خصم من الرصيد.zip

الف الف مليون مبروك استاذنا وبالتوفيق ان شاء الله

جرب هذا ايقاف الكود عند ما يتساوى العدد في خلية اخرى.xls

أخى وصديقى @أحمد الفلاحجى الف مبروك وأعانك الله على تولى هذه الأمانه وفقك الله

وعليكم السلام ارفق لك مثال لاحد الاخوه جزاهم الله خيرا اطلع عليه ان شاء الله تجد به ما تر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق اسلوب التوزبع3.rar

السلام عليكم في كل زاوية من زوايا منتدانا المبارك أجد لك بصمة تملك روحناً اخوية جميلة ونجد عبيرها يفوح تهنئة صادقة من القلب الى اخي واستاذي أحمد الفلاحجي ونبارك لك الترقية اللف مبروك

أ / مصطفى محمود مصطفى بارك الله فيك بالفعل أنا كنت وضعت كود باسم طباعة _الكشوف بالعدد الموجود في نفس الخلية المطلوبة K1

الف مبروك 🌼 مع الشكر و التقدير

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

هذه معادلة ضفيف ويمكنك تعديل المدي في المعادلة وطبعا الاقواس ستنحذف يمكنك ارجاع الاقواس بالضغظ على ctrl+shift+enter تحياتي

الله يبارك فيكم اخوانى واساتذتى @ابوخليل و @أبو إبراهيم الغامدي هنئكم الله و اعاننا واعانكم الله على مساعده اخواننا وجزاكم الله عنا خير الجزاء

عليك السلام ورحمة الله وبركاته جرب هذا لعله يفي الغرض حسابات.xlsx

بالاضافه لما قاله استاذ @sandanet ارفق لك ملف به بعض الدروس للاستفاده منها Lessons اهم الدروس.rar وجزاه الله كل خير صاحبها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

وعليكم السلام 🙂 اذا انا مو غلطان ، فهذه ثالث محاولة/موضوع لك لنفس الشيء ، وما حصلت اجابات هناك🙂 في الواقع جدولك هذا مال اكسل ، بينما جدول قاعدة البيانات لازم يكون بهذه الطريقة: . واعتقد بأنك تقدر تواصل من هنا 🙂 وحيالله اخوي co2002co 🙂 جعفر 1014.Salary_increment.accdb.zip

نتائج المعادلتين المقترحتين بالأعلى هي نفسها (الإشكالية الوحيدة بينهما هي في "الفاصلة" و "الفاصلة المنقوطة")...

يمكن استعمال هذا الكود (بدون حلقات تكرارية) Option Explicit Sub DEl_H_New() Dim Lh As Long Lh = Cells(Rows.Count, "H").End(3).Row If Lh < 4 Then Exit Sub Range("h4:h" & Lh).SpecialCells(4). _ EntireRow.Delete End Sub

السلام عليكم ورحمة الله إذا فرضنا أن القيم (التي نريد حساب 80% منها) موجودة في الخلية A2 (مثلا) نكتب المعادلة التالية في B2 (مثلا) كما يلي: =IF(A2*80%<150;A2*80%;150) والله أعلم

ليس الأمر صعبا إذا تم الدخول عليه من بابه! إعادة ربط الجداول المرتبطة له مكون يخصه في قاعدة البيانات. هذا المكون له خصائص يمكن أعادة تخصيصها من قبل مطور قواعد البيانات.. إليك الطريقة.. .. المكون هو [TableDef] يعيد هذا المكون مصفوفة بجداول البيانات المرتبطة وغير المرتبة بما فيها جداول النظام. .. هذه الجداول لها عدة خصائص منها خصيصة أتصال الجدول بقاعدة البيانات؛ إذا كان الجدول مضمناً في قاعدة البيانات فإن هذه القيمة تكون خاليه، أما إذا كان مرتبطا فإنها تعود بقيمة نصية تمثل نوع الجدول واسمه ومساره. هذه القيمة يمكن إعادة تخصيصها. .. إذا قلنا أن [TableDef] يعيد مصفوفة بالجداول فنحن إذا بحاجة دوارة غرضية تعيد جميع الجداول لفحصها هل هي مرتبطة أم لا؟ .. إذا كانت مرتبطة.. هل الرابط سليم أم معطوب؟ .. إذا كان معطوبا.. هل يمكن إصلاحه تلقائيا أم يحتاج إلى تدخل من قبل المستخدم؟ __ إشكالية!! هل مصدر البيانات واحد أو متعدد؟ وهل هو من نوع واحد أو متعدد؟ __ للمعلومية يقوم أكسس بتخزين خصائص هذا المكون، والمكونات الأخرى في جدول من جداول النظام يسمى [MSysObjects] وهذا يعني أن القيم التي يُعاد تخصيصها تبقى ثابته. __ لطيفة إذا كان مصدر البيانات موحدا فيمكن فحص قيمة الاتصال باستخدام الوظيقة [DLookup] لإعادة أول سجل يحمل اسم ومسار قاعدة البيانات للجداول المرتبطة؛ ومن ثم نمرر الناتج على التابع [Dir] هذا التابع يعيد اسم الملف إذا المسار إليه صحيحا ويعيد قيمة خالية إذا كان معطوبا! __ التطبيق .. أليك طرف الخيط Sub LINK_TABLE(Optional LINK_DIR As String) Dim dbs As DAO.Database Dim tdf As DAO.TableDef Set dbs = CurrentDb() If Not Len(LINK_DIR) Then LINK_DIR = XDEF_PATH End If '-- Loop through TableDefs collection, only processing _ '-- the table if it already has a Connection property. _ '-- (all other tables are local ... not linked) For Each tdf In dbs.TableDefs If tdf.Connect <> "" Then LD = Mid(tdf.Connect, InStr(tdf.Connect, "\DATA")) tdf.Connect = ";DATABASE=" & LINK_DIR & LD tdf.RefreshLink End If Next End Sub