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

اولا ::: هناك اخطاء لديك لانك استخدمت بعض الكلمات المحجوزة للاكسس ثانيا :::: اقتنصت بعض الاكواد من الخبير @jjafferr فله الشكر والعرفان جرب المرفق ربما هو المطلوب . Change by One Button.accdb

السبب عدم القدرة على الاتصال بقاعدة البيانات الحل : اعمل ضغط واصلاح قاعدة البيانات .. حاول انك تعملها بين فترة وأخرى

ما شاء الله أستاذنا الكبير @Barna ، عمل جميل وتحوير الأكواد والأفكار خطوة ذكية 🤗

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

السلام عليكم ورحمة الله وبركاته أخي Foksh لا خلا ولا عدم جزالك الله حيرا وبارك بك وبعلمك وجعله في موازين حسناتك وأصلح لك البال والذرية الحمد لله الأمور في غاية التمام

تفضل أخي الكريم ، الأمر يسير ان شاء الله ، الق نظرة على الكود التالي ، وأعتقد ستعرف كيفية عمل فكرتك Private Sub cbo3_AfterUpdate() Me.CN.Value = Me.cbo3.Column(3) Me.TCN.Value = Me.cbo3.Column(4) Me.R.Value = Me.cbo3.Column(5) End Sub وهذا ملفك بعد التعديل محاولة2.accdb

السلام عليكم قد يكون الحل أسهل بالأكواد

اخي الكريم لا ترسل تقرير للمشرفين الا للتنبيه على مخالفة موجودة بالنسبة لرسائل الخاص فإنها محجوبة عن الأعضاء الجدد ,,, واعتقد يتم التمكين بعد تجاوز 100 مشاركة

اعتذر عن الموضوع السابق بسبب خطأ رفع المرفق حدثة الموضوع 😗 1- تغير خلفية والحتفاظ بالخلفية 2-تعديل اسلوب العرض ومختلف ومتنوع اشلون الطريقة اسهل 😇 Ribbon Ribbon_Ezy_with_Full_Contol.rar

شكرا جزيلا أخي الفاضل علي تعبك ومجهودك

اشكر استاذ @ahmed draz ❤️🌹 😂 ما لقيت واحد ثابت على طريقة Ribbon يختلف 2007 عن 2019 -2021 لتغير الصورة <\ image = " 2019 Custom Pictuer = " اتمنى في موضوع جيد لانشاء Ribbon 2019 مثل انشاء الجداول 😇

اختنا hanan_ms في الحقيقة عمل رائع جداً لم أرى مثله إطلاقاً إلى الأمام دائماً

السلام عليكم اختنا hanan_ms لا شكر على واجب

السلام عليكم ورحمة الله أخي الكريم 2saad إن دوال الاحصاء مثل Count و DCount و SUM وغيرها من دوال العد والاحصاء إنما وجدت لتعطي ملخصاً في نهاية التقرير (summary) وليس إحصاء لكل صفحة في التقرير وبالتالي عند اختيار الصف فقط من القائمة وضغطت أمر عرض القوائم أو (التقرير) دون تحديد (الفصل) من القائمة الثانية فأنه يعتبر أنك تطلب تقريرا بكامل (الصف) ولذلك لن يعطى الاحصاء أو الملخص العددي إلا في نهاية هذا التقرير. ولكن بعد البحث لعديد من الساعات وجدت أنه يوجد بعض الطرق لعمل ذلك جميعها تشترط عداداً ثابتا من الطلاب في كل صفحة. ونصيحة مني قم بضبط تقريرك وتنسيقه جيدا لأنه غير منسق بشكل كافي للقيام بعمل هذه الطرق وهذه بعضها: ومشاركة سابقة لاستاذنا/ أبو خليل

تفضل طريقة أخرى في التوزيع ، مع الابقاء على الطريقة الأولى كما هي الطريقة الجديدة : - فرز الصف كاملا .. الذكور ثم الإناث - اظهار عدد الذكور وعدد الاناث من اجل ضبط العدد الناتج داخل اللجنة ونوعه عند تحديد العدد - توزيع الجلوس والسري على الصف كاملا مع مراعاة الفرز - توزيع الصف على اللجان حسب الفرز الحاصل الذكور اولا ثم الإناث (( جميع اللجان ظاهرة ويمكن الاختيار منها بلا ترتيب )) اعتقد هذه الطريقة ايسر للمستخدم .. وأشمل . Dat12.rar

السلام عليكم اختنا الكريمة hanan_ms الفيديو رائع جدا ولكن المرفق مختلف ووجب علينا التنبيه!

تفضل جرب هدا Private Sub b_recup_Click() Dim Cnt As VbMsgBoxResult Dim sht As Worksheet, tbl As ListObject, tblRow As ListRow Set sht = Sheets("تصدير بيانات اكسيل") Set tbl = sht.ListObjects("Table1") Cnt = MsgBox(" تــرحيل البيانات ؟", vbYesNo, sht.Name): If Cnt <> vbYes Then Exit Sub With tbl.DataBodyRange If .Rows.Count > 1 Then .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete End If End With tbl.DataBodyRange.Rows(1).ClearContents Set tblRow = tbl.ListRows.Add tblRow.Range.Resize(Me.ListBox1.ListCount) = Me.ListBox1.List sht.[b2] = Format(DateAdd("d", -1, CDate(Me.DateMini.Value)), "dd/mm/yyyy") sht.[C2] = ("رصيد المدة"): sht.[F2] = ("بيان رصيد أول مدة بتاريخ هذا اليوم") sht.[G2] = Text_count: sht.[I2] = Text_count With sht.Cells(sht.Rows.Count, 6).End(xlUp).Offset(1) .Value = "الإجمالي" .Offset(, 1) = Me.TextBox3.Value .Offset(, 2) = Me.TextBox2.Value .Offset(, 3) = Me.TextBox1.Value End With MsgBox "تم نرحيــل البيانات بنجاح" Unload Me On Error Resume Next Set Rng = sht.Range("A1").CurrentRegion sht.PageSetup.PrintArea = Rng.Address sht.PrintPreview ' answer = MsgBox("طباعــة التقرير ؟", vbQuestion + vbYesNo + vbDefaultButton2, "تأكـــيد") ' If answer = vbYes Then sht.PrintOut End Sub تمت اظافة اكواد تصدير الملف بصيغة Word, Excel, PDF في الملف المرفق Copy of كشف حساب عميل & كارت صنف V5.xlsm

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹