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

بسم الله الرحمان الرحيم السلام عليكم ورخمة الله وبركاته بعد النسخة الاولى لبرنامج القران الكريم اولاين احببت طرح النسخة الثانية للبرنامج الجديد فيها هو اضافة 3 مقرئين + تلاوات خاشعة راديو القران الكريم البث الحي للحرم المكي المصحف الفلاشي امكانية اضافة مقرئين جدد الى غاية 100 مقراء ملاحضة اذا ضهرة لك الصورة المقابلة اختر الخيار الثاني كما في الصورة ثم اضغط متابعة ليس لديا مانع من نشر المرفق بذكر المصدر او عدم ذكره المهم هو التعميم مع تحيات اخوكم شوقي ربيع _ سخة الثانيةالقرأن الكريم_اونلاين.rar

السلام عليكم لاخ محمد الحسن هذا برنامج بسيط صممته لك عل السريع لاي اضافات نجن في الخدمة تخزين+تعديل لصادر و الوارد.rar

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

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

السلام عليكم معذرة لم انتبه للملف المرفق في البداية علي اي حال جرب هذه المحاولة Sub saad() Sheets("report").Range("b5:l1000").Clear Sheets("data").Range("k7:k" & Sheets("data").Range("k" & Rows.Count).End(xlUp).Row).Copy Sheets("report").Range("b5").PasteSpecial (xlPasteValuesAndNumberFormats) Sheets("data").Range("l8:l" & Sheets("data").Range("l" & Rows.Count).End(xlUp).Row).Copy Sheets("report").Range("c5").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Transpose:=True Application.CutCopyMode = False r = Sheets("report").Range("b" & Rows.Count).End(xlUp).Row c = Sheets("report").Range("iv5").End(xlToLeft).Column Sheets("report").Range(Cells(6, 3), Cells(r, c)).FormulaR1C1 = "=SUMIFS(saad!C4,saad!C1,RC2,saad!C2,R5C)" Sheets("report").Range(Cells(6, 3), Cells(r, c)) = Sheets("report").Range(Cells(6, 3), Cells(r, c)).Value End Sub تحياتي 1++.rar

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

الأستاذ / فتحي نعم اعلم ذلك والقاعدة تعمل على ذلك ولكن حضرتك عندما أرسلت البيانات المستحقات تم خصم 2% فقط حصة المكافأة وليس 4 % على الجانب الآخر في الاستقاعات تم خصم حصة المكافأة 4 % مما أدى إلا تغير في صافي المرتب في القاعدة عن البيانات المرسلة من حضرتك ولكن كل شيئ صحيح بنسبة 100% ولله الحمد. أرجو ان تدخل على الرابط المرسل لكي تحمل الملف لأنه لم يتم تحميله على المنتدى لأنه أكبر قليلاً من المساحة المسموح بها. وأنا في انتظار أي استفسار من حضرتك. وإن شاء الله بعد المراجعة سوف أضيف لك علاوة 2008 على الأساسي وسوف أرسلها لحضرتك. لك كل التحية والتقدير.

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

السلام عليكم تحياتي للجميع ومرحبا بك في المنتدي , حاول ارفاق ملف توضح فيه المطلوب في المرات القادمة . هذه محاولة (زيادة في الخير ) باستخدام vlookup مع المعامل true . vlookuptrue.rar

فعلا أستاذى الأرقام غير محددة وغير واضحة بحيث يتم ربطها بشئ معين عل العموم هذا الملف مفتوح للبحث أفعل به ماشئت ممكن يحقق ماتريد البحث عن مدينة.rar البحث عن المدينة 3.rar

اخي الكريم // إبراهيم أبوليلة لتقسيم الخلية الي أسطر عليك أولا ان تجعل تنسيق الخلية (التفاف نص ) وتستخدم المعادلة CHAR(10) مثال علي ذلك فرضا في الخلية (D9) عبدالله والخلية (D10) إبراهيم والخلية (D11) أحمد واريد ان تظهر الأسماء في الخلية (D14) اسفل بعضها في خلية واحدة بالخلية اكتب المعادلة كالتالي =D9&CHAR(10)&D10&CHAR(10)&D11 وسوف تكون النتيجة بالخلية (D14) بالشكل التالي عبدالله إبراهيم أحمد ((مع ملاحظة لابد ان يكون تنسيق الخلية التفاف النص)

السلام عليكم أخي عبد المانع ، أشكرك إخواني وأخواتي ، بارك الله فيكم جميعاً سنتابع درسنا في Recordsetclone استنساخ مجموعة التسجيلات Recordset وفي هذا الدرس سنتعلم كيف نتعامل مع مجموعة التسجيلات المرتبطة مع نموذج والتي يمكن تحديدها من خاصية record source مصدر السجل في النموذج في وضع التصميم . هذه المجموعة من نوع Dynaset وهو النوع الثاني في تقنية DAO والتي يكافئها في ADO خاصية keyset cursor وهي مجموعة السجلات التي يمكن الأضافة عليها أو التغيير بها أو الحذف منها والمتعلقة بجدول واحد أو مجموعة جداول . من المهم ملاحظة أن نوع مجموعة التسجيلات التي يتم تعريفها في وضع التصميم في قاعدة البيانات mdb. هي بشكل تلقائي DAO Recordset ، أما في مشروع أكسيس فتكون ADO Recordset. وربما يتساءل البعض لماذا نحتاج إلى استنساخ مجموعة التسجيلات المرتبطة بنموذج ما ولماذا لا نتعامل معها مباشرة ، الأسباب كثيرة ومتعددة ، دعوني أقدم لكم سببا بسيطا مثلا خاصية Recordcont ليست متوفرة للنموذج بينما متوفرة لمجموعة التسجيلات ، والخاصية find كذلك ، بالإضافة إلى أن مؤشر مجموعة التسجيلات المستنسخة مستقل ولا علاقة له بمؤشر مجموعة التسجيلات المرتبطة بالنموذج وهذا يمكننا من عمل الأشياء بالخفاء دون ظهور تأثيراتها في النموذج وخصوصا في عملية التنقل بين السجلات التي عادة ما نحتاج لها في معظم الإجراءات والمتطلبات البرمجية لتنفيذ مهمات محددة كما في مثالنا التالي : في مثالنا لهذا الدرس قمت بتصميم زر أمر الذي بضغطه نقوم بقراءة رقم موظف ونطبع كنتيجة أولا عدد السجلات في جدول الموظفين وكذلك عدد الموظفين الذين تحت أمرنه (يعني عدد الموظفين الذين هو مسؤول عنهم) Private Sub example1_Click() Dim rstEmployees As DAO.Recordset Set rstEmployees = Me.Form.RecordsetClone id = InputBox("أدخل رقم المسئول") C = 0 MsgBox "عدد الموظفين " & rstEmployees.RecordCount rstEmployees.MoveFirst Do While Not rstEmployees.EOF If rstEmployees!EmpHead = id Then C = C + 1 rstEmployees.MoveNext Loop If C = 0 Then MsgBox "الموظف صاحب الرقم " & id & "ليس مسؤولا عن أحد" Else MsgBox " عدد الموظفين الذين بأمرة هذا المسؤول " & C End If rstEmployees.Close End Sub ملاحظات : 1. Set rstEmployees = Me.Form.RecordsetClone في هذا الأمر تم استنساخ مجموعة التسجيلات المرتبطة بالنموذج وهي في مثالنا سجلات الموظفين من جدول الموظفين وتم تعيينها لمجموعة التسجيلات rstrecordset التي ليس لها علاقة نهائيا في المجموعة المرتبطة بالنموذج. 2. تم عمل حلقة دورانية تنتهي بالوصول إلى أخر سجل في المجموعة المستنسخة وخلالها نقوم بزيادة العداد بناء على تحقق الشرط الذي بواصطته نحدد أن الموظف الذي أدخلنا رقمه بالمتغير id هو مسؤولا أو لا عن الموظف الذي وصلنا عنده في دورة الحلقة. 3. وفي النهاية يتم بناء على قيمة c وهي عدد الموظفين الذين تم احصائهم طباعة النتيجة. مع الاحترام والتقدير RecordsetLesson.rar