اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. Yesterday
  2. راجع هذه النتيجة اولا لنتأكد منها .... طبعا هذه البيانات للفترة الاولى فقط
  3. السلام عليكم اخوتي محتاج مساعدتكم اليوم . قمت بعمل فهرسة للمذكرة في مكتبة . و بعد التعديل عليه من طرف الاستاذ حصل مشكلة و خلط في الفهرسة . ممكن حد يتكرم و يضبط لي الفهرس
  4. يسعدني مساعدتك في إعداد معادلة لحساب الدرجة المعيارية بناءً على الدرجة الخام. **إليك خطوات إنشاء المعادلة:** 1. **حدد نطاق الدرجات الخام:** حدد الخلايا التي تحتوي على الدرجات الخام في الجدول الثاني. 2. **حدد نطاق الدرجات المعيارية:** حدد الخلايا التي تريد أن تظهر فيها الدرجات المعيارية في الجدول الأول. 3. **استخدم الدالة VLOOKUP:** استخدم الدالة VLOOKUP للبحث عن الدرجة المعيارية المقابلة للدرجة الخام. **إليك معادلة إكسل:** ``` =VLOOKUP(A2, $B$2:$C$10, 2, FALSE) ``` حيث: * **A2:** هي الخلية التي تحتوي على الدرجة الخام. * **$B$2:$C$10:** هو نطاق الجدول الذي يحتوي على الدرجات الخام والدرجات المعيارية. * **2:** هو رقم العمود الذي يحتوي على الدرجات المعيارية. * **FALSE:** يشير إلى أننا نريد مطابقة دقيقة. **مثال:** إذا كانت الدرجة الخام في الخلية A2 هي 14، فإن المعادلة ستبحث عن الدرجة المعيارية المقابلة في الجدول الثاني (الذي يفترض أن يكون نطاقه $B$2:$C$10). ستجد المعادلة أن الدرجة المعيارية المقابلة لـ 14 هي 86، وستضع هذه القيمة في الخلية المحددة في نطاق الدرجات المعيارية. **ملاحظات:** * إذا كانت الدرجة الخام أكبر من 16، ستعيد المعادلة أعلى درجة معيارية (90). * إذا كانت الدرجة الخام أقل من 0، ستعيد المعادلة أقل درجة معيارية (40). *
  5. السادة المحترمين والاستاذ محمد هشام المحترم من فضلك فعلا محتاج العمل ده فعلا
  6. السادة الخبراء الافاضل اريد ما بالصورة واليكم نموذج للتعديل علية LAB_2024.rar
  7. أحسنت ،، فكرة جميلة جداً أيضاً لدعمك في فكرة أخرى لتعديل جميع السجلات باستبدال 0 في رقم الهاتف في الجدول بمفتاح الدولة Dim db As dao.Database Dim rs As dao.Recordset Dim strSQL As String strSQL = "SELECT * FROM Table1 WHERE Left(PhoneNumber, 1) = '0'" Set db = CurrentDb Set rs = db.OpenRecordset(strSQL) Do Until rs.EOF rs.Edit rs!phoneNumber = "962" & Mid(rs!phoneNumber, 2) rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing
  8. انا عملت مربع نص مخفي في النموذج وسميته Key وجعلت القيمة الافتراضية له مفتاح الدولة وغيرت الحدث بهذا الشكل Dim phoneNumber As String Dim whatsappURL As String phoneNumber = Me.Key+txtPhoneNumber.Value If Len(Trim(phoneNumber)) = 0 Then MsgBox "يرجى إدخال رقم هاتف", , "" Exit Sub End If whatsappURL = "https://web.whatsapp.com/send?phone=" & phoneNumber Application.FollowHyperlink whatsappURL صحيح في شوية بطئ في فتح الواتساب لكن الحمدلله ضبط
  9. تعتمد على حقل مدمج بين قيمة مفتاح الدولة وقيمة الحقل اللي فيه الرقم بدون 0 عشان يتحقق معك شرط الرقم مع مفتاح الدولة بدون 00 كما أخبرتك .. هناك حل آخر وهو التعديل على جميع الارقام لديك من خلال كود بحيث يضيف لكل السجلات بدل 0 اللي في الرقم يصبح مفتاح الدولة فقط . طبعاً هذا لو الارقام محلية داخل بلدك الكريم ,,
  10. انا ، نزلت الملف ، خليني بس أطلع من الشغل ، واشوف الملف وارد عليك لأني لاحظت حاجة كمان انك عامل قيمة الصف في الجدول الرئيسي بتتاخذ من خلال استعلام !!! ودي حتعمل مستقبلاً مشاكل معك وتقيدك كتييييييييييييييييييييييير
  11. ابددعت 🌹 الف تحيه وشكر لك ملاحظة اخيرة واتمنى ما اكون اثقلت عليك عندي قاعدة بيانات مليئة بأرقام الهواتف وصعب تعديلها واضافة مفتاح الدولة ماهو الحل الذكي برأيك في هذه الحالة؟
  12. أنا اسف يا اخي أتمني أن يتسع صدرك أنا مثلما ذكرت بتعلم من بحر علمكم طيب ازاي اضيف اسماء المواد لأن عندي كذا مادة وأين اضيف سماء المعلمين وأنا عندي كذا معلم أنا بعت لحضرتك الملف بعد التعديل والربطsaad1.rar
  13. وعليكم السلام ورحمة الله وبركات أخي @qathi ،، استكمالاً لطلبك في موضوع سابق ، تفضل هذا التعديل على الزر المسؤول عن السحب من السكانر ,, Private Sub scan1_Click() [picfile] = Null On Error Resume Next Dim filelocation As String ' متغير موقع الملف filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg" 'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg" If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub End If Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.picfile = filelocation Me.Refresh End Sub الإضافة كانت فقط في الجملة الشرطية في الكود .. وهذا الملف المرفق بعد التعديل .. Scan01.accdb
  14. مهو احنا بنتكلم عن الربط !!! وانا اذا نسيت أأكد على الموضوع فبعتذر .. الحقول الرئيسية اللي تكلمت عنها فوق هي اللي هنخلي بينها علاقة
  15. جزاك الله خيرا ممكن تعدلي في الحدث بحيث يفتح الواتساب ويب من متصفح كروم وليس من خلال ابلكيشن الواتساب مع مراعاة طريقة كتابة مفتاح البلد في الحدث نفسه
  16. مكتوب المطلوب داخل الملف محتاج مساعدة.xlsx
  17. السلام عليكم احيي اساتذتنا الافاضل واعضاء منتدانا الشامخ وأسأل الله أن تكونوا في أتم الصحة والعافيه المطلوب كالتالي: عند الضغط على زر (سحب اسكانر) {ولم يكن جهاز الاسكانر غير موصل تظهر رسالة تخبر المستخدم أن الجهاز الاسكانر غير موصل } ولا يؤدي ذلك لظهور مشاكل اخر .. لأني قمت بمحاولات سابقة كانت تؤدي الى اخطاء وشكرا لكم على ماتقدموه لنا من وقتكم وجهدكم الثمين مرفق ملف للتعديل علية ScanPro.zip
  18. شكرا لحضرتك مش المفروض يتم الربط بين الجداول اللي احنا ضفنا لها حقول ؟
  19. أخي الغالي ، لا أمانع المتابعة معك أبداً ، ولكن افتح موضوع جديد حتى لا نخالف قوانين المنتدى لأن هذا الموضوع قد تم اغلاقه باختيار صاحبه أفضل إجابة . وأيضاً لأن الطلب مختلف عن الموضوع الأصلي
  20. أخي @Foksh يوجد شيء بسيط هل بالامكان ضهور رسالة اذا كان الاسكانر غير موصل تخبر المستخدم أنه لا يوجد جهاز اسكانر موصل .. لا يتعارض مع عمل الكود علما باني قمت بعدة محاولات كانت تسبب اخطاء
  21. عفوا ليس هذا ما أريد هنا تم اخفاءالقيم اربد إظهار السجل فارغ او بجعل لون الخط ابيض ثم السجل الذي به قيم ة يكون خلفية ملونة (كما في التقرير الأول بالتنسيق الشرطي)
  22. جدول الفصول انتهينا منه بإضافة حقل المادة الرئيسي في جدول الفصول . الآن في جدول المواد لو ضفنا حقل المعلم ، وضفنا في جدول الفصول رقم الاستاذ الرئيسي ، جرب بادخال بيانات ونتابع
  23. تسلم الانامل ولكن كنا نامل ان يعمل على اوفيس 2016
  1. أظهر المزيد
×
×
  • اضف...

Important Information