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

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

  1. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      6

    • Posts

      13134


  2. kanory

    kanory

    الخبراء


    • نقاط

      4

    • Posts

      2331


  3. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      3

    • Posts

      8723


  4. qathi

    qathi

    04 عضو فضي


    • نقاط

      3

    • Posts

      996


Popular Content

Showing content with the highest reputation on 07/31/18 in all areas

  1. تستطيع حسب حاجتك: ضع تحت زر امر مع تغيير مسمى الجداول بما يناسبك On Error GoTo Err_Handler With CurrentDb .Execute "DELETE * FROM Tbl1", dbFailOnError .Execute "DELETE * FROM Tbl2", dbFailOnError 'بنفس الطريقة تستطيع اضافة اي جدول سواء حذف او تحديث End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub Else 'MsgBox "All Deleted", vbInformation, "Deleted" End If
    2 points
  2. ومشاركة مع الاستاذ العزيز شفان ثلاث خطوات : 1- من خصائص النموذج اعدل الخصيصة : السماح بالاضافة=لا 2- الصق السطر في اعلى كود زر جديد : Me.AllowAdditions = True 3- الصق السطر في اعلى كود زر التالي : Me.AllowAdditions = False New Rec2.rar
    2 points
  3. اليك هذا Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount If Me.CurrentRecord < RC Then DoCmd.GoToRecord , , acNext End If
    2 points
  4. اعتقد أننا لن نصل إلى هذا الحجم إذا كنا جعلنا الصور والملفات خارج الاكسس وجعلنا روابط للصور والملفات فقط بدلا من إضافة المرفقات داخل الأكسس مجرد رأي
    2 points
  5. السلام عليكم ورحمة الله استخدم هذا الكود الضغط على زر الترحيل مرة واحدة حتى لا تتكرر عملية الترحيل Sub TrasfData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long Set ws = Sheets("البيانات") Set Sh = Sheets("امر صرف") LR = ws.Range("B" & Rows.Count).End(xlUp).Row If LR < 2 Then LR = 2 Else LR = LR ws.Range("B" & LR + 1).Value = Sh.Range("G5").Value ws.Range("C" & LR + 1).Value = Sh.Range("D5").Value ws.Range("D" & LR + 1).Value = Sh.Range("I2").Value ws.Range("A" & LR + 1).Value = LR - 1 End If End Sub
    2 points
  6. السلام عليكم وشكرا للاستاذ kanory هذا مثال يوضح كيف تنقل المجموع من النموذج الفرعي الى الرئيسي jadwal6.mdb
    2 points
  7. السلام عليكم نقدم لكم مكتبة الأكسيس حصاد السنين الاصدار الرابع نسال الله القبول الاصدار V4 https://drive.google.com/file/d/1Ff6hW3ujEmtQ6hvz4fa32BGNZv_Dr4xs/view?usp=sharing والاصدار v4.1 https://drive.google.com/file/d/16bCBvALoJ_kl4wSedAqEAb50m6sJrTiC/view?usp=sharing
    1 point
  8. الاخوة الاعزاء اضع بين ايديكم هذا البرنامج البسيط الخاص بنظام تسجيل الاقساط اليا متمنيا لكم الفائدة شرح عمل البرنامج مرفق بالصور 1- نقوم بادخال بيانات العميل وتحديد قيمة القسط وعدد الاقساط ثن نكبس على ايقونة الاقساط 2- ننتقل الى شاشة اخرى نكبس على ايقونة تسجيل الاقساط فيتم تنزيل الاقساط اليا 3- عند الدفع يتم تغيير ايقون ةلم يتم الدفع الى تم الدفع اقساط 2018.rar
    1 point
  9. نعم هذا الكلام صحيح وللعلم حجم 2 جيجا بايت ناقص منه حجم جداول النظام system objects ولتلافي هذه المشكلة يجب: * وضع مسار الصور والمستندات في حقل نصي بدلا من إرفاقها بقاعدة البيانات كما اشار أحد الأحباب * وكذلك عمل قاعدة بيانات لكل عام منفصل ويتم ربط الواجهة على أي قاعدة بيانات في الخلفية للعلم 2 جيجا بايت نصوص وأرقام كثير جدا لك أن تتخيل أن بيانات درجات 100000 مائة ألف طالب في 15 مادة بالإضافة إلى اسم المدرسة والإدارة وغيرها من البيانات يصل حجمها إلى 10 ميجا بايت فقط
    1 point
  10. THIS CODE Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Me.Range("a1") .Offset(1).Resize(1000, 1) = vbNullString .Value = Selection.Address .Offset(1).Resize(Selection.Rows.Count, 1).Value = Selection.Value End With End Sub
    1 point
  11. بارك الله فيك استاذنا الغالي ابو ياسين نورت المنتدي الحمدلله على سلامه الاسفار هو المطلوب الف شكر اليك يالحبيب تحياتي اليك
    1 point
  12. جرب هذا Forms.frmSales.AllowAdditions = False DoCmd.Close Forms.frmSales.AllowAdditions = False Forms!frmSales!SubSales!نص4.SetFocus DoCmd.Close
    1 point
  13. جزاكم الله خير وزادكم علما ونورا ..................................
    1 point
  14. شكرا لك ولهذا المنتدى اخي العزيز kanory : سوف اخذ بهذه النصيحة وبارك الله فيك فقد اوفيت وكفيت دمتم سالمين
    1 point
  15. اهلا بك استاذ حاتم اخ كريم فى منتدانا تفضل لك ما طلبت كود لإظهار اسم الخلية النشطة في خلية أخرى.xlsm
    1 point
  16. وعليكم السلام ورحمة الله وبركاته .قم بتغيير الزمن من 60 ثانية إلى الوقت المناسب ، ولو كان مثلا 5 يكون أفضل عندما تكون قاعدة البيانات متوسطة الحجم ، يمكن أن تحدد كثير من الخصائص المتعلقة بتحديث البيانات عند الاستخدام المشترك وتستطيع أن تجرب عدد من التجارب إلى أن تصل إلى أفضل المستويات الممكنة .....
    1 point
  17. أهلا بك .... أولا : هناك ملاحظات على جدول الرواتب . المفروض يون في فقط كود الموظف . وأمور الراتب دون وجود صورة موظف أو رقم اقامته .... ويتم الربط بين الجدولين بكود المرظف . ثانيا : لصورة الموظف هل تحتاج عرضها في النموذج أو تريدها مرفق كملف فقط ثالثا : ربما هذه التسائلات هي سبب تأخر الرد أو الاجابة ؟
    1 point
  18. اطلعت على موضوع الاستاذ جعفر اذ يوضح حذف جدول واحد فقط وتوجد طريقة اخرى عن طريق استعلام حذف ولكن ما اريده انا هو حذف اكثر من جدول يعني ممكن جدولين او ثلاث جداول و اكثر على العموم شكرا لتفاعلك جزاك الله خيرا
    1 point
  19. السلام عليكم ورحمة الله اخي الفاضل عبد اللطيف سلوم المستخدم d المرور 1 وعذرا على التاخير في الرد علما أن شاشة الدخول موضح عليها اسم المستخدم وكلمة المرور
    1 point
  20. موضوع الاستاذ جعفر فيه كل شيئ شرح وامثلة ... اذا اردت تطبيقها ارفق مثال للتطبيق الفكرة .. ابشر
    1 point
  21. شكرا أخي الكبير عبد اللطيف سلوم على المساعدة بفضلك بعد الله نجح الامر عندي وعذرا على تأخر الرد بسبب أنشغالي مرفق صورة توضح نتاج عملي
    1 point
  22. اشكرك اخي @ابوخليل وجود المثال المصغر يوفر للسائل والمجيب الوقت والفهم ... لان احيانا هو يريدها بطريقة وانت تجيب بطريقة مختلفه
    1 point
  23. السلام عليكم ولماذا الترحيل ؟ الفكرة من اساسها بحاجة الى اعادة نظر .. ( في قواعد البيانات .. لا يوجد نظام متبع يعتمد على نقل البيانات من جدول الى آخر ) نقل البيانات او نسخها يكون في مراحل نهائية ، والافضل من ذلك اخذ نسخة لكامل قاعدة البيانات عن فترة سابقة نأتي الى اصل السؤال : جدول ؟ او جدولين ؟ لانك ان عملت على جدولين فستبقى بيانات كل جدول في مكانها وسوف تجلب البيانات عبر الاستعلامات وفي هذه الحالة انت مضطر لاستخدام استعلامات التوحيد حين تبحث عن الارصدة والحركة الحالية والسكة حتطول حبتين وهذه الطريقة هي المتعارف عليها قد تجدها في امثلة مكروسوفت ، يعني لو تعمل برنامج حسابات ومخازن باستخدام معالج اكسس ستحصل على هذه النتيجة رأيي الشخصي الجدول الواحد اكثر مرونة وأسرع وأخف للبرنامج ، ( علما ان الجدول الواحد يتم تصميمه على اكثر من طريقة ) بالنسبة للمدفوعات.. ربطها با لعميل والمورد رأيي انه افضل لان اغلب البيع والشراء يتم بالآجل ولو كان البيع والشراء نقدا ( مثل نقاط البيع) فربطه بالفاتورة لا يختلف عليه اثنان احببت المشاركة استاذنا بحكم خبرتي البرمجية ولن تستغني عن الاستشارة المحاسبية
    1 point
  24. صحيح انا نسيتها بعد التحديث الاخير انظر المرفق تم حجب الحصتين السابعة والثامنة عن مدرسي الرياضيات ، ويضا حجب الحصة الثامنة عن معلم الحاسب اعتقد كذا نسير في مسار صحيح .. اتمنى ان تجري تجاربك على المثال نفسه لأني اعمل على mdb وأكيد سوف تقوم بتعبئة بيانات كاملة ,, وستجد الكثير من الملاحظات ,, فآمل ان ترفع المثال مكتمل jadwal_10.rar
    1 point
  25. جرب هذه المعادلة =IF(AND($F15<>"",$D15<>""),ROWS($B$15:$B15)+$G$2-1,"") الملف مرفق(نسخة بالانكليزية اذا لم تعمل حول المعادلة الى اللغة الفرنسية) num-auto-salim.xlsm
    1 point
  26. ممكن ان يكون المطلوب صفحة"SALIM" من هذا الملف Pratic_Salim's Order.xlsm
    1 point
  27. عذرا لتاخري في الرد بسبب الاطلاع على الملف . واعتذر بالنسبة لدمج الصفوف وان شاء الله لا تتكرر في المرات القادمة منكم نتعلم قمت برفع الملف واختصرت في الملف للتوضيح اكثر ... انا اريد ان يعطي المواد التي اختلفت وتغيرت الدرجة من الجدول الاول عن الجدول الثاني وهي اضافة 5درجات بمعنى اريد الدرجات التي اختلفت من الجدول الاول عن الجدول الثاني مثلاً احمد5 لم تتغير الدرجات الجدول الاول عن درجات الجدول الثاني اي لم يحصل على درجة قرار .... من الملاحظ في الكود والمعادلة تكتب المواد التي درجتها 50 وهذا ليس المطلوب وانما المطلوب هو كتابة المواد التي تغيرت درجتها في الجدول الثاني بالنسبة للجدول الاول وقد قمت بتغير التنسيق الشرطي حتى يكون واضح انه المواد او الدرجات في الجدول الثاني لا تساوي درجات الجدول الاول بمعنى انه احمد1 يكون التغيير في اللغة الانكليزية والعلوم واحمد2 فقط اللغة الانكليزية واحمد3 و احمد4 واحمد5 واحمد6 واحمد7 لاتوجد مواد قرار شكرا جزيلاً لك استاذي الكريم سليم على اجاباتك الرائعة .. عسى ان يكون الشرح واضح ...... وعذرا قد اثقلت عليك بالكلام aamir_salim.xlsm
    1 point
  28. السلام عليكم اهل المنتدى الكرام أقدم لكم اليوم شيت يقوم بترحيل الفواتير إلى شيت بإسم الشهر بناءاً على التاريخ الموجود فى صفحة Main أتمنى من الله أن ينال اعجابكم تقبل الله منكم سائر أعمالكم وبارك الله فيكم وجزيتم خيرا كثيراً ترحيل الفواتير حسب اسم الشهر.xlsm
    1 point
  29. السلام عليكم ورحمة الله أخي الكريم، لم ألاحظ طلبك فيما يخص رسالة بعدد الصفوف التي تم حذفها وأضع بين يديك تعديلا جديدا للكود في الملف المرفق التالي يقوم بحذف الصفوف التي يتوفر فيها الشرط مع إعطاء رسالة بعدد الصفوف التي تم حذفها بعد الانتهاء من عملية الحذف... واعذرني على هذا السهو... أخوك بن علية حذف سطور بناء على شرط_2.rar
    1 point
  30. اذن اخي من الاحسن ان تستعمل هذ الكود الذي طرحته في مشاركة سابقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub
    1 point
  31. السلام عليكم سلمت الانامل استاذ احمد ابو عبدالله ولاكن استاذي الفاضل انا لم افهم كيفية صياغة اكواد الترحيل مثلا انا لدي ملف حضور موظفين بالوقت في ورقة واريد ترحيل البيانات الى ورقة اخرى وهيا عبارة عن جدول حساب الوقت ومكون من 30 يوم مثلا حضور صباحي وحضور مساء فترة الصباح تترحل لصف الموظف الاول وفترة المساء تترحل لصف الثالث بمعنى الترحيل كالاتي 1 - ترحيل فترتين (فترة صباحية - فترة مسائية) 2 - ترحيل حسب تاريخ اليوم يعني مثل هذا العمل يحتاج الى الغوص عميقا في اكواد الترحيل وانا مبتدئ جدا في مجال الاكواد وعلى العموم انا اذا طرحت الملف في المنتدى الكل بيفيدنا ماشاء الله عليهم نوابغ الله يزيدهم ومانريده فهم الية الكود بمعنى سطر الكود الاول والسطر الذي يليه شرح السطر السابق ارجو ان يكون كتابة الاكواد بهذا الشكل كي يستفيد الجميع استاذي الفاضل ابو عبدالله ارفق لك ملفي هنا وارجو الاطلاع عليه وكيف يمكن عمل كود للاليه التي تتناسب مع ملفي بمعنى المهم جدا هو الفكره المختصره كيف ستكون ارجو من الجميع التفاعل والعذر والسموحة على الاطاله ومنكم نستفيد ترحيل حضور يومية موظف.rar
    1 point
×
×
  • اضف...

Important Information