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

حاضر .. ولكن المسألة تحتاج الى نشاط ووقت لتجميع الكودات وضبطها وتجربتها يتحقق ذلك ان شاء الله

السلام عليكم ورحمة الله أساتذتنا وأصدقائنا الكرام في هذ الصرح العملاق والمتميز دائماً في فعل ونشر المعرفة والخير للجميع اليوم أتيت لكم ببرنامجي البسيط والمتواضع الذي ولله الحمد قد قمت ببرمجته في عام 2015 وأستخدمته أحدى شركات المقاولات التي تحتوي مايقارب عن 500 موظف في الأونة الأخيرة تم نشر برامج كثيرة حول مجال شؤون الموظفين والمرتبات ولكن كانت تقتصر فقط على مبدأ أرشفة بيانات الموظفين ولكن الآن تستطيع أخي المستخدم غير ذلك بكثير ، وهي إضافة المرتب لكل موظف في حسابه حسب اختيار المستخدم لفترة استحقاق المرتب له وعند دخول وقت الاستحقاق يقوم البرنامج بالتنبيه وتذكيرك بسحب المرتبات وأيضاً تستطيع إضافة حركات مالية أخرى كنظام السلف والدفعات والمسحوبات على المرتب وميزات كثيرة سوف تكتشفها بنفسك عند الاستخدام . قمت بإضافة نظام الحماية المتميز وهو تفعيل النسخة بالرقم التسلسي للوحة الأم بحيث تعمل النسخة على جهاز واحد فقط وعند النقل يتم قفل البرنامج عن العمل صور من البرنامج صورة تفعيل البرنامج روابط التحميل Office Soft.Employ & Salary أو Office Soft.Employ & Salary فيديو شرح التنصيب والتثبيت من هنا فيديو طريقة ألية عمل واستخدام البرنامج من هنا الشرح التفصيلي للبرنامج موجود في مجلد البرنامج بعد تثبيته على جهاز الكمبيوتر ملاحظة مهمة :يرجى عدم تغيير مسار تنصيب البرنامج لكي يعمل معكم بشكل كامل أو تنصيبه في مسار أخر غير القرص الصلب (C) البرنامج تم تجربته على أوفيس 2010 و 2007 ويعمل بشكل كامل ومتميز أتمنى أن ينال أعجابكم والحمد لله

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

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

بعد اعمال الفكرة وجدت ان تطبيق الفكرة غير منطقي نفرض استخرجنا ارقام كل من القرص الصلب / المعالج / اللوحة الأم وكانت النتيجة على النحو التالي : 12345 / 98745 / 528467 كيف سيتم صياغة الشرط ، واي الارقام سيظهر للمستخدم وما هي الترتيبات التي سيستخدمها المبرمج عند عطل واستبدال واحد منها اشرح لي الفكرة المراد تنفيذها وسوف اقوم بإذن الله بتطبيقها

جازاك الله خيرا و أعطاك ما تتمنى من خيرات الدنيا و حسن الآخرة لا أجد غير الدعاء ثناءا على ما قدمته لي شكرا .

خذ هذا الرابط بها ماتريد

هذا ملف نموذج عما تريد Time_format.rar

السلام عليكم ورحمة الله تفضلى New folder (2).rar

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

ياسلام اجابه اتت من خبره بلاضافه الى التحويل الى sql server تحياتي

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

اخي العزيز يجب عليك شرح المطلوب لكي يتم مساعدتك الترحيل من اين الى اين وارفاق ملف الاكسل تقبل فائق التقدير والاحترام

ضع رقم سري على قاعدة البيانات

وهذا تطبيق للعملية مختصر جدا ولكن انتبه ! اربط قاعدة الجداول الخلفية يدويا قراءة مسار الشبكة آليا.rar

السلام عليكم ورحمة الله ضع هذا الكود فى حدث الصفحة وسيعمل تلقائيا دون تدخل منك Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Dim cel As Range For Each cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) cel.Offset(0, 1).Value = cel Next End Sub

السلام عليكم بعض التعديلات على الملف "عملية قرعة لـ16 فريق_6" مع حذف كل التنسيقات الشرطية (بطء عمل الأكواد) ... بن علية عملية قرعة لـلفرق_1.rar

معذرة نسيت أمر السيرفر استعمل هذا الكود =Replace(DLookUp("database";"msysobjects";"database is not null");Right(DLookUp("database";"msysobjects";"database is not null");Len(DLookUp("database";"msysobjects";"database is not null"))-InStrRev(DLookUp("database";"msysobjects";"database is not null");"\"));"image\" & [المعرف] & ".jpg") و هذا هو المرفق careitems.rar

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

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

السلام عليكم في محرر فيجوال كود فتح التقرير اضف هذا الشرط "[رقم_الوثيقة]=" & Me.رقم_الوثيقة اي الكود سيكون كالتالي DoCmd.OpenReport stDocName, acPreview, , "[رقم_الوثيقة]=" & Me.رقم_الوثيقة تحياتي

مطلوب كود لتغير لون الخط في حقل رقمي في النموذج وفي التقرير عندما يتحقق شرطان ، شرط في قيمة الحقل وشرط في قيمة حقل آخر في نفس النموذج. للتوضيح إذا كانت قيمة الحقل الحالي TR أكبر من 16 وكانت قيمة الحقل ANC في النموذج تساوي 1 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 10 فيجب أن يكون لون الخط في الحقل TR أزرق وإذا كانت قيمة الحقل الحالي TR أكبر من 18 وكانت قيمة الحقل ANC في النموذج تساوي 2 فيجب أن يكون لون الخط في الحقل TR أحمر ، ولكن إذا كانت أقل من 7 فيجب أن يكون لون الخط في الحقل TR أزرق أرجو أن أحصل على هذا الكود مع تحياتي وتقديري

جرب هذا في النموذج Private Sub Form_Current() If Me.ANC = 1 Then If Me.TR > 16 Then Me.TR.ForeColor = 255 If Me.TR < 10 Then Me.TR.ForeColor = 16711680 ElseIf Me.ANC = 2 Then If Me.TR > 18 Then Me.TR.ForeColor = 255 If Me.TR < 7 Then Me.TR.ForeColor = 16711680 Else Me.TR.ForeColor = 0 End If End Sub

Expr2: Sum([item_prais]*[QOTE_ITEM])+First([add_prais])-First([descon_combny])-First([mdfoo_ada])

اخ واستاذي @صالح حمادي ممكن تتغير عنوان الموضوع لان هذه العنوان مثل هذا انا حسبته انه مكرر لذا ما فتحت تحياتي

حسب فهمي للبرامج مش لازم النتيجة بيطلع 14 بل بيطلع 38 شوف الحقل expr1 يجب ان يكون هكذا Expr1: Sum([Qote_item])*Sum([item_prais]) والحقل Expr2 بيكون هكذا Expr2: Sum([item_prais])*Sum([QOTE_ITEM])+([add_prais]-[descon_combny])-([mdfoo_ada]) والنتيجة بيطلع هكذا واليك ملفك القي نظرتا اليه واحتمال انا بيكون غلطان لكن شوف النتائج تحياتي برنامج واليد.rar

اضف الشرط في كود معاينة التقرير اي غير الكود الى DoCmd.OpenReport stDocName, acPreview, , "[رقم الحركة]=" & Me.رقم_الحركة واليك ملفبك بعد اضافة ذلك وتم تقليل حجم التقرير لكي يظهر على صفحة واحدة اي حين تطبع يطبع صفحة واحدة وما يطبع صفحة خالية من البيانات تحياتي برنامج الحوالات.rar

اتفضل ماتريد غير مسموح للعميل بالتجاوز للحد المسموح له.rar

هل وصلت لمطلوبك او بعد تريد المطلوب بطريقتك بجدولين دخول وخروج ؟

اخي الكريم السلام عليكم ورحمة الله وبركاته كما تعرف عندك جدولين جدول لدخول والاخر للخروج عدى جدول المعلومات واحنا نتعامل بين جدولين بواسطة العلاقة بين تاريخين في الجدولين وما نكدر نتخلي من ذاك العلاقة والا راح يكرر كل ريكورد بعدد السجلات وبهذا راح يشوف التاريخ اولا بعدين راح يشوفه اي شخص دخل وخرج في نفس التاريخ راح يحسبه والا راح يتركه اكيد راح تسأل وما الحل !! الحل ان تستخدم جدول واحد للدخول والخروج واذا تريد تكدر تستخدم التاريخين وتكدر تستخدم تاريخ واحد فقط شوف في المرفق انا سويت جدول اخر بدل جدولين الدخول والانصراف وشوف النتيجة في استعلام كيوكيو1 اتفضل مع القاعدة تحياتي ساعات عمل الموظفين.rar

كل شي تمام عندي الطباعة والتحويل تحياتي

اتفضل ما طلبت استخدمت هذا Between Forms![Form1]![txtFirstDate] And Forms![Form1]![txtLastDate] ويعمل عادي اتفضل ملفك بعد اضافة كود الاعلاه CrossTab.zip

شوف العلاج في المرفق ساعات عمل الموظفين.rar

أستاذ محمد حسب فهمي للموضوع أظن أن هذا ما تبحث عنه Gotorecord.rar

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

تفضل استاذ جبار Goto.rar

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

السلام عليكم ماشاء الله جهد جميل أخي عيد وبعد إذن اخي محمد يحياوي بدأت بالتجميع في ملف واحد مؤقتا (الهيكل العام للكتاب) واللينكات الداخلية من وإلي صفحة الفهرس وكذلك أسماء جميع الدوال بأقسامها الإثناعشر وأنهيت نسخ الجزء الأول يبقي نسخ باقي الأجزاء كل دالة في مكانها (بسهولة باستخدام الهيبرلينك) والتنسيق العام للكتاب سأترك لكل من أراد المشاركة والتحسين إليكم المرفق XLS_VBA_Funcsions_ARABIC.rar

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق لكم اليوم الإثنى عشر جزءاً للشرح الكامل لجميع دوال برنامج الإكسيل باللغه العربيه والذى وجدتة على أحد مواقع الإنترنت فقمت بتجميعة وتصنيفة وفقاً لطبيعة الدوال وهو شرح مبسط جداً أرجو أن يكون نافعاً للبعض منا وسوف أقوم بتحميلهم على عدة مرات كالتالى:- الجزء الخامس : دوال قواعد البيانات الجزء السادس : دوال الوقت و التاريخ الجزء السابع : الدوال الهندسية الجزء الثامن : دوال المعلومات الجزء التاسع : الدوال المنطقية الجزء العاشر : دوال البحث الجزء الحادى عشر : دوال النصوص الجزء الثانى عشر (والأخير) : دوال المكعب وعذراً على التأخير فقد كنت أقوم بتنزيل كل ملف على حده أرجو منكم الدعاء لوالدى رحمة الله عليه بالمغفرة أخوكم عيد مصطفى Database Functions.rar Date & Time Functions.rar Engineering functions.rar Information functions.rar Logistic functions.rar Search functions.rar Text Functions.rar Cubic functions.rar

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق لكم اليوم الإثنى عشر جزءاً للشرح الكامل لجميع دوال برنامج الإكسيل باللغه العربيه والذى وجدتة على أحد مواقع الإنترنت فقمت بتجميعة وتصنيفة وفقاً لطبيعة الدوال وهو شرح مبسط جداً أرجو أن يكون نافعاً للبعض منا وسوف أقوم بتحميلهم على عدة مرات كالتالى:- الجزء الثالث : الدوال الرياضية الجزء الرابع : الدوال المالية وعذراً على التأخير فقد كنت أقوم بتنزيل كل ملف على حده أرجو منكم الدعاء لوالدى رحمة الله عليه بالمغفرة أخوكم عيد مصطفى Mathematical functions.rar Financial Functions.rar

الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته أرفق لكم اليوم الإثنى عشر جزءاً للشرح الكامل لجميع دوال برنامج الإكسيل باللغه العربيه والذى وجدتة على أحد مواقع الإنترنت فقمت بتجميعة وتصنيفة وفقاً لطبيعة الدوال وهو شرح مبسط جداً أرجو أن يكون نافعاً للبعض منا وسوف أقوم بتحميلهم على عدة مرات كالتالى:- الجزء الأول : دوال العمليات التلقائية الجزء الثاني : الدوال الإحصائية وعذراً على التأخير فقد كنت أقوم بتنزيل كل ملف على حده أرجو منكم الدعاء لوالدى رحمة الله عليه بالمغفرة أخوكم عيد مصطفى Automation Functions.rar Statistical functions.rar

السلام عليكم تفضل كما تريد test_UP.rar

السلام عليكم ورحمة الله أخي الكريم، من الأحسن وضع نموذج في ملف لتسهل العمل عليها... إليك الملف الملف أين استعملت التنسيق الشرطي على الخلايا وكود صغير يوضع في ThisWorksheet... موفق إن شاء الله تلوين الصف والعمود.rar