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

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

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته برنامج الجمعيات الخيرية لبحث الحالات قمت يتصميم هذا البرنامج المتواضع منذ حوالي 3 سنوات تقريبا لجمعية خيرية واحببت ان اضعه بين ايديكم ليستفيد منه من يبحث عن برنامج مماثل البرنامج بسيط ان شاء الله وسهل التعامل معه أ - يجب ادخال الاكواد الاساسية اولا 1 - الحالات الاجتماعية ( اعزب - مطلق - ارمل ... الخ ) 2 - الحالة الصحية ( معاق - مريض بـ - شلل ... الخ ) 3 - المناطق ( منطقة شبرا - منطقة - ببولاق - منطقة العتبة ... الخ ) 4 - المتابعين ( المتابعين للحالة والقائم على زيارتهم وتفقده احوالهم ) 5 - نوع التبرع ( هل الحالة تستحق تبرع شهري او اقل او اكثر )\\ ب - تسجيل الحالات ج - تعديل حالة د - البحث عن حالة او طباعتها البرنامج مفتوح المصدر ويمكن التعديل عليه بما يناسب الحالة التي تمر عليك ارجو من الله العلي القدير ان يكون هذا العمل مقبولاً لوجهه الكريم SocialAffairs.rar تحياتي

السلام عليكم بارك الله فيك استاذ @عبد اللطيف سلوم

تفضل Private Sub ListBox1_Click() If ListBox1.ListIndex > -1 Then Sheets(ListBox1.Value).Activate If Sheets(ListBox1.Value).Name <> "ورقة2" And Sheets(ListBox1.Value).Name <> "ورقة3" Then Sheets(ListBox1.Value).Range("d5") = Sheets("ورقة1").Range("f1") End If End If End Sub نموذج الملف.xls

شكر الله لك .. هذا المطلوب ..

فيديو شرح للفرز المتخصص حسب تسلسل المنصب وليس الابجدية https://www.youtube.com/watch?v=2yeQw4COGeI ان شاء الله تستفيدون منه

جربي هذا الماكرو Option Explicit Dim Main As Worksheet Dim sh As Worksheet Dim max_ro%, i%, col, arr(), m% Dim st$, Ro%, k%, s#, x%, itm Dim date1 As Date, date2 As Date '======================= Sub Initiallize() For Each sh In Sheets If sh.Name <> "TAkrir" Then sh.Range("C5:J500").Interior.ColorIndex = xlNone End If Next End Sub Sub Extract_negative() Set Main = Sheets("TAkrir") Main.Range("B3:B8").ClearContents If Main.Range("B2") = vbNullString Then Exit Sub If Not IsDate(Main.Range("E3")) Or _ Not IsDate(Main.Range("F3")) Then Exit Sub Set sh = Sheets(Main.Range("B2") & "") date1 = Application.Min(Main.Range("e3:f3")) date2 = Application.Max(Main.Range("e3:f3")) ReDim arr(1 To 6) For i = 3 To 8 arr(i - 2) = Main.Cells(i, 1) Next max_ro = sh.Cells(Rows.Count, 1).End(3).Row k = 3 For Each itm In arr For x = 5 To max_ro If sh.Cells(x, 1) >= date1 And sh.Cells(x, 1) <= date2 Then If sh.Cells(x, itm) > 0 Then sh.Cells(x, itm).Interior.ColorIndex = 35 End If s = s + IIf(sh.Cells(x, itm) < 0, _ sh.Cells(x, itm), 0) End If Next x Main.Cells(k, 2) = IIf(s = 0, "", s) s = 0 k = k + 1 Next itm End Sub '++++++++++++++++++++++++++++++++++ Sub Extract_Positive() Set Main = Sheets("TAkrir") Main.Range("C3:C8").ClearContents If Main.Range("C2") = vbNullString Then Exit Sub If Not IsDate(Main.Range("E3")) Or _ Not IsDate(Main.Range("F3")) Then Exit Sub Set sh = Sheets(Main.Range("C2") & "") date1 = Application.Min(Main.Range("e3:f3")) date2 = Application.Max(Main.Range("e3:f3")) ReDim arr(1 To 6) For i = 3 To 8 arr(i - 2) = Main.Cells(i, 1) Next max_ro = sh.Cells(Rows.Count, 1).End(3).Row k = 3 For Each itm In arr For x = 5 To max_ro If sh.Cells(x, 1) >= date1 And sh.Cells(x, 1) <= date2 Then If sh.Cells(x, itm) < 0 Then sh.Cells(x, itm).Interior.ColorIndex = 6 End If s = s + IIf(sh.Cells(x, itm) > 0, _ sh.Cells(x, itm), 0) End If Next x Main.Cells(k, 3) = IIf(s = 0, "", s) s = 0 k = k + 1 Next itm End Sub '++++++++++++++++++++++++++ Sub Get_all() Initiallize Extract_negative Extract_Positive End Sub الملف مرفق takrir yara.xlsm

تم التصحيح .الكود يعمل الخطأ في الخلايا المدمجة. قاعدة.xlsm

تفضل نموذج الملف (1).xls

ماشاء الله تبارك الله عمل جميل ومتميز وشاهدت فيديو العرض كاملا وبكل صدق اعجبني العمل ربما تكون ملاحظتي على استخدام الالون لبعض الحقول وهي لا تعيب العمل وانما رأي شخصي مع تمنياتي لك بالتوفيق بخصوص تسعير العمل الاخوان @محمد أبوعبدالله و @alaa aboul-ela ماقصروا وكتبوا كل ماكنت اود قوله

متميز دائما يا ابا اشرف

تسلم اخى واستاذى محمد 😀 وفيك بارك الله 💐 جزاك الله خيرا اخى واستاذى @husamwahab 💐

الاستاذ المبدع سليم حاصبيا شكرا جزيلا وهو المطلوب

جزاك الله خير رائع جدا

السلام عليكم اتوجه الى جميع الخبراء واعضاء منتديات اوفيسنا بالشكر على المجهودات المبذولة والشكر الى الاستاذ ابو ابراهيم الغامدي والى الاستاذ husamwahab

حلت المشكلة حسب خطوات الصورة رحم الله والديك في الدنيا والآخرة

تفضل ..... ka_Database3.accdb

هذه المعادلة =COUNTIF(الجدول1[الفلز],"T1")>0 =COUNTIF(الجدول1[القيمة2],11)>0

اتبع الخطوات التالية حسب الصورة

كل المحبة والاحترام اخي الكريم

تفضل ..... تكرار المقطع في التقرير.mdb

طبعا توصلت لحل المشكلة و هي جلب بيانات ادخول و الخروج وباقي عندي مشكلة وحدة و هي جلب معلومات المستخدمين كالأسم و ID و سأقوم بإرفاق الملف مع الشرح بالعربي فور إكمال المشروع بأذن الله ... مع العلم الجهاز من طراز ZKT -S30

تم اضافة الكود التالي في حدق عند الخروج في حقل الكمية Private Sub quantity_Exit(Cancel As Integer) If (DLookup("[balance]", "Query3", "Xname='" & Me.sanaf.Column(1) & "'") < Me.quantity) Then MsgBox "الرصيد غير كافي" DoCmd.CancelEvent Me.Undo End If End Sub وظيفة الكود الاستعلام عن الرصيد فاذا كان اقل من الكمية المراد بيعها يتم الغاء العملية مع رسالة تنبيه بان الرصيد غير كافي تحياتي

حياك الله داما وتشرفي ..... خلاص اجهز الكنكة .....ههههه بارك الله فيك أخي الحبيب

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

السلام عليكم مشاركة مع اساتذتي الكرام تفضل هذه المحاولة ارجو ان تكون موفقة وحسب فهمي لطلبك fff.rar

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

وعليكم السلام ورحمة الله وبركاته نضع الكود التالي في وحدة نمطية جديدة Function fnAutoField() As String Dim strRndNo As String strRndNo = Format((9999 * Rnd) + 1, "10000") fnAutoField = strRndNo End Function ثم نضع في النموذج في حدث عند الادراج الكود التالي Me!TextBox1 = fnAutoField() وفي زر الحفظ نضع الكود التالي If Me!TextBox3 = Me!TextBox1 Then MsgBox "error", vbInformation Me!TextBox1 = fnAutoField() Else End If ان واجهت مشكلة في التطبيق لا قدر الله ارفق مثال ليتم التعديل عليه ان شاء الله تحياتي