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

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

تفضل نعمل متغير عام يحمل قيمة (مسار الصورة ) وفي التقرير يكفي نداء المتغير اضافة الصور2.rar

وعليكم السلام افتح النموذج وادخل النسبة التي تريدها ...تستطيع ان تفتح تقريرا بذلك مصدرة الاستعلام fatih.rar لم انتبه للجداول!!

يمكنك رفع ملف اخر في موضوع جديد يكون نسخه مصغره من ملفك ببيانات بسيطه لكى نفهم المطلوب جيدا

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

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

تفضل من المنتدى نتيجة ابو جودى.rar

يوجد البحث عن الاخطاء في الأكواد البرمجية التي في محرر الاكواد : Debug / compile

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

وعليكم السلام ورحمة الله وبركاته عدل نطاق المصفوفه من Arr = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row).Value الى Arr = Ws.Range("B2:E" & Ws.Cells(Rows.Count, 2).End(xlUp).Row).Value وعدل عامود الشروط من العامود الثانى في المصفوفه Arr(i, 2) الى العامود الرابع في المصفوفه Arr(i, 4)

وعليكم السلام ورحمه الله وبركاته تفضل اخى Private Sub CommandButton1_Click() Dim Ws As Worksheet, Arr, dic As Object, Levels, X Dim i As Long, R As Long, j As Long, P As Long Set Ws = ThisWorkbook.Worksheets("main") Arr = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row).Value Set dic = CreateObject("Scripting.Dictionary") R = 1 Levels = Array(TextBox1, TextBox2, TextBox3) Me.ListBox1.Clear ReDim B(1 To UBound(Arr, 1)) For i = LBound(Arr, 1) To UBound(Arr, 1) If Not dic.Exists(Arr(i, 1)) Then dic.Add Arr(i, 1), R B(R) = Arr(i, 1) & "-" & Split(Arr(i, 2))(0) R = R + 1 Else B(dic(Arr(i, 1))) = B(dic(Arr(i, 1))) & "-" & Split(Arr(i, 2))(0) End If Next i ReDim Tmp(1 To R - 1) For i = LBound(B, 1) To R - 1 If UBound(Split(B(i), "-")) = UBound(Levels) + 1 Then For j = 1 To UBound(Levels) + 1 X = Application.Match(Split(B(i), "-")(j), Levels, 0) If IsError(X) Then GoTo 1 Next j P = P + 1 Tmp(P) = Split(B(i), "-")(0) End If 1 Next i If P > 0 Then Me.ListBox1.List = Application.Index(Tmp, Evaluate("row(1:" & P & ")")) End Sub test.xlsm

حتى احقق كل ما تفكر به يجب ان تكون البيانات في المرفق شبه مكتملة حاول ادخال ما تستطيع من الافواج// والرتب وموادها// والغرف// و المعلمين ثم اتجه للطلاب وادخل مجموعة كافية ووزعهم على الافواج والرتب والغرف يكفي بيانات بما يغطي غرفتين او ثلاث خلال اسبوع ثم : 1- اعمل اعداد للجدول من جديد 2- قم بتوزيع المواد على المعلمين لجميع الحصص خلال اليوم بما يغطي الأسبوع ... لغرفتين او ثلاث على الأقل هكذا يمكننا اجراء واستخراج النتائج التي نفكر بها ملحوظة : المعلمين يتم ادخالهم مباشرة من الجدول .. فلعلك تعمل نموذج لهم

مع ان الموضوع قديم وتمت الاجابة بشكل موفق مع ذلك في بعض الحالات لا نرغب في زيادة كائنات القاعدة باضافة استعلام توحيد واستعلام انشاء جدول كما فعل الاستاذ خليفة ونرغب في عمل ذلك بالكود عن طريق مصدر السجلات الكود المقترح في زر امر Dim rs As DAO.Recordset Dim rst As DAO.Recordset Dim a As Integer Dim fld As DAO.Field Dim strSQL As String strSQL = "SELECT Data1.* from data1 Union SELECT Data2.* from data2 UNION SELECT Data3.* from data3;" Set rs = CurrentDb.OpenRecordset(strSQL) Set rst = CurrentDb.OpenRecordset("data") rs.MoveFirst For a = 0 To rs.RecordCount - 1 rst.AddNew For Each fld In rs.Fields If fld.Name <> "م" Then rst.Fields(fld.Name) = fld.Value End If Next fld rst.Update rs.MoveNext Next a rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing اخونا الشايب

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

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