Foksh

هل النتيجة في الملف المرفق PDF صحيحة ؟؟؟؟؟؟؟ صورة كمثال :- kashf_monada.pdf

هذه بسيطة ، ولكن !!! من اين مصدر ( رئيس اللجنة - رئيس الكنترول ) الذي تريد اضافتها ؟؟؟

وإياكم أحي الكريم في حال حصلت على طلبك ، نرجو منك اغلاق الموضوع باختيار افضل إجابة .

أخي الكريم ، انت تسأل وتريد اجابات على اسئلتك ، لكنك لا تجيب على اسئلة تم طرحها سابقاً

تفضل Data19_R.zip

وعليكم السلام ورحمة الله وبركاته مجدداً أخي الكريم .. لن تحتاج الى اي من الأكواد السابقة في هذه الحالة . فقط تحتاج جملة فتح النموذج المعتادة والتي ستكون :- DoCmd.OpenForm (Me.مربع_تحرير_وسرد1) مرفق ملفك Lists.accdb

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

كما تريد أخي @سامر محمود ،، تفضل هذا التعديل :- Pepsi-fockh.zip

أخي @2saad بدلاً من فتح موضوعين لنفس الطلب ، كان الأجدر بك التوضيح أكثر واستغلال مساحة الموضوع الأول الذي قمت بإنشاءه سابقاً ، ولا أعلم لما تبخل في التوضيحات أثناء ردودك . على العموم هل الصورة التالية مناسبة لطلبك ؟

وعليكم السلام ورحمة الله وبركاته ، اختر فقط اللغة العربية بدلاً من الإنجليزية ، وقم بإزالة اشارة الصح عن UTF-8 طبعاً اللغة العربية حسب بلدك أو البلد الذي تريده

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

بارك الله فيك ، وغفر لك ولوالديك والمسلمين 😇 يسعدني أنك وجدت الحل مناسباً لك 🤗

العفو أخي الكريم ، نحن هنا أسرة واحدة ، وكلنا نساعد ونساند بعضنا البعض ، ويوماً ما سأحتاج مساعدتك في معضلة لم أجد لها حل بإذن الله تعالى 😉 . جهز نفسك 😁 .

وعليكم السلام ورحمة الله وبركاته ،، جرب هذا التعديل على حسب ما فهمت من الشرح Sub Test_Optimized() Dim ws As Worksheet, dataArr As Variant, outputArr() As Variant Dim i As Long, ii As Long, p As Long, startRow As Long, endRow As Long Dim chunkSize As Long, chunkStart As Long, chunkEnd As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Set ws = ActiveSheet chunkSize = 5000 ReDim outputArr(1 To chunkSize * 10, 1 To 14) With ws .Columns("Q:P").Clear .Columns("P").ColumnWidth = 12 .Range("R1").Resize(, 14).Value = Array("الدفعة", "ج", "ت ح", "ت م", "ت ع", "ل ع", "ل ح", "ل م", "ل ع1", "ر ع1", "ل ح1", "ر ح1", "ل م", "ر م1") .Range("R1").Resize(, 14).Interior.Color = RGB(146, 205, 220) .Range("R1").Resize(, 14).HorizontalAlignment = xlCenter For chunkStart = 2 To 13000 Step chunkSize chunkEnd = chunkStart + chunkSize - 1 If chunkEnd > 13000 Then chunkEnd = 13000 dataArr = .Range("A" & chunkStart & ":N" & chunkEnd).Value p = 1 For i = LBound(dataArr, 1) To UBound(dataArr, 1) If IsNumeric(dataArr(i, 2)) And IsNumeric(dataArr(i, 3)) Then startRow = dataArr(i, 2) endRow = dataArr(i, 3) For ii = startRow To endRow outputArr(p, 1) = dataArr(i, 1) outputArr(p, 2) = ii outputArr(p, 3) = dataArr(i, 4) outputArr(p, 4) = dataArr(i, 5) outputArr(p, 5) = dataArr(i, 6) outputArr(p, 6) = dataArr(i, 7) outputArr(p, 7) = dataArr(i, 8) outputArr(p, 8) = dataArr(i, 9) outputArr(p, 9) = dataArr(i, 10) outputArr(p, 10) = dataArr(i, 11) outputArr(p, 11) = dataArr(i, 12) outputArr(p, 12) = dataArr(i, 13) outputArr(p, 13) = dataArr(i, 14) outputArr(p, 14) = dataArr(i, 14) p = p + 1 Next ii End If Next i If p > 1 Then .Range("R" & chunkStart).Resize(p - 1, 14).Value = outputArr ReDim outputArr(1 To chunkSize * 10, 1 To 14) End If Next chunkStart End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True End Sub

هل هذا ما تريده ؟ class_be1.accdb

على اي أساس سيتم تمييز السجلات الخاصة بالجهاز ولنفترض Pc1 و Pc2 ... إلخ .؟؟؟ لنفترض انني Pc1 على شبكة Net1 وموظف آخر على شبكة Net2 باسم Pc1 أيضاً !!!!! هل فهمت المقصود ؟؟ ما الرابط فيما بينهم !!!!!

وعليكم السلام ورحمة الله وبركاته .. المطلوب غير مفهوم للأسف !! نرجو منك التوضيح أكثر أخي الفاضل

تفضل .. class_be.accdb

إلى الآن لم تتضح أو تظهر لي المشكلة ، والحل باعتقادي بسيط ، هو فقط الاعتماد على الحقل [ClassNo] للفرز التصاعدي .

اهلاً اخي الكريم ، يسعدني ذلك . ولكني لم أفهم من خلال الصورة المطلوب بشكل جيد ، وحتى ان المرفق يحتوي على جدولين ، في جدول Class لو قمت بترتيب السجلات حسب رقم الصف لخرجت معك النتيجة كما تريد ، ونفس المبدأ في التقرير طبعاً ..

وعليكم السلام ورحمة الله وبركاته .. أهلاً بك أخي الكريم في مشاركتك في عالم أكسيس .. نود منك بدايةً التقيد بقوانين وأُسس المشاركات هنا . حيث يجب أن يتضمن السؤال توضيحاً كافياً و وافياً وشرحاً يصف المشكلة التي لديك ، وفيما تفضلت به هو أعلاه لا يكفي لفهم المشكلة . ثانياً ضرورة ارفاق ملف كي يتم التطبيق عليه ولفهم المشكلة على أرض الواقع .. أهلاً وسهلاً بك

وعليكم السلام ورحمة الله وبركاته ,, كمشاركة لي خارج قوقعتي في قسم الآكسيس ، استخدم الدالة LEFT ، في الخلية D1 حسب مثالك ، وسينتج عن ذلك رقم مكون من 6 خانات إن كان هذا طلبك , =LEFT(A1&"",2) & LEFT(B1&"",2) & LEFT(C1&"",2)

🙄

وعليكم السلام ورحمة الله وبركاته .. باعتقادك هل هذه الجملة كافية لتوضيح الحقول المطلوب جمع قيمها في سجل واحد ؟؟؟ أضف إلى ذلك أيضاً ، جداولك الثلاثة تحتوي 64 حقل تقريباً بدون اي سجل !!!!!!!!! أيضاً ما الشرط الذي سيتم على أساسه المحاولة في فهم طلبك وإيجاد حل له ؟؟؟؟؟؟؟؟ اين النموذج ؟؟؟؟ هذا يعني انك ستحتاج تقرير أيضاً !!!! شكراً لك سعة صدرك ، متأملاً منك تصويب الوضع السابق بشرح كافي وافي شافي وإدراج سجلات متعددة على الأقل 5 ، ولا تقم بوضع بيانات حساسة وخاصة طبعاً وبيانات حقيقية ( أسماء ، أرقام هاتف ، ,,, إلخ ) .

ما شاء الله ، تحديث جميل للجزئية الهامة عند كتابة جمل SQL ، جزاكم الله كل خير مهندسنا الغالي