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

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

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

    • نقاط

      11

    • Posts

      1998


  2. أبو آدم

    أبو آدم

    أوفيسنا


    • نقاط

      9

    • Posts

      3292


  3. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      8

    • Posts

      3463


  4. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      7

    • Posts

      9998


Popular Content

Showing content with the highest reputation on 11/21/19 in all areas

  1. السلام عليكم ورحمة الله وبركاته اهلا بحضرتكم جميعا النهاردة باذن الله هشرح طريقة جديدة .. للتأكد من ملء كافة الحقول قبل الانتقال الى سجل جديد مع الغاء زر الانتر والتاب من الانتقال بهم الى سجل جديد وده شرح فيديو لطريقة تنفيذ الطريقة MS_Be sure to fill in all fields.rar
    3 points
  2. اخي @qathi تفضل DatabaseRestartV1.2.accdb DatabaseRestartV1.2.mdb المصدر : http://blog.nkadesign.com/2008/05/06/ms-access-restarting-the-database-programmatically/
    3 points
  3. مساء الخير تمت المعالجة حركات معدل1.xlsm
    3 points
  4. السلام عليكم أعتقد أن المشكلة تكمن في خاصية "التوافق بين نسخ الأوفيس" وخاصة في "أوفيس 2007" فتجد أنه لا يتوافق كثيرا مع النسخ الأخرى للأوفيس وخاصة في VBA... بن علية حاجي
    3 points
  5. وعليكم السلام ورحمة الله وبركاته شخصيا استخدم هذا الكود Public Function AutoCompact() ' ضغط واصلاح If FileLen(CurrentDb.Name) > 30000000 Then ' اذا كان حجم الملف 30 ميجا تقريبا Application.SetOption "Auto compact", True ' سيقوم البرنامج بعمل ضغط واصلاح تلقائي عند اغلاق البرنامج Application.SetOption "Show Status Bar", True vStatusBar = SysCmd(acSysCmdSetStatus, "يحتاج التطبيق لإعادة تشغيل") Else Application.SetOption "Auto compact", False 'والا فلا تقم بعمل ضغط واصلاح Application.SetOption "Show Status Bar", False End If End Function وفي النموذج الرئيسي استدعيه هكدا Call AutoCompact تحياتي
    3 points
  6. السلام عليكم جرب المرفق طبعا الطباعه على الفورم Form_Sale_Pur.xlsm
    3 points
  7. تابع الخطوات التالية في الصورة المتحركة : اطلع على الإصدار الجديد
    2 points
  8. اخي جمال 🙂 هذا المنتدى هو لمد يد العون للمبرمج الذي عنده مشكله في الاكسس ، وليس مكان لطلب برنامج !! الاخوة هنا اعطوك اقتراحات ببعض البرامج التي قاموا بعملها ، فياريت تأخذ البرامج وتجربها فهي مجهود لا يُحسد عليه ، وبعدها تسأل اساله فنية لما تريده من تعديل/اضافات كمبرمج 🙂 اما اذا اردت برنامج حسب مواصفاتك ، فرجاء عمل موضوع لطلبك في القسم المخصص في المنتدى إعلانات شخصية للاعضاء فقط فى مجال الموقع 🙂 جعفر
    2 points
  9. يوجد خيار في اكسس 2016 ضغط عند الاغلاق قم بتفعيله شاهد الصورة المرفقة
    2 points
  10. السلام عليكم ,,, تفضل أخي الكريم وأرجو أن أكون قد أفدت بالمطلوب ... التاشيرات.xlsx
    2 points
  11. Sub test() Dim a As Variant, lr, i, x, s, k, itm Dim bch As Worksheet Set bch = Sheets("Bank Cheque") lr = bch.Cells(Rows.Count, "a").End(xlUp).Row - 1 a = Application.Index(bch.Cells(2, 2).Resize(lr, 21).Value, Application.Evaluate("row(1:" & lr & ")"), Array(1, 2, 6, 7, 8, 13, 16, 20)) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If bch.Cells(i + 1, 4) = Sheets("Sheet4").Range("d3") And bch.Cells(i, 4) <> "" Then If Not .exists(Cells(i + 1, 4)) Then .Add bch.Cells(i + 1, 4), a(i, 1) & Chr(162) & a(i, 2) & Chr(162) & a(i, 3) & Chr(162) & a(i, 4) & Chr(162) & a(i, 5) & Chr(162) & a(i, 6) & Chr(162) & a(i, 7) & Chr(162) & a(i, 8) Else .Item(bch.Cells(i + 1, 4)) = .Item(Cells(i + 1, 4)) & Chr(162) & a(i, 1) & Chr(162) & a(i, 2) & Chr(162) & a(i, 3) & Chr(162) & a(i, 4) & Chr(162) & a(i, 5) & Chr(162) & a(i, 6) & Chr(162) & a(i, 7) & Chr(162) & a(i, 8) End If End If Next k = .keys itm = .items Ct = .Count With Sheets("Sheet4") Range("a8:f10000").ClearContents For i = 1 To Ct x = Split(itm(i - 1), Chr(162)) .Range("a" & 8 + i - 1).Resize(, UBound(x) + 1) = x Next End With End With End Sub اسم الشركة فيD3
    2 points
  12. بعد اذن الاستاذMohamed_Fouad واثراء للموضوع جرب المرفق Bank Cheque.xlsm
    2 points
  13. تم عمل المطلوب وجود الخلايا الفارغة في الجدول يسبب هذه المشكلة ttt_new.xlsm
    2 points
  14. يجب ان تكون الجداول (من إلى ) مكتملة كي تظهر كل النتائج نموذج بسيط عما تريد ان تعرفه Prices.xlsx
    2 points
  15. أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون شكر ( أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) أنت وكل أساتذتنا الكرام ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل طالب له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم شموع كثيرة تحترق ...لتنير دروب الآخرين عطاء وآمالا ... وتضحيات شتى تنثر ..من أجل الوصول للأسمى ...ومعكم حققنا ولمسنا مع العلم كل معاني الجود والكرم و الجمال أسعدكم الله فى الدارين ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وغفر الله لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله واحسن الله اليكم اسال الله تعالى ان ييسر لكم دروب الجنان كيفما شققتم ظلمة جهلنا بنور علمكم من غير كلل أو ثقم ولا ملل احبكم فى الله
    2 points
  16. جرب المرفق التقرير بامكانك تنسيق وفقا لما تريد مع رجاء التقيد بنظام الموقع سؤال واحد لكل موضوع لا نرغب مخالف قوانين الموقع Database1.mdb
    2 points
  17. جرب المرفق ::بالتوفيق:: إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقييم Database2.rar
    2 points
  18. السلام عليكم اليك المثال فالنموذج اختر فرع 1 من الكمبوبوكس سيفتح التقرير قد ساعدنى به الاستاذ مارد وهو استاذ @Elsayed Bn Gemy ان شاء الله تستفيد منه تمنياتى لكل بالتوفيق تقرير اجماليات.rar
    2 points
  19. اخي هذه القاعدة بعد التعديل ارجو ان تكون حسب طلبك Students.accdb
    2 points
  20. السلام عليكم ورحمة الله وبركاته تانية طريقة هنشرحها باذن الله هى طريقة .. شرح تصدير البيانات من الاكسس الى ملف ورد معد مسبقا عن طريق الاشارة المرجعية الفيديو https://youtu.be/VtPEat0Qkqo MS_Export data to Word file.rar
    1 point
  21. تم معاجة الامر عليك اكمال الجدول في الصفحة الاولى بالاسعار المناسبة من الى تستطيع عدم ذكر العكس مثلا من جدة الى الرياض دون كتابة من الرياض الى جدة (المعادلات تعمل حتى الصف رقم 100) Prices_new.xlsx
    1 point
  22. جزاك الله خيرا استاذ محمد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم
    1 point
  23. اخي الفاضل احمد نحن جميعا نتعلم من بعض ونخطئ ونصيب وكل يوم نكتسب خبرات جديد تحياتي لك اخي العزيز
    1 point
  24. جزاك الله خيرا استاذى العزيز خالد ع التنبيه فعلا كما نبهتنى حاولت فى الاول باستعمال DateAdd قمت باستخراج كل حقل على حده ولكنى فشلت فتجميعهم ولكنى تعلمت من طريقتك ما جهلته فجزاك الله خيرا وبرضه قمت باستخدام DateAdd باستخراج كل حقل لوحده مع اضافه القيمه المقابله له بالجدول وباستخدام Mid قمت بجمعهم فى اخر حقل بارك الله فيك استاذى العزيز ومنكم نتعلم وننتبه لم نخطىء فيه لنصل للحل والحلول الجميله تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق دمتم بخير طبتم واهتديتم N_up1.accdb
    1 point
  25. هناك سؤال قبل البدء بالعمل هل سعر الرحلات من الى والرحلات المعكوسة هي نفسها (يعني من جدة الى الرياض مثلاً 300 هل يجب ان تكون من الرياض الى جدة 300 ايصاً)
    1 point
  26. حسب فهمي انت عندك تاريخ الاستحقاق وترغب في اضافة عدد ايام واشهر وسنوات لتاريخ الاستحقاق مثلا لو كان التاريخ 1/1/2019 ونضيف عليه 5ايام و5 اشهر و1سنة عليه يكون التاريخ الجديد 6/6/2020 ممكن عملها عن طريق دالة DateAdd لحساب السنوات والاشهر والايام والنتيجة النهائية في تاريخ الاستحقاق New Microsoft Access قاعدة بيانات (2).accdb اخي احمد اعتقد ان النتيجة عندك غير صحيحة مثلا 05/06/2010 اضف عليها 28 يوم وسبعة اشهر وسنة تطلع النتيجة 33/13/2011
    1 point
  27. اخي تفضل هذه القاعدة بعد التعديل ارجو ان تكون المطلوبة قاعدة بيانات التلاميذ.accdb
    1 point
  28. وأنا كذلك أحبك في الله.. وأعتذر لكوني لم أشارك في هذا الموضوع مبكرا.
    1 point
  29. وعليكم السلام ورحمة الله زبركاته تفضل اخي الكريم New Microsoft Access قاعدة بيانات (2).accdb تحياتي
    1 point
  30. السلام عليكم 🙂 اي وقت اشوف رسالة OLE Server ، الحل هو لغة unicode الكمبيوتر جعفر
    1 point
  31. و عليكم السلام و رحمة الله تفضل اخى الكريم اتمنى ان يكون هذا هو طلبك Bank Cheque.xlsx
    1 point
  32. 1 - اجعل مصدر النموذج جدول TablEMP 2 - اجعل مصدر حقل الاسم EMP 3 - اجعل مصدر حقل الكود ID 4 - تحديد النوذج الفرعي FORM-EMP 5 - من ورقة الخصائص نقوم بربط النموذج الفرعي بالنموذج الرئيسي عن طريق حقل ID وهكذا في جميع النماذج الفرعية يتم الربط عن طريق حقل ID الموجود بالنموذج الرئيسي تحياتي
    1 point
  33. السلام عليكم ,,, الرجاء مراجعه الملف وارجو ان تجد به ما طلبت اخي الكريم ... Time.xlsx
    1 point
  34. السلام عليكم ورحمه الله وبركاته اخوانى الافاضل فى بعض الاحيان نحتاج اضافه بيانات وعرض البيانات فالنموذج مع عدم السماح بالتعديل فالبيانات السابقه يمكن عمل ذلك فى حاله عرض البيانات فقط من خلال عرض النموذج فى وضع التصميم وتحديد الحقول بالكامل مره واحده ومن الخصائص نقوم بتحديد خاصيه تم تأمينه ونحدد لها نعم كما بالصوره ولاكن اذا اردنا عرض البيانات السابقه مع عدم التعديل عليها والسماح بالاضافه فالكود التالى يفى بالغرض باذن الله احاول ان اتعلم واشارككم مع اصل اليه من معلومات للتصحيح ولاستفاده والاستذاده من اساتذتى وجميع الاخوان فى منتدانا الغالى ومرفق مثال : نموذج tblNames ارجو ان اكون قد وفقت فى الشرح وايصال المعلومه وارجو من اساتذتنا التعقيب والاضافه ' كود لعدم السماح بتعديل البيانات السابقه والسماح بالاضافه فقط If Not Me.NewRecord Then Me.AllowEdits = False End If وجزاهم الله خيرا كل من وضع لنا معلومه وعلمنا وشاركنا وساعدنا واسال الله لهم ان يكتب لهم بكل حرف حسنه وان يرزقهم ويبارك لهم فى جميع ما يحبون وان يرزقهم الفردوس الاعلى تقبل الله منا ومنك صالح الاعمال تحياتى لكم طبتم واهتديتم test.accdb
    1 point
  35. حياك الله 🙂 واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في tag الحقل ، هكذا : . والكود يصبح (طبعا الكلمات بالعربي للتوضيح فقط ، ويمكنك حذفها من الكود) : Private Sub cmd_Hide_Show_Click() Dim x() As String 'اعمل هذه القيمة في مصفوفة : اخفاء,اظهار 'والفارزة بين الكلمات عبارة عن فاصلة x = Split(Me.cmd_Hide_Show.Tag, ",") 'x(0) = اول قيمة في المصفوفة ، وهي اخفاء 'x(1) = ثاني قيمة في المصفوفة ، وهي اظهار If Me.cmd_Hide_Show.Caption = x(0) Then Call Hide Me.cmd_Hide_Show.Caption = x(1) Else Call Show Me.cmd_Hide_Show.Caption = x(0) End If End Sub جعفر 1144.1.hide_show.accdb.zip
    1 point
  36. في الـ Sheet2 يوجد كود في هذه الحالة يرصد اي تغيير في الـ Sheet2 فعندم تتغيير قيمة F3 or G3 يعمل الكود
    1 point
  37. انظر هذه طريقة سريعة على الماشي .... والصبر جميل ....... المدارس.accdb
    1 point
  38. ما شاء الله ... تبارك الله .... الله اكبــــــــــــــــر يا شمعة في زوايا المنتـدى تتألق فتنير درب المــعالي وهي تحترق لا أطفــــأ الله نــــــوراً أنت مصـدره يا صادق الفجر أنت الصبح والفلق أيا جعفراً يا رمــز الوفاء سلمت يمين أهـــل الوفاء يا خيــر من صدقوا
    1 point
  39. اخى الكريم مصطفى هذا يتم عمله فالتقارير صمم جداولك لتخزين البيانات بطريقه سليمه ثم بعد ذلك تصمم التقرير بالشكل اللذى تريده توكل على الله وابداء فى تصميم قاعده بياناتك ولما تقف فى شىء اسئل وجميع اخوانك واساتذتنا الكرام لايبخلون علينا بالمساعده حين نقف عاجزين عن حل ما نريد وجزاهم الله عنا خيرا الجزاء واليك بعض الشروحات اللتى تساعدك وجزاها الله خيرا ام عهود ومن قام بتجهيز هذه الشروحات وعندى مثال سابحث لك عنه لتستفيد منه ان شاء الله تمنياتى لك وللجميع بالتوفيق Lessons اهم الدروس.rar
    1 point
  40. من النموذج الرئيسي تم استدعاء نموذج منبثق لإظهار معلومات معينة عند إغلاق النموذج المنبثق (الثاني) أريد أن أعود بالتركيز لحقل معين في النموذج الرئيسي .. !! بسيطة ... في حدث عند الإغلاق للنموذج المنبثق (الثاني) نضع الكود التالي : Private Sub Form_Close() [Forms]![MainForm]![TaxBox].SetFocus End Sub
    1 point
  41. لنحصل على شريط متحرك بالعبارة التى نريدها بدلاً عن إسم النموذج ، نقوم بما يلي : في بداية صفحة الفيجوال Option Compare Database Private strText As String في حدث عند التحميل ​Private Sub Form_Load() strText = "النص الذي نود أن يظهر في الشريط المتحرك ...... 2013" strText = Space(110) & strText PutButtons Me End Sub في حدث عند التوقيت للنموذج Private Sub Form_Timer() strText = Mid(strText, 2) & left(strText, 1) Me.Caption = strText End Sub وفي خصائص النموذج نحدد الفاصل الزمني في Timet Interval ليكون 150 أو 200 أو غيرها وكفى ......
    1 point
  42. منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub ...........
    1 point
  43. معايير التقرير (التاريخ) ...... report parameters غالبا ما نستخدم حصر نتائج التقرير بين تاريخين ، تاريخ بداية و تاريخ نهاية ، وكل له فيها طريقة ، اريد انشاء نموذج لتمرير التواريخ للتقرير ، التقارير عندي يومية واسبوعية وشهرية وسنوية (لنفس التقرير) ، اريد طريقة بحيث لا اضطر لكتابة التواريخ وإحتساب الفترات ، أو استخدام التقويم ؟!! بسيطة ... ننشيئ النموذج بمربعي نص الاول txtdatefrom لتاريخ البداية ، والثاني txtDateTo لتاريخ النهاية ، ثم ننشيئ أربعة أزرار أمر : الاول لضبط نطاق التاريخ للتقرير اليومي ، ونسميه cmdtoday ، ونضع خلفه الكود Private Sub cmdtoday_Click() Me!txtdatefrom = Date Me!txtDateTo = Date End Sub الثاني لضبط نطاق التاريخ الاسبوعي ، ونسميه cmdweek ، ونضع خلفه الكود Private Sub cmdweek_Click() Dim today today = Weekday(Date) Me!txtdatefrom = DateAdd("d", (today * -1) + 2, Date) Me!txtDateTo = DateAdd("d", 6 - today, Date) End Sub الثالث لضبط نطاق التاريخ الشهري ، ونسميه cmdmonth ، ونضع خلفه الكود Private Sub cmdmonth_Click() Me!txtdatefrom = CDate("01/" & Month(Date) & "/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("m", 1, Me!txtdatefrom)) End Sub والرابع لضبط نطاق التاريخ السنوي ، ونسميه cmdyear ، ونضع خلفه الكود Private Sub cmdyear_Click() Me!txtdatefrom = CDate("01/01/" & Year(Date)) Me!txtDateTo = DateAdd("d", -1, DateAdd("yyyy", 1, Me!txtdatefrom)) End Sub وأخيرا ننشيئ زر أمر للتأكد من ادخال البيانات الى الحقلين المعنيين ، ثم للطباعة أو الغاء الامر ، ونسميه cmdReport ، ونضع خلفه الكود Private Sub cmdReport_Click() On Error GoTo Err_cmdReport_Click Dim stDocName As String stDocName = "rptDateParameterReport" If Len(Me.txtdatefrom & vbNullString) = 0 Or Len(Me.txtDateTo & vbNullString) = 0 Then MsgBox "Please ensure that a report date range is entered into the form", _ vbInformation, "Required Data..." Exit Sub Else DoCmd.OpenReport stDocName, acPreview End If Exit_cmdReport_Click: Exit Sub Err_cmdReport_Click: MsgBox Err.Description Resume Exit_cmdReport_Click End Sub وكفى ... وصحتين وعافية ... جرب ..........
    1 point
  44. بناء الجمل ومحددات الصيغ ......... The syntax & delimiters عند كتابة معايير لقيمة منطقية (صواب/خطأ)، أرقام، السلاسل، والتواريخ، يتطلب بناء الجملة محددات للسلاسل (الجمل) والتواريخ. ويكون بناء الجملة في حالاتها كما يلي : للقيم المنطقية والارقام لا نستخدم شيئا مميزا >> Boolean & numbers x = DLookUp("[MyField]", "MyTable", "[OtherField] = " & Me.txtTextbox سلاسل استخدام صيغ (أو "علامات الاقتباس المفردة"). >> Strings x = DLookUp("[MyField]", "MyTable", "[OtherField] = '" & Me.txtTextbox & "'" وللتاريخ تستخدم الصيغة الخاصة بها مع علامة المربع المشهورة. >> Dates x = DLookUp("[MyField]", "MyTable", "[OtherField] = #" & Me.txtTextbox & "#"
    1 point
  45. الأخ العزيز : محمد فكري لقد قمت بتصميم برنامج مرتبات وأجور يضم الأوراق التالية: 1- ورقة عمل لبيانات الموظفين الوظيفية 2- عدد ( 3 ) أوراق عمل لحركة متغيرات الموظفين ( الحضور - الغياب - الإجازات .... الخ ) 3- ورقة لاحتساب ضرائب الدخل يمكن تعديلها وفقاً لأحكام قانون الضرائب 4-ورقة لاحتساب التأمينات ( وفقاً لقانون الدولة ) يمكن الأخذ به أو إلغاءها 5- ورقة بسلف الموظفين الشهرية المسحوبة على ذمة الراتب 5- ورقة كشف المرتبات والأجور النهائية ( تفاصيل الراتب - الاستقطاعات - صافي الراتب ) 6- ورقة طلب تعزيز الراتب من الإدارة المالية / أو البنك جميع الأكواد والدوات المستخدمة في هذا الملف من أخوتي وأساتذتي الأفاضل في هذا المنتدى أرجو من الأساتذة الأفاضل والأخوة الأعزاء أن يطلعوا على الملف المرفق ،وأن يبدوا عليه ملاحظاتهم الكريمة والتي سوف تساهم في تحسين هذا البرنامج وشكراً ، أخوكم / marwanal2keme Salary.zip
    1 point
×
×
  • اضف...

Important Information