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

السلام عليكم اتمنى اللي عنده برنامج جاهز مجاني يشاركه هنا معنا لكي يستفيد الجميع مخازن - مشتريات - مبيعات - عملاء - موردين - قبض - صرف - كشوفات حساب جزاكم الله خيرا اساهم معكم بأول برنامج برنامج المحل.rar

السلام عليكم اقدم لكم برنامج خاص بالجمعيات الخيرية اكسس 2016 // 32 بت الرقم السري 12345 لطفا حمل البرنامج عبر الرابط المباشر التالي - ميديا فير http://www.mediafire.com/file/vall28053cbrobn/%D8%AC%D9%85%D8%B9%D9%8A%D8%A9_%D8%AE%D9%8A%D8%B1%D9%8A%D8%A91.accdb/file

لون_الخط.mdb

تقدر تستخدمه اي مكان تريد Copy of جمعية.rar

وعليكم السلام من الأفضل ارسال الملف لوضع الكود به ولكن هذا هو كود الإخفاء للخلايا الفارغة: Sub HideBlan() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = True End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = True End If Next c End Sub وهذا هو كود الإظهار: Sub showBlank() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = False End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = False End If Next c End Sub جزاكم الله كل خير

شكرا لك . اخي @عبد اللطيف سلوم

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

بارك الله بك ... ماشاء الله عمل احترافي

وعليكم السلام وانا قلت لك هذه هي المعادلة ولما نريد إضافة سنه على تاريخ الترقية ، ناقصا يوم dateadd("yyyy",1,dateadd("d",-1,[تاريخ الترقية])) . وانا قلت لك: وين اخلي هذه المعادلة؟ والجواب: في نفس المكان اللي تُدخل البيانات يدويا ، ويمكنك وضعه على حدث زر مثلا تفضل: نفس الكود اعلاه ، ولكن على حدث زر Private Sub cmd_To_Click() Me.الى = DateAdd("yyyy", 1, DateAdd("d", -1, [تاريخ الترقية])) End Sub . وهذا هو الزر جعفر 935.الترقيات.accdb.zip

السلام عليكم ورحمة الله وبركاته أقدم لكم برنامج شئون الطلاب للمرحلة الإعدادية البرنامج خاص بالصف الأول الإعدادى فإن أردتم أرفقت لكم باقى الصفوف البرنامج يقوم بعمل جميع السجلات الخاصة بالمدرسة 41 مستجدين قيد الطلاب الناجحين قيد الطلاب الباقين 5 سلوك استمارات للغياب سجلات المعلم (( أعمال السنة - حصر الغياب )) سجلات المصروفات المدرسية وبالنسبة للصف الثالث الإعدادى يزيد على ذلك استيكرات كتابة الاستمارات البرنامج تم عمله من العام الماضى هنا فى هذا المنتدى العظيم وبعد الانتهاء منه قمت ببعض التعديلات البسيطة عليه ليس لسبب إلا لتجربته عمليا داخل مدرستى الحق يقال أعجب الجميع بلا استثناء لسهولته واستخراج سجلاته المختلفة بسهولة ويسر الذى كان يأخذ منهم أياما وأسابيع للعمل أصبح بنقرة زر ملحوظة بسيطة * - البرنامج تم تصميمه ليناسب العمل فى مدرستى *- ادخال البيانات لأول مرة يكون من بيانات الطلاب فى الشيت ولا يوجد يوزر فورم لذلك فتقبلوا اعتذارى عن ذلك *- البرنامج لا توجد عليه أى حماية نهائيا فأرجو ممن يستخدمه ألا ينسب العمل لنفسه ويكفينى الدعاء بظهر غيب لى ولأهل بيتى فقد أكون فى حاجة إليه *- من يريد التعديل فليتفضل وبعد ذلك يرفع لنا البرنامج لنستفاد منه آسف جدا للإطالة إليكم البرنامج فى المرفقات برنامج شئون الطلاب للصف الأول الإعدادى.rar

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

salim Control.xlsm

نعم بالتأكيد هذه الأكواد تحتاج زر توضع هذه الأكواد فى موديول تفضلى اخفاء.xlsm

اخي ابو زاهر الاهتزاز اللي تتكلم عنه هو نتيجة تغير/اختلاف اللون الى الابيض ، والكود اللي ارفقه سبق ان نظرت فيه ولم اتوصل الى نتيجه!! جعفر

همم انا استعملت حقول اخرى: . ونفس النتيجة . جعفر 940.لون_الخط.mdb.zip

وعليكم السلام هو كما تفضلت وقبل ان اعرض جوابي ، في انتظار جوابك جعفر

هل جربت التنسيق الشرطي

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام يشرفني أن أرفع على منتداكم الكريم هذه الفكرة للتخلص من إرهاق فكرة عمل الشرائح بدالة IF أو بـ Vlookup الحل الناجح في مفهوم الشرائح.xlsx

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

بعد اذن الأستاذ أحمد ولإثراء الموضوع -هذا حل اخر بالأكواد كود استخراج اسم ولي الامر-2.xls

تفضل المطلوب كود استخراج اسم ولي الامر.rar

وعليكم السلام اذا كان حقل العمر Age دائما هكذا: 2 سنه 30 سنه فنستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) واذا عندك 5 سنوات 30 سنه فتستطيع استعمال: Y = val([Age]) او Y = val(replace([Age],"سنه","")) Y = val(replace([Age],"سنوات","")) او ندمج السطرين اعلاه في سطر واحد (ولكن لأننا نستخدم كلمات عربيه ، فللأسف لا تستطيع ان ترى الامر بصوره صحيحة) Y = Val(Replace(Replace([age],"سنه",""),"سنوات","")) . جعفر

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

استاذنا @jjafferr اليك هذا السؤال تقبلوا تحياتي

اخي @عبد اللطيف سلوم بارك الله فيك ... جهد واضح

حصل خير اشكرك على المرور اخي جعفر

صدقة جارية بصحيفتك إن شاء الله

متابع

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

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

معادلة بسيطة تكتب في الخلية B2 و تسحب حتى الخلية B13 =IF(ISNA(MATCH(A2,$A$16:$A$500,0)),"",INDEX($B$16:$B$500,MATCH(A2,$A$16:$A$500,0))) الملف مرفق TESTsalim.xlsx

جرب هذا الشيء salimبيان نجاح.xls

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

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

هذا يذكرني لما تريد ان ترمز لجدول النموذج الفرعي ، فيمكنك ان تستعمل Form.RecordSource.... ، ولكن تارة اخرى ما تحتاج الى Form

استاذنا الحبيب استاذ جمال وصل الى ما يريده بهذه الكود لكن هو بيسأل لماذا لا يظهر احتمالات ما يريد ان يكتبه من الكود كما ظهر موف عند كتابة الكود

سلام شباب انا احاول قدر الامكان تفادي استخدام OCX في برامجي ، لهذا السبب انا لا استعمل هذه الاداة كذلك !! ولكن من الصورة اللي اعطانا السيد جمال ، جرب هذا الكود: Me.ProgressBar2.object.Max = 120 جعفر

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

وعليكم السلام لتنقيص يوم من تاريخ الترقية dateadd("d",-1,[تاريخ الترقية]) إضافة سنه على تاريخ الترقية dateadd("yyyy",1,[تاريخ الترقية]) ولما نريد إضافة سنه على تاريخ الترقية ، ناقصا يوم dateadd("yyyy",1,dateadd("d",-1,[تاريخ الترقية])) . سؤالك التالي: وين اخلي هذه المعادلة؟ والجواب: في نفس المكان اللي تُدخل البيانات يدويا ، ويمكنك وضعه على حدث زر مثلا جعفر

تفضل . . جعفر 935.الترقيات.accdb.zip

وعليكم السلام انزلت مرفق اخي kanory مما شجعني على الرد ، بنفس طريقته تقريبا ، ولكن بكود مختلف ومختزل Private Sub cmd_Go_Click() Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim db As DAO.Database Dim RC As Integer Dim i As Integer Dim j As Integer Dim x() As String Set db = CurrentDb db.Execute ("Delete * From tbl_temp") Set rst2 = db.OpenRecordset("Select * From tbl_temp") Set rst = db.OpenRecordset("Select * From Table1 Where [mawad] is not null") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC x = Split(rst!mawad, "/") For j = LBound(x) To UBound(x) rst2.AddNew rst2!mawad = x(j) rst2.Update Next j rst.MoveNext Next i rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing db.Close DoCmd.OpenQuery "qry_Statistics" End Sub جعفر 932.count_.mdb.zip

اتفضل كما مبينة في الصورة او بدل ما تتغيره كما في الصورة تقدر تستخدم هذه الجملة Me.ProgressBar2.Max = 120 تقدر تنقصه او تزيده واليك المثال ProgressBar.mdb

اتفضل Database8 (1).accdb

يقولون لايفتى ومال في المدينة ما دام الاستاذ @jjafferr دخل على الموضوع فيجب علينا ان نصمت فكرتي عن الموضوع تتلخص بالتالي عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي نفس الحل الذي قدمه لك الاخ @AlwaZeeR وهو يعتمد نفس المبدأ الوقوف على كل سجل بالنموذج وبما ان هذه الطريقة لا تريدها دعنا نترك التعامل مع الحقل غير المنظم الموجود بالنموذج ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة لذلك سنقوم بعمل جدول مؤقت بأسم Table1_Temp ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود Private Sub cmd_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _ "FROM Table1_Temp;" DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _ " SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _ " FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _ " GROUP BY Table1.name11;" DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _ "= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];" Me.Refresh End Sub ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم Database88-906.rar

إخواني الكرام إليكم الملف يعمل على النسختين 32 بت و 64 بت أرجو أن تستفيدوا منه .. تقبلوا وافر تقدير واحترامي Codes Library v1.9.7.rar