كل الانشطه

السلام عليكم ورحمة الله وبركاته اخواني المتابعين اضع بين ايديكم شرح لعمل فلتر متقدم احترافي اكسل https://web.facebook.com/share/v/1D1gV8MEei/

اعتقد انه يقضد (شكراً لك أخي) ولكنه لم يراجع ماكتب قبل الارسال .

تفضل استاذ @بلال اليامين الشرح والمرفق . ووافني بالرد . البرنامج1.rar

تفضل استاذ @اكتيف طلبك حسب مافهمت بالاستعلام الحقل (BB) وباقي الحقول سويها بالمثل مثلاً (([اسم الحقل])AA:RoundCustom). ووافني بالرد . Database1-1.rar

تفضل استاذ @figo82eg طلبك حسب ما فهمت . ووافني بالرد . الرقم القومى-1.rar

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

جرب Round((([درجة1]+[درجة2]+[درجة3]+[درجة4])/4)*2)/2 لو فى استعلام AvgRounded:Round(((Nz([Exam1],0)+Nz([Exam2],0)+Nz([Exam3],0)+Nz([Exam4],0))/4)*2)/2 بالتوفيق

تفضل بالتوفيق البرنامج1_2.accdb

تفضل بالتوفيق الرقم القومى.rar

مساء الخير لو سمحت انا عندى مشكلة في العلامه العشرية فى الاكسيس بمعنى انا عندى الطفل له 4 امتحانات هجمعهم واقسم على 4 يعنى مثلا مروان درجاته 10 و 7.5 و 9.5 و 9.5 كدا المجموع 36.5 المفروض اقسم على 4 هيطلع 9.125 انا مش عاوز كدا عاوز يعمل تقريب يعنى الرقم دا يبقي 9.5 وكمان لو الطفل درجته 9.5 تبقي زى ما هي ولو درجته 9.6 تتقرب الى 10 Database1.accdb

ارجو المساعدة

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

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

لدى قاعدة بيانات يتم تسجيل هوية العميل : 1 رقم قومى 2 جواز سفر 3 وثيقة اقامة 4 بطاقة ورقية وعند اختيار نوع الهوية : الرقم القومى وبعد كتابة الرقم القومى المكون من 14 رقم يتم تسجيل تاريخ الميلاد ومحافظة الميلاد والنوع تلقائى ما اريده هو عند اختيار اى نوع أخر من الهوية غير الرقم القومى يتم السماح لى بالتسجل اى ارقام وحرف فى نفس الحقل الرقم القومى.rar

بناءً على طلب أخي يوسف ، تم تحويل الكود إلى وحدة نمطية عامة ، بحيث يتم الاستدعاء من أي مكان وأي نموذج . بحيث تصبح :- Public Function GenerateSalary(yearInput As Integer) Dim db As DAO.Database Dim tDef As DAO.TableDef Dim fld As DAO.Field Dim rs As DAO.Recordset Dim startDate As Date, endDate As Date, d As Date Dim monthName As String Dim monthCode As Integer Dim shiftValue As Double Dim startDateTime As Date Dim endDateTime As Date Dim monthEndDate As Date Dim monthEndWorkDate As Date Dim m As Integer, y As Integer startDate = DateSerial(yearInput - 1, 12, 21) endDate = DateSerial(yearInput, 12, 20) On Error Resume Next DoCmd.DeleteObject acTable, "Salary" On Error GoTo 0 Set db = CurrentDb db.Execute "CREATE TABLE Salary (" & _ "ID AUTOINCREMENT PRIMARY KEY, " & _ "WorkDate DATE, " & _ "DayName TEXT(20), " & _ "MonthName TEXT(20), " & _ "monthCode LONG, " & _ "shift CURRENCY, " & _ "startDay DATE, " & _ "endDay DATE)" Set tDef = db.TableDefs("Salary") Set fld = tDef.Fields("shift") On Error Resume Next fld.Properties("Format") = "#,##0.00" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "#,##0.00") End If fld.Properties("DecimalPlaces") = 2 If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("DecimalPlaces", dbInteger, 2) End If Set fld = tDef.Fields("startDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If Set fld = tDef.Fields("endDay") On Error Resume Next fld.Properties("Format") = "hh:nn AM/PM" If Err.Number <> 0 Then Err.Clear fld.Properties.Append fld.CreateProperty("Format", dbText, "hh:nn AM/PM") End If On Error GoTo 0 Set fld = Nothing Set tDef = Nothing Set rs = db.OpenRecordset("Salary", dbOpenDynaset) monthCode = 0 monthEndWorkDate = DateSerial(yearInput - 1, 12, 20) d = startDate Do While d <= endDate If Weekday(d, vbMonday) <> 5 And Weekday(d, vbMonday) <> 7 Then m = Month(d) y = Year(d) If Day(d) >= 21 Then m = m + 1 If m = 13 Then m = 1 y = y + 1 End If End If monthName = Format(DateSerial(y, m, 1), "MMMM") monthCode = 0 monthEndDate = DateSerial(Year(d), Month(d), 20) If Weekday(monthEndDate, vbMonday) = 5 Or Weekday(monthEndDate, vbMonday) = 7 Then monthEndWorkDate = monthEndDate Do monthEndWorkDate = DateAdd("d", -1, monthEndWorkDate) Loop Until Weekday(monthEndWorkDate, vbMonday) <> 5 And Weekday(monthEndWorkDate, vbMonday) <> 7 Else monthEndWorkDate = monthEndDate End If If d = monthEndWorkDate Then Select Case Month(d) Case 12: If Year(d) = yearInput - 1 Then monthCode = 1 Else monthCode = 12 Case 1: monthCode = 1 Case 2: monthCode = 2 Case 3: monthCode = 3 Case 4: monthCode = 4 Case 5: monthCode = 5 Case 6: monthCode = 6 Case 7: monthCode = 7 Case 8: monthCode = 8 Case 9: monthCode = 9 Case 10: monthCode = 10 Case 11: monthCode = 11 End Select End If If Weekday(d, vbMonday) = 6 Or Weekday(d, vbMonday) = 3 Then shiftValue = 1 startDateTime = DateAdd("n", 30, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(13, 30, 0) Else shiftValue = 1.2 startDateTime = DateAdd("n", 10, DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(8, 0, 0)) endDateTime = DateSerial(Year(d), Month(d), Day(d)) + TimeSerial(14, 30, 0) End If rs.AddNew rs!WorkDate = d rs!DayName = Format(d, "dddd") rs!monthName = monthName If monthCode > 0 Then rs!monthCode = monthCode Else rs!monthCode = Null End If rs!shift = shiftValue rs!startDay = startDateTime rs!endDay = endDateTime rs.Update End If d = d + 1 Loop rs.Close Set rs = Nothing db.TableDefs.Refresh Set db = Nothing MsgBox "تم إنشاء الجدول بنجاح", vbInformation + vbMsgBoxRight, "" DoCmd.SelectObject acTable, "Salary", True End Function طبعاً تم دمج الدالتين معاً . والإستغناء عن ا|لإستدعاء المتكرر للجملة ElseIf باستخدام الدالة Select Case . وسيصبح الإستدعاء كمثال بالشكل التالي :- Private Sub btnGenerate_Click() If IsNull(Me.TxtYear) Then MsgBox "أدخل رقم السنة", vbExclamation + vbMsgBoxRight, "" Me.TxtYear.SetFocus Exit Sub End If GenerateSalary (Me.TxtYear) End Sub الملف بعد التعديل :- CalGen2.zip

اختيار شركة إتقان يعني الاعتماد على جهة موثوقة في عالم الترجمة الاحترافية؛ حيث تجمع بين الجودة والخبرة في مجال الترجمة العلمية المتخصصة، وتقدم خدمات ترجمة البحوث العلمية التي تساعد الباحثين على إيصال أفكارهم بوضوح ودقة، وتسعى دائمًا لتحقيق رضا العملاء، وبناء علاقات طويلة الأمد قائمة على الثقة والنجاح المشترك.

تتميز شركة إتقان بالمرونة في التعامل مع مشاريع مختلفة وتقدم حلول الترجمة المناسبة لكل عميل، وتمتلك خبرة علمية واسعة في مجال الترجمة التي تحتاج إلى تميز واحترافية عالية، كما تقدم خدمات ترجمة جديدة للخريجين والباحثين الرائعين أكاديمي سليم، وتحرص على الالتزام بالمواعيد النهائية، وحتى تجربة مجانية من القلق .

تعتمد شركة إتقان على أحدث الأدوات والتقنيات اللغوية لتقديم خدمات الترجمة بجودة عالية، ويعمل لديها نخبة من المتخصصين في الترجمة العلمية في المجالات الطبية والهندسية والأكاديمية، كما تولي اهتمامًا كبيرًا بأعمال ترجمة البحوث العلمية بما يتوافق مع متطلبات النشر الدولي، وتسعى دائمًا إلى التطوير المستمر لخدماتها؛ لتواكب تطورات السوق العالمي.

تعتمد شركة إتقان على أحدث الأدوات والتقنيات اللغوية لتقديم خدمات الترجمة بجودة عالية، ويعمل لديها نخبة من المتخصصين في الترجمة العلمية في المجالات الطبية والهندسية والأكاديمية، كما تولي اهتمامًا كبيرًا بأعمال ترجمة البحوث العلمية بما يتوافق مع متطلبات النشر الدولي، وتسعى دائمًا إلى التطوير المستمر لخدماتها؛ لتواكب تطورات السوق العالمي.

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

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

يعتقد الكثيرون أن المولد الكهربائي هو مجرد جهاز "للطوارئ" يبقى مركوناً حتى لحظة انقطاع التيار، ولكن الحقيقة التقنية تقول إن المولد هو محرك احتراق داخلي معقد يحتاج إلى رعاية مستمرة ليقوم بدوره في اللحظة الحرجة. إن إهمال الصيانة لا يعني فقط تعطل المولد، بل يعني انهيار خط الدفاع الأول عن منشأتك. 1. ضمان "الجاهزية الفورية" عند لحظة الصفر تحدث معظم أعطال المولدات في الدقائق العشر الأولى من انقطاع التيار الكهربائي. الصيانة الدورية تضمن أن نظام البدء (المرش والبطاريات) في حالة مثالية. فالبطاريات هي السبب رقم 1 لفشل تشغيل المولدات عالمياً؛ وبدون فحص دوري لمستويات الشحن والسوائل، قد تجد نفسك في ظلام دامس رغم امتلاكك لأفضل مولد في العالم. 2. إطالة العمر الافتراضي للمحرك (ROI) المولدات من ماركات مثل Baudouin أو Perkins هي استثمارات رأسمالية ضخمة. الصيانة التي تشمل تغيير الزيوت والفلاتر في مواعيدها تمنع أسعار مولدات الكهرباء في مصر الداخلي وتراكم الرواسب الكربونية داخل الأسطوانات. قاعدة تقنية: كل ساعة يقضيها الفني في الصيانة الوقائية توفر عليك عشرات الساعات من الإصلاحات الجسيمة (العمرات) وتضيف سنوات إلى عمر المولد الافتراضي. 3. الحفاظ على كفاءة استهلاك الوقود مع مرور الوقت، قد تتعرض رشاشات الوقود (Injectors) للانسداد الجزئي أو يتسخ فلتر الهواء، مما يؤدي إلى احتراق غير كامل. هذا لا يتسبب فقط في خروج دخان أسود ملوث للبيئة، بل يؤدي إلى زيادة استهلاك الوقود بنسبة قد تصل إلى $15\%$. الصيانة تضمن أن المحرك "يتنفس" ويحرق الوقود بكفاءة مثالية، مما يوفر مبالغ طائلة على المدى الطويل. 4. حماية الأجهزة الحساسة من تذبذب التيار الصيانة لا تقتصر على المحرك فقط، بل تشمل "الدينامو" ومنظم الجهد (AVR). الفحص الدوري للتوصيلات الكهربائية وتنظيف ملفات النحاس من الأتربة يمنع حدوث شرارات كهربائية أو تذبذب في الفولتية. التيارات غير المستقرة الناتجة عن مولد مهمل قد تؤدي إلى احتراق بوردات صيانة مولدات كهرباء، أجهزة الكمبيوتر، والمعدات الطبية الحساسة. جدول: ماذا يحدث إذا أهملت الصيانة؟ العرض المحتمل السبب التقني النتيجة فشل التشغيل تآكل أقطاب البطارية أو قدم الوقود توقف العمل تماماً في وقت الحرجة ارتفاع الحرارة انسداد الراديتر أو نقص سائل التبريد تلف رأس المحرك (Cylinder Head) دخان كثيف اتساخ فلاتر الهواء أو تلف الرشاشات تلوث البيئة واستهلاك وقود مضاعف تلف الأجهزة ضعف منظم الجهد (AVR) احتراق الأجهزة الكهربائية المتصلة نصيحة ذهبية: سجل الصيانة (Logbook) لا تعتمد على الذاكرة؛ يجب أن يمتلك كل مولد "سجل صيانة" يدوّن فيه الفني تاريخ تغيير الزيت، نوع الفلاتر المستخدمة، وعدد ساعات التشغيل. هذا السجل هو "الشهادة الصحية" للمولد التي ترفع من قيمته عند البيع وتضمن لك راحة البال. الخلاصة: الصيانة الدورية ليست رفاهية أو تكلفة إضافية، بل هي "بوليصة تأمين" تضمن أن استثمارك سيتحرك فوراً عندما يخذله المصدر الرئيسي للكهرباء.

تُعد هذه الماركات "العمالقة الأربعة" في عالم المحركات، وكل واحدة منها تسيطر على قطاع معين بفضل تكنولوجيا هندسية فريدة. إليك ما يميز كل ماركة منها وكيف تختار الأنسب لمشروعك: 1. ماركة بيركنز (Perkins) - "ملك الانتشار والمرونة" بيركنز البريطانية هي الماركة الأكثر شهرة عالمياً، وتعتبر الخيار الأول للمشاريع المتوسطة والصغيرة. سهولة الصيانة: تتميز بتوفر قطع غيارها في كل مكان (الأصلية والبديلة)، وأي فني محركات في العالم يمكنه إصلاحها. التنوع: توفر مدى واسعاً جداً من القدرات تبدأ من مولدات صغيرة للمنازل وصولاً إلى المحركات الضخمة. اقتصاد الوقود: محركاتها شركات مولدات كهرباء لتعطي أداءً عالياً مع استهلاك وقود متوازن جداً. 2. ماركة كاتربيلر (Caterpillar/CAT) - "عملاق المهام الشاقة" إذا كانت الظروف الجوية قاسية أو الحمل الكهربائي ضخماً، فإن "كات" هي الخيار رقم 1. المتانة الفائقة: محركات CAT مصممة لتعمل في المناجم، الصحاري، ومواقع البناء الكبرى تحت أقصى درجات الضغط. التكامل: كاتربيلر تصنع المولد كاملاً (المحرك + الدينامو + لوحة التحكم)، مما يضمن توافقاً بنسبة $100\%$ في الأداء. القوة: تعتبر الأفضل في المحركات العملاقة التي تتجاوز $2000 \text{ kVA}$. 3. ماركة سكانيا (Scania) - "ذكاء الأداء وكفاءة الوقود" تُعرف سكانيا السويدية بأنها "مرسيدس" المولدات، حيث تركز على التكنولوجيا والبيئة. استهلاك الوقود الأقل: تعتبر سكانيا من أكثر صيانة مولدات كهرباء توفيراً للوقود بفضل أنظمة الحقن الإلكتروني المتطورة. التصميم المدمج: محركاتها قوية جداً مقارنة بحجمها، مما يوفر مساحة في غرف المولدات. الهدوء والبيئة: تلتزم بأعلى معايير الانبعاثات الأوروبية، وهي الأقل ضجيجاً واهتزازاً في فئتها. 4. ماركة بودوان (Baudouin) - "التوازن المثالي بين السعر والجودة" بودوان الفرنسية اكتسبت ثقة عالمية، خاصة بعد استحواذ مجموعة Weichai عليها وتطوير خطوط إنتاجها. القدرة على العمل المتواصل: جذور الشركة في المحركات البحرية جعلت محركاتها تتحمل العمل لساعات طويلة جداً دون توقف. مقاومة الحرارة: صُممت لتناسب أجواء الخليج والشرق الأوسط، حيث تعمل بكفاءة عالية في درجات حرارة محيطة مرتفعة. القيمة مقابل السعر: توفر جودة تقترب من الماركات الأوروبية العريقة وبسعر منافس جداً، مع فترات ضمان طويلة. مقارنة سريعة لاتخاذ القرار: وجه المقارنة بيركنز (Perkins) كاتربيلر (CAT) سكانيا (Scania) بودوان (Baudouin) التوفر ممتاز جداً جيد جداً جيد ممتاز سعر قطع الغيار اقتصادي مرتفع متوسط منافس بيئة العمل عامة شاقة جداً تكنولوجية/بيئية بحرية/حرارة عالية العمر الافتراضي طويل طويل جداً طويل طويل

يتشرف #مركز_الرؤية_الاستراتيجية_للتدريب #Strategic_Vision_Training_Center لدعوة سيادتكم للأنضمام الي الدورات التدريبية التالية,,,,, دورات تدريبية هندسة الصيانة مقدمة إن أهمية الدورات التدريبية ليست قاصرة فقط على الحياة المهنية كما يظن أغلبنا .. ولكن الدورات التدريبية تهدف إلى نقل المعرفة والخبرات العملية التى تثقل مهارات الأفراد وتعزز الثقة بالنفس لديهم مما يساهم في إعداد الكوادر مما يعود بدوره على تطوير وتقدم المؤسسات .لذا يهدف مركز الرؤية الاستراتيجية للتدريب إلى تعزيز مهارات وخبرات الافراد من خلال أقوى البرامج التدريبة لنواكب كل تطور في سوق العمل . #دورات #هندسة_الصيانة دورة الادارة المتقدمــة لقيــاس وتـطـويـــر مشاريــع الصيانـــــة دورة الصيانة المرتكزة على المخاطر والموثوقية (RCM و RBM) دورة التكنولوجيا المتقدمة لعمليات الصيانة دورة نظم الصيانة المخططة – التخطيط، الجدولة،التنفيذ والمتابعة دورة تخطيط و صيانة الاوناش والروافع دورة الصيانة الوقائية دورة تشغيل وتصميم وصيانة المبادلات الحرارية دورة صيانة المباني والمرافق دورة تكنولوجيا الصيانة وتحليل الأعطال للمشغلين دورة حماية وصيانة المحركات الكهربائية دورة عملية استكشاف الأخطاء وإصلاحها دورة قياس و اداء فعالية الصيانة دورة مهارات إدارة الصيانة الحديثة دورة نظم ادارة الصيانة المتكاملة باستخدام الحاسب الآلى CMMS دورة هندسة المواد والتآكل لمشرفى الصيانة والمشاريع (CMRP) الدورة المتقدّمة في الصيانة والموثوقية دورة صيانة وإدارة رصف الطرق. دورة تصميم وتشغيل وصيانة الشبكات الكهربائية دورة صيانة المحولات وخلايا التوزيع دورة مقدمة في هندسة الصيانة أماكن الانعقاد ( #دبي #اسطنبول #كوالالمبور #المغرب #السعودية #شرم_الشيخ #القاهرة #الأسكندرية #لندن # اسبانيا #كندا ) الاعتمادات احصل الان على شهادتك باعتماد cpd الدولى كما يوجد خصم للشركات والهيئات والجهات الحكومية والمجموعات كما يتم تنفيذ أي دوره تدريبيه اخرى تلبي احتياجاتكم التدريبية بالوقت و بالمكان المناسبين لكم على ان يكون عدد المشاركين (2) كحد ادنى قاعات التنفيذ بفنادق 5 نجوم ذات الشهره العالميه مجهزه بالوسائل السمعيه والبصريه للتسجيل او لطلب العرض الفنى والمالى يرجى الاتصال او ارسال بريد الاكترونى Ahmed Mohamed 00201551848384 : WhatsApp Training@svtcenter.com svtcenter.com Facebook https://www.facebook.com/profile.php?id=100086139318374 Twitter https://twitter.com/StrategicVisio7 Linkedin https://www.linkedin.com/company/strategic-vision-training-center/ Instagram https://www.instagram.com/strategicvisiontrainingcenter WIX https://eslam-training.wixsite.com/training Website https:// svtcenter.com/ar/Home