كل الانشطه

تفضل .. 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)

جرب هذا ....

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

اعمل بحث في المنتدى تجد ما يسرك

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

تجربه.xlsx

اسم تقرير اللجنة kashf_monada

🙄

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

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته الملف المرفق عند فتحه يظهر فورم عند اختيار الفصل الدراسي والفئة والصف ( نختار مثلا الصف السادس ) محتاج عند الضغط علي زر كشف لجنة يأخذ التقرير لجنتين ( لجنة 1 و لجنة2) والصفحة التالية تأخذ لجنة3 ولجنة 4 وهكذا .... Data19.rar