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

أخي الكريم أبو يوسف قدم لك الأخ الكريم أبو عبد الباري حلاً جميلاً ويسيراً .. كان من الممكن أن تدرس الملف لترى كيف تم الأمر وتقوم بعكس الأمر انظر للتبويب Formulas ثم Name Manager ثم قم بتعديل النطاق المسمى eyad ليكون بالشكل التالي =ورقة1!$A$2:$A$490 أي أننا سنقوم بتسمية النطاق في الورقة 1 وليس في الورقة 2 الخطوة الثانية انسخ المعادلة التالية ، واذهب لورقة العمل رقم 2 وحدد النطاق A2:A948 وادخل على التنسيق الشرطي Conditional Formatting ثم اختر New Rule ثم اختر آخر خيار وهو Use a formula to determine which cells to format ثم قم بوضع المعادلة التالية في الحقل المخصص لذلك =VLOOKUP(VALUE(A2),VALUE(eyad),1,0) الآن انقر على كلمة Format ثم ادخل التبويب Fill واختر اللون الذي ترغبه ثم أوك ثم أوك مرة أخرى ثم قم بحذف التنسيق الشرطي الموجود في ورقة 1 .. اذهب لورقة 1 واتبع التعليمات كما في الصورة المرفقة تقبل تحياتي

السلام عليكم أخي العزيز نحن تعلمنا في هذا المنتدى أن الأمور تحل خطوة بخطوة وليس دفعة واحدة لأنه عند تنفيذ أي خطوة ربما تظهر أخطاء فينبغي حل الأخطاء أولا ثم الانتقال للخطوة الأخرى أخي السيف القاطع هذا حل لهذا المشكلة التي طلبتها : وهي ((( بالنسبة للتنبيهات / عندما يكون تاريخ اليوم ( أي تاريخ الجهاز ) اكبر من تاريخ أي من الفترات يتم كتابة إنتهى العقد ويتم بتلوين الصف من بداية العمود إلي نهاية العمود الذي به بيانات ))) جرب المرفق العقود2.rar

يمكن ان بكون الحل مرتب salim.rar

عليكم السلام اذا استخدمت جهاز البصمة المناسب يمكنك ذلك فاجهزة البصمة انواع ، منها ما تقوم بتخزين بيانات التسجيل داخلها ، وهذه لا تصلح لما تفكر به ومنها ما يسمى البيومترية وهي التي تدعم الواجهات ( انتر فيس ) والاخيرة تعمل عمل جهاز قارىء الباركود ، وهي مهيأة من المصنع لدعم المطورين وغالبا يأتي رفقها التعليمات والاكواد البرمجية اللازمة للاتصال والتعامل معها

اعرض الملف برنامج ادارة الدروس الخصوصية ارجو ان ينال على اعجابكم برنامج ادارة الدروس الخصوصية.rar صاحب الملف علاء خفاجة تمت الاضافه 18 يول, 2016 الاقسام قسم الإكسيل

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

اسعد الله اوقاتكم بكل خير ابحث عن اسهل طرق البحث ب اكسس من ناحية الشكل والمضمون search.rar

تمام ! راح نلبي طلبك لو حنصدم في الحيط ! الان شوف القيمة في السجل الثالث =40 ! واحنا اتفقنا ان القيمة تكون الاول - الثاني ! يعني = 200-125= 75 والا ايه رايك !

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

حياك الله وللامانة كان هذا مفتاح الحل ومع اني اشرت اليه في مشاركة لا اعلم مكانها بانه يجب ان لا ننظر لمكان السجلات في الجدول ! ولكن هل ممكن تكون احد وسائل الحماية استاذ جعفر ؟؟ هل وصلت لك مايدور في ذهني ؟؟ تحياتي

شكرا جزيلا أستاذ رمهان الكود يعمل بشكل جيد

بصراحة اخي محمد اقول واؤكد يعني مانلوم السحر العماني تحياتي

مرحبا استاذ صالح مشاركة مع اخوتي جرب لكي تعرف اول سجل في الجدول وكما هو بدون تاثيرات الفرز و بعد الاستيراد استخدم =DLookUp("[nom]","tbl") ولكي تعرف اول سجل بعد الفرز (الترتيب) اعمل استعلام مطبقا به الترتيب حسب الاختيار ثم احفظه وليكن باسم query1 واستخدم =DLookUp("[nom]","Queryl") هذا والله اعلم

جرب أن تقوم بإضافة شرط إذا كانت قيمة المتغير المسئول عن الحلقة التكرارية يساوي 3 ينفذ المطلوب على التكست بوكس الثالث ويضعه كقيمة وإلا يتم التعامل بشكل عادي مع بقية التكست بوكس For I = 1 To 8 If I = 3 Then O1.Cells(LI + 13, I + 1).Value = Val(Me.Controls("TextBox_" & I)): Me.Controls("TextBox_" & I).Value = "" Else O1.Cells(LI + 13, I + 1).Value = Me.Controls("TextBox_" & I): Me.Controls("TextBox_" & I).Value = "" End If Next I تقبل تحياتي

السلام عليكم أخي صالح: عمل قواعد البيانات ، بإختصار : ادخال بيانات ، فرز وتصفية لإخراج البيانات ، فلا يوجد شئ اسمه اول سجل ولا آخر سجل ، لإستخراج سجل معين ، يجب علينا الفرز / التصفية ، الفرز يكون بقيمة حقل / حقول ، والتصفية كذلك يكون بقيمة حقل / حقول ، لهذا السبب ، وجود حقل ترقيم تلقائي AutoNumber مفهرس ، مهم لهذا السبب ، حقل الرقم التلقائي في الواقع هو مهم في سرعة الوصول الى اي سجل ، ويجب ان يكون في كل جدول ، بالاضافة الى حقل تاريخ تلقائي (القيمة الافتراضية Now ) والآن الى سؤالك على اليمين جدولك كما هو ، وعلى اليسار نسخة من الجدول ، ولكن تم حفظه بعد فرز حقل الاسم تنازليا ، الظاهر ان اكسس يحتفظ بتسلسل الادخال ، حتى ولو تمت عملية الفرز ، واللي عملته اني وضعت حقلين في النموذج باسم nom_1 و nom_11 ، استعملت الكود التالي على زر cmd_1: Private Sub cmd_1_Click() Dim rst As DAO.Recordset mySQL = "SELECT TOP 1 nom FROM tbl" Set rst = CurrentDb.OpenRecordset(mySQL) Me.nom_1 = rst!nom mySQL = "Select * FROM tbl2" rst.MoveLast: rst.MoveFirst Me.nom_11 = rst!nom rst.close : set rst = nothing End Sub الكود الاول يأخذ قيمة واحدة من الجدول الاول (والذي بدون فرز) ، بينما الكود الثاني يأخذ الجدول الثاني ، ثم يأخذ اول قيمة منه ، والنتيجة كانت "صلاح" ولكن ، الافضل دائما اضافة حقل الرقم التلقائي ، والذي تستطيع ان تعمل الفرز عن طريقه ، للوصول الى اي سجل مطلوب ، والنتيجة تكون دقيقة فعند إضافة حقل الترقيم التلقائي ، فان اكسس يعطي الرقم حسب الادخال الاصل وليس حسب فرز الجدول ، فيكون الجدولان هكذا: هذا هو الكود للحقل nom_2 في النموذج ، وهي الطريقة الصحيحة في العمل: mySQL = "Select * From tbl2 Order by Auto_ID" rst.MoveLast: rst.MoveFirst Me.nom_2 = rst!nom جعفر 410.استخراج قيمة السجل الأول.accdb.zip

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

جرب هذا الملف Tansiq.rar

اشكرك أخى الكريم ياسر خليل أبو البراء على مرورك تقبل تحياتى

ان شاء الله خير

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

.Docmd . Gotorecord

ربما يكون المطلوب تم نغيير اسماء الصفحات الى الاجنبية لسهولة التعامل مع المعادلات (تم حماية الخلايا التي تحتوي على معادلات لعدم العبث بها عن طريق الخطأ) ديناميكي مع زيادة عدد الصفحات والبيانات (شرط تسمية الصفحة حسب الاسم month والبيانات تكون في نفس الخلايا) جرب هذا الملف الصفحة Total جدول مرتبات salimالموظف Avancer.rar

أخي الكريم جمال محمود في ورقة العمل المسماة "All" قم بحذف الصفوف كلها بداية من الصف السادس إلى آخر صف .. وحول الجدول إلى نطاق عادي ثم ضع الكود التالي في موديول عادي ثم نفذ الأمر .. Sub YasserKhalil() Dim Ws As Worksheet, Sh As Worksheet Dim LR As Long, Last As Long Set Sh = Sheets("All") Application.ScreenUpdating = False Application.DisplayAlerts = False With Sh .Range("A6:G10000").Clear 'حلقة تكرارية لكل أوراق العمل لجلب البيانات من الأعمدة المحددة For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> "All" Then LR = Ws.Cells(Rows.Count, 1).End(xlUp).Row Last = .Cells(Rows.Count, "B").End(xlUp).Row Ws.Range("E2:I" & LR).Copy .Range("B" & Last + 1).PasteSpecial xlPasteValues End If Next Ws Last = .Cells(Rows.Count, "B").End(xlUp).Row + 1 'وضع عبارة "تم التقدير" في العمود السابع .Range("G6:G" & Last).Value = "تم التقدير" 'ترقيم العمود الأول With .Range("A6:A" & Last + 1) .Formula = "=IF(B6="""","""",ROW()-5)" .Value = .Value End With 'دمج خلايا المجموع ووضع المعادلة في الخلايا المدمجة With .Range("A" & Last & ":B" & Last) .Merge .Value = "المجموع" End With With .Range("C" & Last & ":G" & Last) .Merge .Formula = "=SUM(F6:F" & Last - 1 & ")" End With 'تسطير جدول البيانات التي تم جلبها .Range("A5").CurrentRegion.Borders.Value = 1 'تنسيق نطاق البيانات With .Range("A5").CurrentRegion.Offset(1) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Font.Bold = True End With End With Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub في الكود يوجد بعض التعليقات التي تساعدك في فهم الكود تقبل تحياتي

تم العمل حسب المطلوب فقط اضغط (اعجاب) copy_rng.rar

وعليكم السلام أخي الكريم اطلعت على ملفك ووجدت أن ورقة الإحصائيات النهائية تشبه ورقة البيانات المسماة "أعداد أولية" .. فيمكن ببساطة الربط باستخدام علامة يساوي ثم تحدد أول خلية في الورقة "أعداد أولية" أقصد بكلامي أن تضع المعادلة التالية في الخلية E4 في ورقة الإحصائيات النهائية ='اعداد اولية'!E3 ثم تقوم بسحب المعادلة إلى أسفل وإلى اليسار .. إذا لم يكن هذا هو المقصود فيرجى إرفاق شكل النتائج المتوقعة مع مزيد من التوضيح تقبل تحياتي

بارك الله فيك أخي الكريم علاء خفاجة وجزيت خيراً تقبل تحياتي

إن شاء الله راح نوصل للحل

احسنت التوضيح اخي صالح ..نحن بانتظار الحل ..

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

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

اهلا بك اخي صالح ...لا اعلم ان كنت تقصد هذا فانت استاذنا . انا اضع هذه الدالة في مربع النص DLookUp("[Fld]","Tbl","id=1)= حيث Fld هو الحقل , Tbl اسم الجدول .

جعله الله فى ميزان حسناتك أخى واستاذنا أبو عبدالبارى بارك الله فيكم كل من ساهم اخى واستاذنا أبو حنين واخى ابو عبدالبارى فى حل المشكله شكراً جزيلا فعلا أخى عبدالبارى هذا ما أريد .. تسلم اناملك

تفضل أخي هذا مثال بإمكانك أن تجربه و سوف تلاحظ النتيجة. لا وجود لتلك الرسائل أبدا. اخفاء الرسائل.rar

اخى الكريمAlsaqr السلام عليكم بعد اذن اخى العزيز أبو حنــــين جرب المرفق التالى لعلة يفى بالغرض حسب ما فهمت abo_abary_الكشف المجمع.rar

اخى الكريمابويوسف2020 السلام عليكم جرب المرفق التالى لعلك تجد فيه طلبك abo_abary_المقارنة.rar

وعليكم السلام أخي الكريم أبو يوسف هل المطلوب تظليل الرقم في الورقة الثانية أم الورقة الأولى؟ أقصد يتم البحث عن الرقم الموجود في الورقة الأولى (ونطاق البحث يكون الأرقام في الورقة الثانية) ، وإذا وجد الرقم يتم تظليله في الورقة الثانية .. هل هذا ما تقصد ؟

تفضل الجدول: الاستعلام ، ونتيجته: . والان إضافة حقل مادة المستوى . الان اصبح الترتيب صحيحا ، ولكننا نريد العشرة الاوائل فقط: . والنتيجة: جعفر 406.First_Ten.mdb.zip

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

جرب تستخدم كلمة VAL قبل هذا الجزء Me.Controls("TextBox_" & I) ليصبح بهذا الشكل VAL(Me.Controls("TextBox_" & I))

يمكنك وضع الكود التالي في زر تشغيل الاستعلام: DoCmd.SetWarnings False DoCmd.OpenQuery "namequery" DoCmd.SetWarnings True بحيث namequery هو اسم الاستعلام السطر الأول سيقوم بإيقاف رسائل التحذير لجميع انواع الإستعلامات السطر الثالث سيقوم بإعادة تشغيل رسائل التحذير لجميع انواع الإستعلامات

وعليكم السلام تفضل: Private sub .... on error goto err_No_2001 ..... ..... Exit_N0_2001: exit sub err_No_2001: if err.number=2001 then Resume Exit_N0_2001 else msgbox err.number & vbcrlf & err.description endif end sub جعفر

ربما يكون المطلوب تم نغيير اسماء الصفحات الى الاجنبية لسهولة التعامل مع المعادلات معادلة واحدة تكتب في الخلية A6 وتسحب يساراً (تم حماية الخلايا التي تحتوي على معادلات لعدم العبث بها عن طريق الخطأ) ديناميكي مع زيادة عدد الصفحات والبيانات (شرط تسمية الصفحة حسب الاسم month والبيانات تكون في نفس الخلايا) جدول مرتبات salimالموظف.rar

اخى العزيز معمرالراوي كل عام وانتم بخير وجزاك الله خيرا ولك بمثل ما دعيت

السلام عليكم ورحمة الله وبركاته سنتابع اليوم بعملنا بفضل الله وكرمه 1- تم اضافة رسائل التحذير لفاتورة الادخال بنفس الطريقة السابقة المستخدمة في تعريف المادة 2- اضفت فاتورة اخراج وتعمل على نفس مبدأ فاتورة الادخال لكن الفرق بينهما هو حقل type بحيث سيتم تخزين بداخله قيمة 2 بدل من 1 ليتم التفريق بين الفاتورتين 3- هناك سؤال يطرح نفسه بما انه جداول الفواتير نفسها ونماذج الفواتير مختلفة فحتما سيتم عرض سجلات فواتير الادخال ضمن نموذج فواتير الاخراج والعكس بالعكس لكن اذا عدنا الى البرنامج سنجد ان ذلك لم يتم هناك طريقة استخدمتها لعمل ذلك اريد مشاركتم في كشف هذه الطريقة accurate 16.rar

برنامج مخازن معدل جديد.rar

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

السلام عليكم الآن ننتقل الى كود XML وكيفية انشاءه. كود XML لتخصيص شريط ادوات يبدأ ب <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> هنا نضع الكود الخاص بانشاء شريط الادوات <tabs> </ribbon> </customUI> طبعا انا هنا لن اتطرق لمفاهيم لغة XML لان هذا ليس موضوعنا كما اننى لا اعرف عنها الكثير ساشرح فقط ما نحتاجه لتخصيص شريط الادوات اولا نفتح CustomUI ونغلقه كما بالكود اعلى وبداخله نفتح Ribbon ونغلقه وننتبه لحالة الاحرف فى بداية Ribbon نكتب "StartFromScratch="false وهذه الخاصية اذا ضبطت على False تقوم بعمل الشريط بعد الاشرطة الافتراضية اما True تقوم باخفاء الاشرطة الافتراضية بعد ذلك نكتب الكود التالى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> rRibbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true"/> </tab> </tabs> </ribbon> <CustomUI> هذا الكود يقوم باضافة tab جديد حيث customTb1 المعرف الخاص بالشريط MY NEW TAB الاسم الذى يظهر للمستخدم Visible="true" عملية اظهار الشريط الجديد ثم نقوم باضافة المجموعات الخاصة بالشريط بنفس الطريقة حيث نستبدل TAB ب Group <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true" > <Group id="CustomGR1" Lable="My Group"> </Group> </tab> </tabs> </ribbon> </customUI> نضيف المجموعة customGR1 المعرف الخاص بالمجموعة MY Group الاسم الذى يظهر للمستخدم قوموا بتنفيذ هذه الخطوات ثم اغلاق قاعدة البيانات ثم اعادة فتحه و قوموا بالذهاب الى options واختيار Current DataBase ومن ثم فى جزء Ribbon And Tool Bar Options اختار الشريط الذى قمنا بتصميمه ان شاء الله فى المشاركة القادمة نشرح كيفية اضافة الادوات والازرار الى الشريط والمزيد من خصائصها وبعدها ان شاء الله نشرح كيفية التحكم فى وقت فتح هذه الاشرطة سواء تخصيصها لفورم معين او فتحها عند فتح البرنامج وهذه القاعدة تنفيذ لما تعلمناه وهذا الكود النهائى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> Ribbon Customization Using XML.rar ملاحظات : 1- يجب الالتزام بحالة الاحرف الكبيرة والصغيرة 2- <ribbon>,<tab>,<group> هذه الاشياء تسمى فى لغة XML الاوسمة ومعظمها يفتح ثم يغلق ويفتح <الاسم> ويغلق <الاسم/> 3- لغة XML ليس لها اوسمة مخصصة شجعونى بآرائكم ومن كانت عنده زيادة او انتقاد او سؤال فلا يبخل علينا به

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

بعد إذن إخوتى وأساتذتى الأعزاء هناك العديد من الطرق التى يمكن أن تستحدم للبحث عن المكرر منها الطرق الأتية : 1-عن طريق ( CONDETIONALFORMATTING ) وفيها يتم التعليم على المكرر 2-أو عن طريق البحث عن جزء من الأسم وإظهار كافة الأسماء المتشابهة في هذا الجزء 3-أو عن طريق عمل قائمة يتم فيها إظهار الأسماء الفريدة دون المكرر إختبار إذا كان العمود به مكرر أم لا.rar التأكد من تواجد الأسماء_2.rar قائمة بدون تكرار.rar معادلة تلوين المكرر الذي أريدة.rar مقارنة بين عموديين وتلوين المكرر بينهما.rar

مثال علي الجمع و الجمع الشرطي و جمع المضروب ٍsum sumif sumproduct sumIF.zip