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

الإجابة في المرفق التالي: فاتورة ديناميكية 7.rar

بارك الله فيك استاذنا ابو خليل لقد حللت المشكلة اخذت بنصيحتك فى المرة الاولى المشكلة لم تكن تكمن فى فتح ملف ورد خارجى من خلال الاكسس المشكلة كانت فى كيفية عرض اى ملف ورد داخل النموزج اخذت بنصيحتك قمت بادراج اطار لكائن غيىر منضم ولم احدد اى مصدر بينات له فقط اقوم بتحديد له مسار الملف المراد فتحه داخل الكائن عن طريق الكود وجارى ادراج المرفق

السلام عليكم و رحمة الله () نتابع معكم الفيديوهات الاحترافية التى تسهل العمل على برنامج أكسيس من خلال الاستعانة بأكواد vba درس اليوم سهل جدا و بسيط جدا و هو عن كيفية البحث عن السجلات و الانتقال إليها لكن هذه المرة باستخدام طريقة البحث searchforrecord أرجو لكم النفع و الفائدة الفيديو بتاريخ اليوم أرجو دعم القناة بالاشتراك https://www.youtube.com/watch?v=Xqw4...ature=youtu.be

مباركة جهودك وجزاك الله كل خير

جزاك الله كل خير

هذا من فضل ربي بارك الله فيك اخي عبد القادر.

اكواد لتغييير اشكال رسائل التنبيه بشكل جذاب رابط الموقع http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/

لدي مشكل في ظهور الحروف العربية في محرر الاكواد VBE لذا وضعت كود الرسائل بالعربي وبالانجليزي (عذرا ان كانت هناك أخطاء بالترجمة ) اصناف_v004.rar

أستاذ السلام عليكم أبو-عبد-النور بارك الله بجهودك

السلام عليكم، - نقوم اولا بحصر نطاق الجدول 1 في متغير الجدول a وبحصر نطاق الجدول 2 في متغير الجدول b - d1 هو عبارة عن "قاموس" فائدته انه لا يقبل ادخال العناصر اليه الا لمرة واحدة وغير مكررة وهنا هو لتخزين الاسم كمفتاح و الترتيب p كقيمة للمفتاح - نقوم بمسح الجدول a وتخزين كل خانة لما يناسبها في متغير الجدول c بالاعتماد على عدم تكرار الاسم بواسطة القاموس d1 - نفعل بالمثل مع متغير الجدول b. - غي الاخير نعيد طبع محتويات الجدول c على ورقة "المطلوب" أرجو ان اكون قد افدتك ولو قليلاً

انظر الى المرفق : اصناف_v003.rar

السلام عليكم، بعد اذن الاستاذ طلعت، هذه طريقة اخرى للحل عن طريق الـ VBA. دمج جدولين.rar

وبارك فيك ادرجت الامثلة لاثراء الموضوع لمن يأتي بعدنا يجدها في صفحة واحدة واجزم يقينا ان مكتبتك تحوي امثالها واكثر

السلام عليكم اخي الكريم تم عمل هذه القائمة من قبل شاهد المرفق وبنفس المسميات Book1.rar

تلبية لرغبة الاخ محمد ممتاز تم التعديل على الكود ليظهر الصف الاول عند الطباعة مع الاحتفاظ بعدد الصفوف المطلوبة لكل صفحة طباعة ما عدا اخر صفحة اذا كان عدد الاسطر اقل من المطلوب تظهر البيانات المتبقية مع الاجمالي طباعة أول سطر في كل صفحة مفعلة تستطيع ان تراها من خلال Print Preview (لكن لا يظهر اول سطر على الشاشة العادية) auto_sum advanced.rar

السلام عليكم لو سمحت مكن سليم حاصبيا يتفضل بس يشرح لى الكود وطريقة عملة شرح مبسط واكون شاكر لة .

انا بخدمتك اخي العزيز قمت بالتعديل المطلوب اعتمادا لتصميمك وطريقة عرضك للنموذج لكن هل هي طريقة عرض صحيحة او هل التصميم صحيح الامر يحتاج الى اعادة نظر والسبب الذي جعلني ابين هذا الامر هو طلبك للتعديل الجديد فالامر غير ممكن حسب وجهة نظري ولا اعلم راي السادة الخبراء لان طريقة عرض النموذج تمكنك فقط باجراء تعديل اما طلبك هو اضافة جديد اي اعادة البيانات الى قيمها الافتراضية ثم اعادة الحساب مرة اخرى بالنسبة للكود فهو يقوم بحساب عدد السجلات المعروضة ثم يقوم بالاختبار بداية من اول سجل الى الاخير ويقوم بعملية الجمع للسجل الذي يحقق الشرط المفروض والعملية تعاد في كل مرة نقوم بتحديث البيانات

قمة الإبداع والديناميكية.. جزلك الله خيراً.

ماشاء الله على هذا الابداع للاستاذ / سليم حاصبيا فعلا كثرة الافكار من قبل الخبراء تجعل الصغار يحتارون بين الحكم على ايهم افضل طريقة بس هل ممكن دمج العمل الاول مع العمل الثانى بحيث الصف الاول يظهر فى طباعة كل صفحة وكذلك ربطة على كود الطباعة . اظهار اجمالى كل صفحة عند الطباعة.rar

السلام عليكم يصبح الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = Range("C2").Address Then Exit Sub '''''''''''''''''' Dim Lr As Long, i As Long, R As Long, x As Byte Dim txt Range("A6:F" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents Application.ScreenUpdating = False txt = Trim(Target) If Len(txt) < 3 Then Exit Sub With Sheets("Data") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lr To 2 Step -1 For x = 1 To 8 If txt = CStr(.Cells(i, x)) Then Cells(R + 6, "A").Resize(1, 3).Value = .Cells(i, "A").Resize(1, 3).Value Cells(R + 6, "D").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value Cells(R + 6, "F").Value = .Cells(i, "H").Value R = R + 1 End If Next Next End With Application.ScreenUpdating = True End Sub

ممكن نتناقش اولا فى هذا الموضوع اولا ليه مرفقات داخل القاعد؟ ليه مش صور فى مجلد منفصل بجوار القاعدة وعندى فكرة كمان اجمل ليه مكيكونش فى مساح ضوئى ونربطة بقاعدة البيانات ويتم انشاء المجلد بجوار القاعدة برمجيا ويتم انشاء مجلد باسم الموكل وداخل مجلد الموكل مجلد برقم القضية بحيث لو فى للموكل الواحد اكثر من قضية باكثر من رقم عند فتح مجلد الموكل باسمه نجد المجلدات بارقام القضايا وبداخل كل مجلد الصور التى يتم سحبها بالماسح الضوئى وبكده هسيقى فى نظام وسهولة الفهرسة بداخل قاعدة البيانات وكمان قاعدة البيانات حيكون حجمها مستقبلا مع كم الشغل صغير اخى الكريم بالنسبة لموضوع استعلام الالحاق فى وجود مرفقات بكرة ان شاء الله اجرب وارد على حضرتك هههههههههههههههه معلش ياخى الكريم انا اسف واضح انى بدأت انام هههههههه حضرتك بالفعل رابط تقريبا ماسح ضوئى بالنموذج عذرا مخدتش بالى

أخى الفاضل أبو تراب كلماتك الرقيقة وسام على صدري .. وشهادة أعتز بها من معلم واستاذ قدير مثلك .. منكم تعلمنا وعلى ايديكم تتلمذنا استاذي الفاضل وكل عام وانت واسرتك الكريمة بألف خير تحياتي