Bluemind

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

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

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

حل جميل و وافي جزاك الله خير

مشكور اخوي riad بس ما فيه حاجه لاضافه فورمز فرعيه يمكن الحل باستخدام الاستعلام اخوي RAAD الحل في المرفق ولكن لم افهم طلبك الثاني RAAD.zip

اخوي الملف الموجود في المرفق غير معروف؟ الرجاء اعاده ارفاقه

اخوي السؤال هنا ، هل كلا النموذجين في وضع العرض اي تعمل في نفس الوقت الذي تريد اخذ البيانات منها؟ نموذج الايرادات نموذج الانفاقات ارجوا ارفق قاعده البيانات

بعد اذن اخوي ابو انس الاخ الكريم شوف الصوره المرفقه

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

تفضل اخوي ملفك بعد التعديل عليه قمت باضافه زرين الاول لعمل التصفيه و الثاني لازالتها طبعا التقرير يعمل مع كل الحالات اذا كانت هناك تصفيه فانه يعرض السجلات المفوتره واذا لم يكن هناك تصفيه فانه يعرض جميع السجلات Sort and Search.zip

اخوي من كلامك البرنامج مقسم الى قسمين الواجهه موجوده على اجهزه المستخدمين بينما الواجهه الخلفيه(التي تحتوي الجداول) موجوده على جهاز اخر السؤال هنا هل الجهاز الذي يحتوي على القاعده الخلفيه يستخدم للدخول على القاعده للعمل عليها؟؟ اذا نعم هنا سوف تظهر لك المشكله. الواجهه الخلفيه لابد ان تكون على سيرفر او على جهاز لا يحتوي على الواجهه الاماميه او واجهه المستخدمين

تفضل اخوي لابد ان يكون النموذج معتمد على استعلام قبل للتحديث تفضل المرفق العاملين.rar

الاخوة الاعزاء في المنتدي الكريم كما تعودنا منكم الرد علينا في استفسارتنا ومشاكلنا ارجو منكم حل هذه المشكلة لو سمحتم عندي ملف اكسيل بالعمل ارغب في جمع الخلايا التي اظللها بلون نختلف بحيث اني اقوم بتلوين بعض الخلايا علي طول الشهر بالوان مختلفه كل لون له معني عندي في عملي اي يجمع الالوان الصفراء في خلية واحده والزرقاء في خلية اخري وهكذا اخوكم شريف اخوي شريف بارك الله فيك اولا تحتاج الى انشاء داله اسمها colorindex وذلك بنسخ الكود التالي ثم لصقه في مودل جديد '--------------------------------------------------------------------- ' ColorIndex Function '--------------------------------------------------------------------- ' Function: Returns the colorindex of the supplied range ' Synopsis: Initially, gets a colorindex value for black and white ' from the activeworkbook colour palette ' Then works through each cell in the supplied range and ' determines the colorindex, and adds to array ' Finishes by returning acumulated array ' Variations: Determines cell colour (interior) or text colour (font) ' Default is cell colour ' Constraints: Does not count colours set by conditional formatting '--------------------------------------------------------------------- ' Author: Bob Phillips ' Additions for ranges suggested by Harlan Grove '--------------------------------------------------------------------- '--------------------------------------------------------------------- Function ColorIndex(rng As Range, _ Optional text As Boolean = False) As Variant '--------------------------------------------------------------------- Dim cell As Range, row As Range Dim i As Long, j As Long Dim iWhite As Long, iBlack As Long Dim aryColours As Variant If rng.Areas.Count > 1 Then ColorIndex = CVErr(xlErrValue) Exit Function End If iWhite = WhiteColorindex(rng.Worksheet.Parent) iBlack = BlackColorindex(rng.Worksheet.Parent) If rng.Cells.Count = 1 Then If text Then aryColours = DecodeColorIndex(rng, True, iBlack) Else aryColours = DecodeColorIndex(rng, False, iWhite) End If Else aryColours = rng.Value i = 0 For Each row In rng.Rows i = i + 1 j = 0 For Each cell In row.Cells j = j + 1 If text Then aryColours(i, j) = _ DecodeColorIndex(cell,True,iBlack) Else aryColours(i, j) = _ DecodeColorIndex(cell,False,iWhite) End If Next cell Next row End If ColorIndex = aryColours End Function '--------------------------------------------------------------------- Private Function WhiteColorindex(oWB As Workbook) '--------------------------------------------------------------------- Dim iPalette As Long WhiteColorindex = 0 For iPalette = 1 To 56 If oWB.Colors(iPalette) = &HFFFFFF Then WhiteColorindex = iPalette Exit Function End If Next iPalette End Function '--------------------------------------------------------------------- Private Function BlackColorindex(oWB As Workbook) '--------------------------------------------------------------------- Dim iPalette As Long BlackColorindex = 0 For iPalette = 1 To 56 If oWB.Colors(iPalette) = &H0 Then BlackColorindex = iPalette Exit Function End If Next iPalette End Function '--------------------------------------------------------------------- Private Function DecodeColorIndex(rng As Range, _ text As Boolean, _ idx As Long) '--------------------------------------------------------------------- Dim iColor As Long If text Then iColor = rng.font.ColorIndex Else iColor = rng.Interior.ColorIndex End If If iColor < 0 Then iColor = idx End If DecodeColorIndex = iColor End Function '--------------------------------------------------------------------- ' End of ColorIndex Function '--------------------------------------------------------------------- بعدين لمعرفه ارقام الالوان في اكسل يجب عليك وضع اسم الداله السابقه في خليه وتحديد اسم الخليه التي تحتوي على اللون مثلا يوجد لديك اللون الاصفر قم بتعبئه خليه باللون الاصفر ولتكن مثلا a1 ثم اكتب هذه الداله في b1 مثلا =ColorIndex(a1) هذا فقط لكي نعرف رقم اللون الاصفر طبعا النتيجه تكون الرقم 6 بعد الحصول على الرقم نفرض ان الخلاياالملونه موجوده في العمود e نذهب الى الخليه المراد الجمع فيها للون الاصفر ونضع المعادله التاليه =SUMPRODUCT(--(ColorIndex(E1:E100)=6),E1:E100) حيث ان الرقم 6 هو اللون شرط الجمع طبعا هذه الداله لا تجمع الخلايا الملون باستخدام التنسيق التلقائي

اخوي ما دام ان الارقام موجوده في a1:a10 روح على العمود b وضع هذه الداله =RAND() ثم ضع هذا الكود في العمود c الخليه c1 لكي تنتج لك ارقام عشوائيه =INDEX($A$1:$A$20,RANK(B1,$B$1:$B$20)) ثم اسحب الى c10 جرب و ادعيلي

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

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

اخوي ماهو المطلوب عمله من هذا الاستعلام؟؟؟!!!! الي فهمته ان هناك اكثر من استعلام حسب ارقام الفصول او class

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

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

اخوي بالنسبه لاظهار اليوم كتابه انصحك بالمشاركه التاليه: http://www.officena.net/ib/index.php?showtopic=27873&view=&hl=Bluemind&fromsearch=1 اما بالنسبه الى عرض اليوم فقط في التاريخ في مربع النص اذهب الى علامه التبويب تنسيق ثم اختر تنسيق واكتب فيه dd

اخوي الكود شغال و مافيه اي شي يوجد هناك زر حرف ee يوجد به خلل حيث كتبت ee= ee = 1 و المرفوض يكون ee= ee + 1 شوف الصوره المرفقه

اخوي ايش الي مايتكرر معك؟؟؟ الكود شغال 100% اذا كنت تحاول عملها على مثال ثاني ارجوا ارفاقه الف شكر للاخ ابو نس

تفضل اخوي المثال بعد التعديل عليه letter (2).zip

حياك الله اخوي ولكن في حاله مسح اي سجل من هذه السجلات سوف تظهر لك مشكله في تسلسل الارقام.

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