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

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

🔹 قبل أن نصل إلى نقطة إدخال البيانات ، هناك بعض الأمور التي من الأفضل تجنبها لضمان تصميم سليم وقابل للتطوير . 1️⃣ استخدام مربعات التحرير والسرد داخل الجداول بشكل مباشر ليس فكرة جيدة ( من وجهة نظري وهي غير ملزمة طبعاً ) . 🔴 لماذا ؟ عند تخزين قيمة مثل "مصري" مباشرة داخل الجدول ، فإن أي استعلام أو كود VBA سيتعامل مع النصوص بشكل مباشر ، مما قد يبطئ عمليات البحث والاستعلامات . والأسباب التالية كفيلة بتغيير وجهة نظرك 😉 :- 1️⃣ يؤدي إلى تخزين القيم النصية بدلاً من القيم الرقمية المترابطة الى عدة مشاكل منها :- عند إدخال "مصري" مباشرةً داخل الحقل ، يصبح التعامل مع البيانات أبطأ عند تنفيذ الاستعلامات ، مقارنةً بتخزين رقم معرف (ID) وربطه بجدول منفصل يضم الجنسيات . فالأفضل هو تخزين القيم كأرقام مرجعية ( مثلاً ، 1 = مصري ، 2 = غير مصري ... إلخ ) وجلب النص عند الحاجة عبر الاستعلامات . 2️⃣ صعوبة في عمليات الفلترة والاستعلامات المتقدمة فعند الحاجة إلى إجراء استعلامات تعتمد على الجنسية ، مثلاً "كم عدد الموظفين المصريين؟" ، سيكون من الأفضل البحث باستخدام القيمة الرقمية (مثلاً gnsya = 1) بدلاً من البحث عن النصوص ( gnsya = "مصري" ) . فالبحث بالأرقام أسرع وأكفأ مقارنة بالبحث باستخدام النصوص . 3️⃣ تقييد التحديثات وإدارة البيانات عند الحاجة إلى تعديل اسم جنسية معينة ( مثلاً تغيير "مصرى" إلى "مصري" ) ، سيكون عليك تحديث جميع السجلات في الجدول ، مما يزيد من مخاطر الأخطاء . أما عند استخدام جدول منفصل للجنسيات ( كما فعلت ) ، فيكفي تحديثه في مكان واحد فقط وسينعكس التغيير تلقائيًا على جميع السجلات . 🎯 الخلاصة باختصار :- 1️⃣ التعامل مع الأرقام أكثر كفاءة في العمليات الحسابية ، الفلترة ، والبحث ... إلخ 2️⃣ عند الحاجة إلى تغيير اسم جنسية ، يتم تعديله في مكان واحد فقط وليس في جميع السجلات . 3️⃣ يتيح لك إنشاء علاقات أكثر قوة بين الجداول ويسهل بناء التقارير المستقبلية .

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

ليس المهم لمن افضل اجابة ...المهم انك استفدت وحللت مسألتك وقد يحتاج لها غيرك

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

السلام عليكم ...انا استخدمت (txtBrows).. على اعتبار ان المجلد يحتوب على اكثر من صورة بالنسبة الى مشكلة نصف الصفحة بالتاكيد لديك مشكلة في اعدادات الطباعة المثال المرفق يطبع لك جميع الصور في الفولدر CARDS.rar

الله لا يتوهك عزيزي الكريم سالتني عن اسم الاستمارة ثابت فقلت لك اسمها ASD ثابت اريد من خلال المسار في D:\CARD\New

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

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

يوجد الكثير من الأدوات التي تساعد المبرمج في إنجاز مهامه أبسطها ومجاني Microsoft Copilot ولكن لابد من وجود خلفية من المستخدم الذكاء الاصطناعي لا يلغي الإنسان وإنما يسهل حياته بالتوفيق

السلام عليكم في الملف 3489 في خلايا الاعمدة S,N من تنسيق ---حماية--- ابعد التحفيز في (مخفية) ====================================== وتم الاعتماد على العمود الاول في تسلسل الصفوف واختيار آخر صف في الملفين الورقة "عام" ====================================== يتم اخذ اسم الملف الذي ستستورد منه البيانات من الخلية filname ====================================== كود الاستيراد: Sub KH_START() On Error Resume Next Dim Mybook As Workbook Dim N As String, R As Long, RR As Long Dim MyRang_1 As Range, MyRang_2 As Range N = Range("filname") RR = Range("A" & Rows.Count).End(xlUp).Row + 1 Set Mybook = Workbooks(N) With Mybook.Worksheets("عام") R = .Range("A" & .Rows.Count).End(xlUp).Row Set MyRang_1 = .Range("A2:X" & R) Set MyRang_2 = .Range("R2:S" & R) End With Application.ScreenUpdating = False MyRang_1.Copy Range("A" & RR).PasteSpecial xlPasteValues Application.CutCopyMode = False MyRang_2.Copy Range("R" & RR).PasteSpecial xlPasteFormulas Application.CutCopyMode = False Application.ScreenUpdating = True On Error GoTo 0 End Sub ==================================== كود استدعاء البيانات في ورقة"البضائع المستلمة" Sub استدعاء() On Error Resume Next Dim X As Long, R As Long Dim M As Integer, C As Integer, CC As Integer Range("B9:F28").ClearContents M = 9 Application.ScreenUpdating = False With ورقة1 X = .Range("A" & .Rows.Count).End(xlUp).Row For R = 5 To X If .Cells(R, "Q") = [E6] And .Cells(R, "C") <> "" Then For C = 1 To 5 CC = Choose(C, 3, 4, 5, 10, 15) Cells(M, C + 1) = .Cells(R, CC) Next C M = M + 1 End If Next R End With Application.ScreenUpdating = True MsgBox "تم استدعاء " & M - 9 & " سجلات", vbMsgBoxRight, "الحمد لله" On Error GoTo 0 End Sub تفضل المرفق ________________.rar