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

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

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      4

    • Posts

      9,724


  2. احمدزمان

    احمدزمان

    أوفيسنا


    • نقاط

      4

    • Posts

      4,385


  3. kha9009lid

    kha9009lid

    الخبراء


    • نقاط

      2

    • Posts

      1,347


  4. عبدالفتاح في بي اكسيل

Popular Content

Showing content with the highest reputation on 20 يون, 2021 in all areas

  1. تفضل 🙂 اضف المعيار الجديد الى استعلامك : . اعمل زر تحديث على النموذج الرئيسي ، وضع هذا الكود فيه: Dim rst As DAO.Recordset DoCmd.Hourglass True Set rst = Me.invdetails_Subform.Form.Recordset rst.MoveFirst Do Until rst.EOF DoCmd.SetWarnings False DoCmd.OpenQuery "updateStoretransaction" DoCmd.SetWarnings True rst.MoveNext Loop DoCmd.Hourglass False rst.MoveFirst . جعفر 1393.Update_From_SubForm.accdb.zip
    2 points
  2. 2 points
  3. ماشاء الله رائع يا استاذ عبد الفتاح جزاك الله كل خير
    1 point
  4. جرب هذا الكود بمجرد كتابة الرقم سيتم الفرز تلقائيا Private Sub Worksheet_Change(ByVal Target As Range) Dim SR As Long If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub With Worksheets("Sheet1") SR = .Cells(.Rows.Count, "F").End(xlUp).Row .Range("B4:F" & SR).Sort Key1:=.Range("F4"), Order1:=xlDescending, Header:=xlYes End With End Sub SORT.xlsm
    1 point
  5. جرب هذا الماكرو عليك بوضع ملفاتك في مجلد محدد يقوم الماكرو بفتح المستعرض حدد المجلد الذي به الملفات ثم قم يتحديد كامل الملفات وسيقوم بدمجها في ملفك مع مراعاة اسم الورقة بالانجليزي في ملف التجميع Worksheet Sub Consolidation() Dim CurrentBook As Workbook Dim WS As Worksheet Set WS = ThisWorkbook.Sheets("Worksheet") Dim IndvFiles As FileDialog Dim FileIdx As Long Dim i As Integer, x As Integer With WS If Len(.Range("a2")) Then Intersect(.UsedRange, .UsedRange.Offset(0)).Clear 'removes old data End If End With Set IndvFiles = Application.FileDialog(msoFileDialogOpen) With IndvFiles .AllowMultiSelect = True .Title = "Multi-select target data files:" .ButtonName = "" .Filters.Clear .Filters.Add ".xlsx files", "*.xlsx" .Show End With Application.DisplayAlerts = False Application.ScreenUpdating = False For FileIdx = 1 To IndvFiles.SelectedItems.Count Set CurrentBook = Workbooks.Open(IndvFiles.SelectedItems(FileIdx)) For Each Sheet In CurrentBook.Sheets Dim LRow1 As Long LRow1 = WS.Range("A" & WS.Rows.Count).End(xlUp).Row + 2 Dim LRow2 As Long LRow2 = CurrentBook.ActiveSheet.Range("A" & CurrentBook.ActiveSheet.Rows.Count).End(xlUp).Row Dim ImportRange As Range Set ImportRange = CurrentBook.ActiveSheet.Range("A2:F" & LRow2) ImportRange.Copy WS.Range("A" & LRow1 + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next CurrentBook.Close False Next FileIdx Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
    1 point
  6. و عليكم السلام و رحمة الله وبركاته اخي الكريم فضلا توضيح ماهو المطلوب بالتفصيل لكي يتمكن يقية الاخوة من مساعدتك
    1 point
  7. وعليكم السلام 🙂 استعلامك صحيح ، وعندك حاليا شرط رقم الفاتورة ، واذا اردت ان تضيف الشروط / المعايير ، فتقدر تحت كل حقل ان تكتبه 🙂 اما اذا اردت تشغيل الاستعلام من النموذج ، فضع الكود التالي على اي حدث يناسبك: if me.dirty then me.dirty = false docmd.setwarnings false docmd.openquery "updateStoretransaction" docmd.setwarnings true ملاحظة: من الخطورة ان تضع On error Resume Next في كل حدث في الكود ، فاذا حدث خطأ معين ، فلن تعرف اين الخطأ وما هو الخطأ ، لذا يجب عليك اصطياد الخطأ ، ثم عمل كود لمراعاة هذا الخطأ فقط !! جعفر
    1 point
  8. و عليكم السلام و رحمة الله وبركاته اتوقع ان المشكلة في انك بتترك خلايا فارغة في العمود B حاول تعبيها باي قيمة ولو صفر جرب و ياليت تغير الصورة الشخصية لو تكرمت
    1 point
  9. مرفق الملف مع الاكواد كود لمسح كامل النموذج اضغط على الفرشاة للتنظيف Range("J2:M2").ClearContents Range("A8") = "" Range("B8") = "" Range("C8") = "" Range("E8") = "" Range("B11:H319").ClearContents ActiveWindow.LargeScroll Down:=-99 كود للبحث اضغط على البحث تم اضافة خلايا جانبيه مع بعض الدوال لعمل الكود للبحث Dim TC, RN1 As Range, RN2 As Range, RN3 As Range Range("J2:M2").ClearContents For TC = 10 To 13 If Cells(3, TC) = "" Then GoTo 9 Else Cells(2, TC) = Cells(3, TC).Value End If 9 Next 'tr Set RN1 = Sheets("DATA").Range("B5:J55555") Set RN2 = Sheets("Dates").Range("J1:M2") Set RN3 = Sheets("Dates").Range("B10:H555") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False انظر المرفق N BANK.xlsm
    1 point
  10. شكرا لجميع المشاركين ومن الواضح من استفسارات الأصدقاء هو عدم وضوح فكرة البرنامج لهم حيث أن الفكرة تعالج القصور الموجود في تخزين معلومات التسجيل في جدول يمكن تعديله أو في ملف في السي أيضا يمكن تعديله لذلك تم الاعتماد على الريجيستري وأيضا طريقة ربط البرنامج بالجهاز مرنة جدا بحيث يمكن استخدام رقم الهارد ديسك أو البروسيسيور أو الماذربورد أو أي شي تريده. وأنا غير مسئول عن أكواد أخرى يستعملها البعض ولا تجلب أرقام الهارد أو البروسيوسور أو غيره أنا مسئول فقط عن أكوادي التي استعملتها في البرنامج. أخيرا وليس آخرا جعلنا الله جميعا من الذين يعاونون على التطور وليس من المثبطين الهمم آمين آمين آمين
    1 point
  11. زادك الله من فضله استاذى الحبيب husamwahab بارك الله فيك ولك واكرمك وبارك فيك يارب حضرتك حبيبى شكر وتقدير واحترام من اخيك
    1 point
  12. السلام عليكم و رحمة الله وبركاته اولا: العنوان مخالف الطلب لم افهمه هل تريد ان تظهر البيانات في ورقة المستفيدين او في ورقة data و لو توضح بمثال يكون افضل
    1 point
  13. أخي حسين 🙂 لك مجموعة من المواضيع تتكلم فيها عن الحجم الكبير لقاعدة البيانات ، أما آن الاوان ان تحل المشكلة من اصلها !! اخونا @Shivan Rekany عنده موضوع لهذا: جعفر
    1 point
  14. تفضل التعديل استاذ abouelhassan ارجو ان يكون طلبك حسب فهمي DATA14-1.rar
    1 point
  15. اي نعم تتاثر بس ممكن اعمل لك ملف اذا حددت اكبر عدد من الادخالات تتوقعها شوف المرفق عدلت المدى الى 3000 عملية Export.xls
    1 point
  16. وعليكم السلام ورحمة الله ممكن تجعل الملف مشترك عن طريق حفظه علي السيرفر بعد تفعيل خاصية Shared
    1 point
  17. بسم الله الرحمن الرحيم اخوتي الافاضل سلام الله عليكم ورحمتة وبركاتة اما بعــد... لدي ملف اكسيل او Text متغير الاسم في Folder واريد ان اعمل ربط معه في الاكسيس فهل يمكن عمل ذلك دون الحاجة الى عمل ربط جديد كل يوم بسبب تغير الاسم وشكرا.
    1 point
  18. أخواني الكرام كيف يمكننا تشغيل ملف فيديو داخل الاكسس وبدون أدراج بوربوينت فقد عملت ملف وفى تصميم النموذج أدرجت كائن ومن ملف ادرجت الملف الفيديو المراد تشغيلة وجعلته مرتبط بالنموذج فى الاكسس المهم هو بالفعل اشتغل لكن من داخل تصميم النموذج ولا يعمل فى حالة عرض النموذج لقد حاولت استدعاء الدالة shell والعمل عليها وغيره من المحاولات لكن دون فائدة . فالمهم هو التالى :- كيف يمكننا التغلب على تلك المشكلة لأننا نريدة العمل فى طريقه العرض للنموزج وليس التصميم .
    1 point
  19. المواضيع المتشابهة 1) 04/03/2005 تحويل عناصر النموذج للعربية 2) 26/02/2005 التعامل مع عنصر تحكم علامة جدولة 3) 13/01/2005 عمل نموذج بدون إطار 4) 29/12/2004 ما معنى كلمة Tag بالعربي 5) 14/12/2004 لا أريد أزرار مربعة رمادية ! 6) 14/09/2004 تخصيص أيقونة لكل نموذج 7) 12/07/2004 استخراج كائن ole الى طبيعته الاساسية 8) 06/05/2004 تثبيت النموذج - كيف اجعل النموذج لا يتحرك 9) 29/04/2004 حل تنسيق ضبط كلي لحقل المذكرة في أكسس 10) 06/04/2004 التحكم في أعمدة وصفوف النموذج الفرعي 11) 06/03/2004 مشكلة في تكبير النموذج
    1 point
  20. كيف يمكنني عمل ترقيم تلقائي بحيث لا يكون نوع الحقل ترقيم تلقائي ولكن يكون رقم بحيث إذا أضفت سجل جديد يعطيني الرقم التالي وإذا حذفت لا يحذف رقماً وإنما يعطي ترتيب الرقم الذي يليه؟؟؟؟؟؟؟؟؟ بعكس الترقيم التلقائي الذي إذا حذفنا منه أي سجل يحذف الرقم نهائياً هل يمكنني عمل زر أوامر جديد بحيث عند إضافة السجل يعطيني قيمة الحقل +1 ولكن كيف يتم إذا حذف سجل
    1 point
  21. لدي في التقرير ارقام اريد جمعها على النحو التالي 1905+137.12 -63.5 =1979 عند اخفاء الكسر بعد الفاصله اي عندما اجعل التنسيق للارقام قياسي يكون الناتج 1905 + 137 -64 = 1979 وهنا واضح ان الدالة اخذت في الجمع الكسور ايضا كيف اجعل الجمع للاعداد الصحيحة فقط اي يكون الناتج 1978
    1 point
  22. السلام عليكم ورحمة الله وبركاته في أكسيس عند عمل نموذج للبحث نجعل مصدر النموذج استعلام وفي معايير تحت اسم الحقل الذي نبحث فيه نضع اسم النموذج واسم مربع النص هكذا: [forms]![frm1]![txt1] ولكن مشروع أكسيس لا يقبل ذلك كذلك التصفية حيث تضهر رسالة تتطالب بالتحقق من أداة التصفية للملقم . فضلاً شرح عمليات البحث والتصفية في مشروع أكسيس . وفق الله .
    1 point
  23. السلام عليكم ورحمة الله لدى إستفسار لست أدرى إن كان بسيطا أم غير ذلك كيف اجعل مربع النص (عند طباعة تقرير) أن يُظهر إتجاه النص من اليمن إذا كانت الكتابة بالعربى وأن يُظهر إتجاه النص من اليسار إذا كانت الكتابة إنجليزية؟. ولدى استفسار آخر بعد إذنكم حيث ان لا استطيع التواجد يوميا فى هذا المنتدى الموقر (نظراً لعدة أسباب منها ارتفاع قيمة فاتورة الهاتف). أين أستاذنا الكبير أ.م محمد طاهر ؟؟ .. ارجو ممن يراه ان يهديه سلامى. شكرا لكم جميعا.
    1 point
  24. كيف استطيع ان اعمل جدول به قائمتين الثانية تعتمد على الأولى مثلا لو كان العمود الأول فيه النوع مثلا ( لون,رقم,حرف) فبناء على اختيار النوع يتم الأختيار في العمود الثاني اي لو اخترت في العمد الأول لون ففي العمد الثاني يكون الأختيار فقط من الألوان ولو اخترت في العمد الأول حرف يكون الأختيار في العمود الثاني من الأحرف وهكذا وشكرا
    1 point
  25. السلام عليكم كيف اقوم في برنامجي بإلغاء عمل كافة مفاتيح الإختصارات , وإستبدالها بأخري مثل مفتاح start و مجموعة F والتاب وغيرها من كافة المفاتيح حيث اريد ان لايتم اي معاملة مع الوندوز ولا معرفة الوصول لأي شيء غير البرنامج المحدد فقط وشكرا لكم
    1 point
  26. أضع في الجامعة هذا المثال الصغير أبين فيه كيفية تعطيل مفتاح الشيفت بواسطة الكود, و هو موضوع يتعلق بمجال تأمين قاعدة بيانات أكسس أو تأمين التطبيق في حد ذاته. في المثال المرفق وضعت اٍمكانية تفعيل مفتاح الشيفت بواسطة الضغط على تسمية, و يمكن ارنشاء زر للقيام بالعملية, فعند النقر فوق "أنقر هنا لتفعيل مفتاح الشيفت" تظهر لك نافذة لاٍدخال كلمة السر و هي biskra فاٍذا كانت كلمة المرورصحيحة فاٍن مفتاح الشيفت يصبح مفعل و اٍن لم تتمكن من اٍدخال كلمة المرور الصحيحة فاٍن مفتاح الشيفت سوف يتعطل و لا يمكن اٍستعماله حتى في الحالة التي يكون فيها مفتاح الشيفت مفعل http://montada.hiarab.net/attachment.php?a...ttachmentid=682 Shift_Password_biskara.rar
    1 point
×
×
  • اضف...

Important Information