كل الانشطه

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

السلام عليكم عاشت ايدك استاذ شكرأ جزيلاً

المقصود عمل نموذج لتجميع البيانات بجدول واحد

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

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

شكرا لاهتمامك اخي الفاضل عندي قاعدة بيانات موجوده على أكثر من جهاز اماكن متفرقه مش على شبكه واحده مثلا الجهاز الاول بيسجل أسماء من كود 1 - 1000وهكذا الجهاز الثاني من 1001 الى 2000 والثالث من 3001 الى 4000 وهكذا المطلوب عمل نسخة تجميع لكل البيانات التي تمت كتابتها على جميع الاجهزة

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

تفضل .. class_be.accdb

السلام عليكم الرجاء المساعده من الاحباب الكرام محتاج اعمل نسخة تجميع لقاعدة بيانات موحده على أكثر من جهاز ما الخطأف في هذا الكود مرفق قاعدة البيانات Option Compare Database Option Explicit Dim addsql, a As String Dim WK As DAO.Workspace Dim db As DAO.Database Dim Chemin As String Private Sub BtImporter_Click() If Nz(cmbTable, "") <> "" Then DupliquerTable db, cmbTable Else MsgBox "اختــر جـــدولا" End If End Sub Private Sub cmd_new_Click() On Error GoTo mm DoCmd.SetWarnings False addsql = "INSERT INTO asdst IN '" & New_DB & "' SELECT [asdst].* FROM asdst;" db.Execute addsql MsgBox ("تم الاستيراد بنجاح"), vbOKOnly + vbMsgBoxRight, " رساله " DoCmd.Close End mm: MsgBox ("تأكد من أختيار ملف الأستيراد الصحيح"), vbOKOnly + vbMsgBoxRight, " رساله " New folder (24).rar

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

ماشي ممكن تعمل التقرير وتبعتهولي

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

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

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

هلا اخي الخبير Foksh قدقمت بحل معضلة لي عام ٢٠٢٤ مشكورا فقد ارت الاختصار عموما تم ارفاق صورة وملف بعد التعديل

بارك الله في الاستاذين حجازي ومحمد هشام وجعله في ميزان اعمالكما وشفى نجل الاستاذ محمد هشام

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا Option Explicit Sub Tartib() Dim WS As Worksheet, lastRow As Long, OnRng As Range Dim i As Long, ColSort As String: ColSort = "Z" Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set WS = ThisWorkbook.Sheets("Sheet1") lastRow = WS.Cells(WS.Rows.Count, "B").End(xlUp).Row If lastRow < 2 Then GoTo ClearApp For i = 2 To lastRow WS.Cells(i, ColSort).Value = i Next i Set OnRng = WS.Range("A2:D" & lastRow).Resize(, WS.Range(ColSort & "2").Column - 1 + 1) OnRng.Sort Key1:=WS.Range(ColSort & "2"), Order1:=xlAscending, Header:=xlNo OnRng.Sort Key1:=WS.Range("C2"), Order1:=xlDescending, _ Key2:=WS.Range("D2"), Order2:=xlAscending, _ Key3:=WS.Range("B2"), Order3:=xlAscending, Header:=xlNo WS.Range(ColSort & "2:" & ColSort & lastRow).ClearContents ClearApp: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub

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

Up

السلام عليكم الاخوان خبراء الاكسيس الكرام عندي تقرير اسمة Studentstotll يعرض عدد الطلاب في كل فصل حسب الفصول ولآكنها تظهر غير مرتبة اريده ترتيبه حسب الترتيب التالي ( المستوى الاول, المستوى الثاني , الاول ابتدائي , الثاني ابتدائي, الثالث ابتدائي ... الي الثالث متوسط) مشكورين class_be.accdb

طلبك أخي الكريم يتضمن عدة احتمالات لذا نرجو منك التكرم بإرفاق ملف يحتوي على بعض الأمثلة (أرقام في الأعمدة A -B -C) مع توضيح النتائج المتوقعة يدويا في العمود D ذلك سيساعدنا على فهم المطلوب بدقة وتنفيذ ما تحتاجه

بالنسبة للقواعد التي لم تعمل معك ...... من خصائص الملف فعل كما في الصورة

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

جرب هذا ....

للاسف عملت بحث ولقيت فواعد بيانات ونزلتها ومافيش ولا واحدة بتشتغل عندي مش فاهم المشكلة فين اخر واحدة اهو واقفة على كدة بقالها ساعتين