اذهب الي المحتوي
أوفيسنا

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

  1. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      6

    • Posts

      1,347


  2. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      6

    • Posts

      11,620


  3. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      5

    • Posts

      9,724


  4. محمد أبوعبدالله

    • نقاط

      4

    • Posts

      1,998


Popular Content

Showing content with the highest reputation on 30 يول, 2020 in all areas

  1. الفرق واضح وبين في الجملة الاولى التركيز على ( النموذج) ثم التركيز على (الحقل النصي) ثم ( الأمر بفتح سجل جديد ) وهذا يعني ان السطر الاخير من الكود حين اعطيت الحقل النصي قيمة لم يكن التركيز عليه بمعنى ان تسلسل الاحداث في الكود غير منطقية تركيز على النموذج/ تركيز على الحقل / فتح سجل جديد / اعطاء قيمة للحقل بعكس الكود الثاني : تركيز على النموذج / فتح سجل جديد / تركيز على الحقل / اعطاء قيمة للحقل
    3 points
  2. السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا 💐 بعد بعض البحث تم العمل على المثال الاخير المرفق من الاستاذ سامى عند فتح المثال سيتم فتح ع النموذج MainMenu ستجد به زرين ريسيت وتعيين اضغط رسيت ثم انظر للاعدادت كما بالصوره ستجد انه قد تم ازاله النموذج MainMenu ووضع القيمه الافتراضيه none اختار من الكمبو اى نموذج تريد ثم اضغط الزر تعيين ثم انظر الاعدادات مره اخرى ان شاء الله يكون ما تريد MyMenu1.accdb
    2 points
  3. بعد اذن اخي الاستاذ @الفلاحجى حل اخر في البداية عملنا استعلام اسميتة q_1 وجعلنا الاستعلام يساوي SELECT Student.المادة FROM Student GROUP BY Student.المادة HAVING (((Student.المادة) Like "*" & [Forms]![FORM2]![text3].[Text] & "*")) ORDER BY Student.المادة; ثم النموذج لمربع التحرير والسرد في تبويب بيانات غيرنا توسيع تلقائي الى لا اخيرا في حدث عند مفتاح اعلى وضعنا الكود التالي If Len(Me.text3.Text) > 0 Then Me.text3.RowSource = "q_1" Me.text3.Dropdown Else Me.text3.RowSource = "SELECT Student.المادة FROM Student GROUP BY Student.المادة" End If والنتيجة قائمة.mdb
    2 points
  4. جرب هذا الملف 1- تم تصحيح البيانات للقوائم المنسدلة 2 تم تغيير اسماء الصفخات الى اللغة الاجنبية 3- تم وضع بيانات عشوائية لزيادة الصفوف (صفين لا يكفيان) في الشيت الاساسي "’Main"' 4- في الصفحة "Final" استبدل اسم العامود الى ما تريد(من القائمة المنسدلة في الصف الثالث) 5- اضغط على الزر "Run Please" Option Explicit Sub From_one_to_two() Dim M As Worksheet Dim F As Worksheet Dim LF%, col%, i% Dim F_rg As Range, y% Dim S_rg As Range Dim max_ro% Application.ScreenUpdating = False Set M = Sheets("Main"): Set F = Sheets("Final") Set S_rg = M.Range("A3:AM3") col = F.Cells(3, Columns.Count).End(1).Column F.Range("a5").Resize(5000, col).Clear For i = 2 To col Set F_rg = S_rg.Find(F.Cells(3, i), lookat:=1) If F_rg Is Nothing Then GoTo Next_I y = F_rg.Column max_ro = M.Cells(Rows.Count, y).End(3).Row F.Cells(5, i).Resize(max_ro).Value = _ M.Cells(4, y).Resize(max_ro).Value Next_I: Next LF = F.Range("A5").CurrentRegion.Rows.Count F.Range("A5").Resize(LF) = _ Evaluate("Row(" & 1 & ":" & LF & ")") With F.Range("A5").Resize(LF, col).SpecialCells(2) If .Cells(1, 1) <> vbNullString Then .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True .Interior.ColorIndex = 19 End If End With Application.ScreenUpdating = True End Sub الملف مرفق Nhnd_7788.xlsm
    2 points
  5. السلام عليكم الحمد لله انك توصلت الى حل المشكلة كنت مررت في وقت مضى لمشكلة من هذا النوع ‘ وبمساعدة اخوتي هنا و بالمحاولات والتجربة والبحث توصلت الى حل المشكلة وكتبت هذا التقرير
    2 points
  6. السلام عليكم ارجو من اصحاب الخبره مساعدتي في معرفة طريقة عمل استعلام ربع سنوي للمبيعات والمشتريات لحساب الضريبة ولكم شكري وتقديري ودعواتي الصادقة
    1 point
  7. حيا الله اخوي يوسف 🙂 الحقول باللون البرتقالي مخفية ، وهي تسلسل لكل مجموعة ، بينما الحقول باللون الاصفر تأخذ قيمة الحقل البرتقالي . والنتيجة . والسبب انك ما تقدر تحسب عدد السجلات ، لأنه في الواقع التقرير فيه مجاميع عدد السجلات (انظر الاستعلام مصدر بيانات التقرير لرؤية العدد الصحيح) 🙂 جعفر 1238.APE.accdb.zip
    1 point
  8. جزاك الله خيرا اخي @kha9009lid
    1 point
  9. جزاك الله خيرا اخى واستاذ خالد اسال الله لكم اليوم اخوانى واساتذتى وفى هذه الساعات المباركات ان يجزيكم عنا خير الجزاء ويبارك لكم ويرزقكم الفردوس الاعلى
    1 point
  10. كان من المفورض طرح هذه الأسئلة مسبقاً و دون تضييع الوقت تم تعديل الماكرو خسب ما تريد Option Explicit Sub From_one_to_two() Dim M As Worksheet Dim F As Worksheet Dim LF%, col%, i% Dim F_rg As Range, y% Dim S_rg As Range Dim max_ro% Dim Flt_rg Application.ScreenUpdating = False Set M = Sheets("Main"): Set F = Sheets("Final") Set S_rg = M.Range("A3:AM3") col = F.Cells(3, Columns.Count).End(1).Column F.Range("a5").Resize(5000, col).Clear For i = 2 To col Set F_rg = S_rg.Find(F.Cells(3, i), lookat:=1) If F_rg Is Nothing Then GoTo Next_I y = F_rg.Column max_ro = M.Cells(Rows.Count, y).End(3).Row M.Cells(4, i).Resize(max_ro - 2).SpecialCells(12).Copy F.Cells(5, y).PasteSpecial (12) Next_I: Next LF = F.Range("A5").CurrentRegion.Rows.Count F.Range("A5").Resize(LF) = _ Evaluate("Row(" & 1 & ":" & LF & ")") F.Range("A5").Resize(LF).NumberFormat = "[$-,200] 0" With F.Range("A5").Resize(LF, col).SpecialCells(2) If .Cells(1, 1) <> vbNullString Then .Borders.LineStyle = 1 .InsertIndent 1 .Font.Size = 14: .Font.Bold = True End If End With F.PageSetup.PrintArea = F.Range("A3").Resize(LF + 2, col).Address Rem ++++++++++ Optional +++++++++++++++ ' If M.FilterMode Then ' M.Range("a3").CurrentRegion.AutoFilter ' End If Rem ++++++++++ Optional +++++++++++++++ Application.ScreenUpdating = True End Sub الملف من جديد Mhnd_7788_with filter.xlsm
    1 point
  11. جزاك الله خيرا .. وكل سنة وأنت طيب .. عيدكم مبارك .
    1 point
  12. هههه لا والله استاذي الغالي @محمد سلامة الهدف كان ايضاح مايمكن الوصول اليه بعد بسيط من الحقول ودون الحاجة الى كتابة اسماء الكائنات المطلوب تطبيق الصلاحيات عليها او اضافة حقول مخفية في فورم تسجيل الدخول بخصوص نقطة بيع اصدارة تجربية قريب ان شاء الله بعد انهاء الملاحظات المعلقة من عدة اشهر بسبب انشغالي الفترة الماضية علما بان هذا الملف ليس متعلق بنقطة بيع وانما ملف بسيط لتطبيق الصلاحيات على اي برنامج اكسس بدون الحاجة الى اجراء تعديلات او اضافة احداث على النماذج التي سيتم تطبيق الصلاحية عليها حيث يم التركيب و التعديل بشكل تلقائي كلام صحيح والبرنامج مازال تحت التجربة وكان لي هدف معين من عمله اثناء التجربة بهذا الشكل وفي النسخة النهائية يكتفى بالتسمية التوضيحية للكائن تحياتي وتقديري
    1 point
  13. هذه المشكلة واجهتني وعملت مثل اقتراح استاذي @jjafferr وحملت البرنامج وعملت التقرير وفقا للصورة المرفقة والنتيجة جيدة
    1 point
  14. وعليكم السلام تفضل اخي شوف المرفق. Database2.accdb
    1 point
  15. كل شوية تشوقنا كده بصورة علي الماشي 🌹💓🤩😂 يمكن في اخفاء اسم التقرير الاصلي وترك فقط اسم التقرير الذي يعرفه المستخدم انا عملها عندي كده لان المستخدم لايهمه اسم التقرير أو النموذج داخل قاعدة البيانات وقد يسبب له لخبطه كل عام وحضرتك بخير تحياتي 🌹 واديني مستني😂
    1 point
  16. السلام عليكم اخى @فايز.. وكل عام وانت واخوانى واساتذتى بخير تقبل الله من ومنكم صالح الاعمال اتفضل اطلع على هذا الرابط والمثال المرفق ان شاء الله تجد فيه ما تريد وجزاهم الله خيرا اساتذتنا الكرام بالتوفيق اخى
    1 point
  17. السلام عليكم وبالإضافة لما تفضل به أساتذتنا الكرام من باب تجربتي البسيطة في ربط برنامج اكسيس بـ SQL Server فكان الأداء والسرعة لا تقارن جدا . وأيضا لست بحاجة لمجلد لمشاركة قاعدة البيانات إلا فحالة مشاركة الملفات ... وكذلك الاجهزة المتصلة بالواي فاي فأداؤها جيد جدا 👍 . أيضا والحمدلله قمت بتصميم بعض الصفحات من خلال فيجوال استديو بلغة السي شارب بتقنية asp.net وربطتها بنفس القاعدة في الشبكة الداخلية وأداء خرافي .
    1 point
  18. يحدث هذا عند استخدام الكلمات العربية في الكود ، لهذا السبب فيُنصح بإستخدام الكلمات الانجليزية في تسمية جميع كائنات الاكسس🙂 خليني اكتب المصطلحات بالانجليزي علشان الكود يكون واضح ، وبعدها تقدر تغيره : frm_Search : نموذج بحث بالسعر تجربة1 ، وان هذا النموذج هو نموذج رئيسي ، وبقية حقول البحث موجودة عليه ، Area_From : المساحة من Area_To : المساحة الى Area_Size : اسم حقل المساحة الذي نضع المعيار فيه واذا لم تكتب اي قيمة في حقل "المساحة من" فنفترض ان اقل مساحة = 0 ، بينما اذا لم تكتب اي قيمة في حقل "المساحة الى" فنفترض ان اكبر مساحة = 100000 عليه ، تصبح المعادلة: Area_Size : حقل المساحة لا يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Area_Size : حقل المساحة يحتوي على حقول فارغة Between nz([forms]![frm_Search]![Area_From];0) And nz([forms]![frm_Search]![Area_To];100000) Or [Area_Size] Is Null او Between (IIf(Len([[forms]![frm_Search]![Area_From] & '')=0,0,[forms]![frm_Search]![Area_From])) And (IIf(Len([forms]![frm_Search]![Area_To] & '')=0,100000,[forms]![frm_Search]![Area_To])) Or [Area_Size] Is Null جعفر
    1 point
  19. كلام صحيح مع ان اقصى سرعة استطعت الوصول لها لنقل بيانات عن طريق wifi بحدود 150ميجا ولكن في مكان مفتوح بدون عوائق اما مع وجود العوازل وزيادة المسافة بشكل بسيط فكان الحد الاقصى 4.6 ميجا ومتذبذبة لذا فان الربط يكون عن طريق الكيبل ومن تجربتي اذا زاد طول الكيبل عن 40 متر يفضل استخدام سويتش اضافي
    1 point
  20. السبب واضح اخي الكريم ظهور الم5دن مباشرتا عنداختيار الدوله.rar تحياتي
    1 point
  21. الف شكرررررررررررررررررررر
    1 point
  22. واهم مشاكل بطئ قاعدة البيانات في الشبكة: جعفر
    1 point
  23. لا يُنصح بإستعمال حقول Lookup ، ولا حقول المرفقات في الجدول ، ولا عمل الكومبوبوكس في الجدول.
    1 point
  24. جرب هذه المعادلة =IF(ISNUMBER(B7),MAX($A$6:A6)+1,"") الملف مرفق My_file.xls
    1 point
  25. شاشة المستخدمين بالطريقة التي اشرت اليها
    1 point
  26. وماذا عن المبلغ الأكبر من 5000 هل عليه خصم فيستمر الخصم 20% أم بدون خصم؟ عملت العديل بحيث أي مبلغ بعد 3750 يشمله 20% خصم =IFERROR(IF(A1<=1250;A1*2.5%;IF(AND(A1>1250;A1<=2500);(A1-1250)*10%+1250*2.5%;IF(AND(A1>2500;A1<=3750);(1250*2.5%)+(1250*10%)+(A1-2500)*15%;IF(A1>3750;(1250*2.5%)+(1250*10%)+1250*15%+(A1-3750)*20%;0))));0)
    1 point
  27. أخي شوف الملف المرفق هل هو المطلوب؟ My Menu.accdb
    1 point
  28. تفضل اخي الكريم هذا مثال لما طلبت نموذج frmIndex هو المسئول عن عملية التحويل db1.rar تحياتي
    1 point
  29. استاذى ومعلمى علي المصري اشكرك شكرا جزيلا وجعل الله عملك فى ميزان حسناتك
    1 point
  30. السلام عليكم سنفرض ان لديك حقل في نموذج الواجهة عبارة عن checkbox اذا وضعت علامة صح يقوم بالتحويل الى نموذج Update واذا لم توضع علامة صحيقوم بالتحويل الى نموذج Home وهذا الكود if checkbox = true then DoCmd.OpenForm "frmUpdate" else DoCmd.OpenForm "frmHome" endif تحياتي
    1 point
  31. تفضل أخي جرب التقرير سنوي.accdb
    1 point
  32. السلام عليكم 🙂 اذا سمحت لي اخي أبوعبدالله 🙂 يكفي لقفل النموذج الذي عليه الكود ، ان نستعمل الكود التالي بدون ذكر اسم النموذج 🙂 ، ونحتفظ به كقالب لجميع النماذج : docmd.Close acForm, me.name, acSaveNo جعفر
    1 point
  33. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم السطر الاول يقوم بفتح النموذج الثاني السطر الثاني يغلق النموذج الاول DoCmd.OpenForm "frmUpdate" DoCmd.Close acForm, "frmIndex" ملاحظة لا تقم بتسمية الجداول او الاستعلامات او النماذج او التقارير او العنار باسماء محجوزة مثل ( Update او Index ... الخ ) تحياتي
    1 point
  34. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar
    1 point
  35. هما مرفقان اكسس واكسل db1.mdb Book1.xls
    1 point
  36. السلام عليكم لماذا لا تفكر بصورة معاكسة ؟ اربط الإكسل بالأكسس قم بالخطوات التالية : استورد الورقة من إكسل إلى قاعدة أكسس ستظهر بأكسس كجدول قم بعمل النموذج الخاص بالإدخال لهذا الجدول الآن اذهب إلى برنامج إكسل قم بعمل ملف جديد. من تبويب بيانات في ملف الإكسل ستجد تبويباً فرعياً إحضار بيانات خارجية ادخل هذا التبويب ستجد من أكسس اختره و اتبع خطوات المعالج بعدها أغلق ملف الإكسل سيكون الإدخال عبر الأكسس و عندما ترغب بفتح الأكسل أغلق قاعدة بيانات أكس أولاً و بعدها اعرض ملف الإكسل ثم حدد أي خلية و بالماوس الأيمن ستجد خيار تحديث و بعد الضغط عليه ستظهر البيانات المدخلة حديثاً. الخطوات لن تأخد منك أكثر من ٣ دقائق و تستطيع التحكم بفرز و تصفية و تنسيق الجدول في إكسل .
    1 point
  37. وعليكم السلام ورحمة الله واجهت من قبل مشكلتك بعد ترقية الويندوز إلى 10 جرّب الخط simplified Arabic المرفق simpo.zip
    1 point
  38. أخى الحبيب ( عباس ) شكرا على كلماتك المشجعة الجميلة مثلك وكل ماأتمناة وأرجوة أن تحقق المعادلة المطلوب لأختى السائلة وهذا هو الهدف المرجو
    1 point
  39. السلام عليكم لواجب التصحيح فالدالة هي لاستاذنا الكبير ابو تامر (عمر الحسيني) وشكراً
    1 point
  40. Version

    927 تنزيل

    هذه الدالة تقوم بعمل الدالة VLookUp ولكن يمكن استعمالها لمن يريد اضافة دوال بإسمه في الملف الذي يعمل عليه الدالة VLookUp لها اربع متغيرات هي : 1. lookup_value (قيمة البحث) 2. table_array (جدول البيانات) 3. col_index_num (رقم العمود) 4. range_lookup (قيمة منطقية للتطابق في البحث صفر وواحد لاي نتيجة) الدالة المعرفة MyLook لها ثلاثة متغيرات هي 1. LookVal (قيمة البحث) 2. Rng (جدول البيانات) 3. iCol (رقم العمود) * الغرض من الدالة انه يمكن تعديل اسمها كما تريد وتحصل على نتيجة مماثلة لنتيجة الدالة VLookUp Function MyLook(LookVal As Variant, Rng As Range, iCol) For r = 1 To Rng.Rows.Count If Rng.Cells(r, 1) = LookVal Then MyLook = Rng.Cells(r, iCol): Exit For Next End Function
    1 point
×
×
  • اضف...

Important Information