kanory

هل هذا ما تريد ؟؟؟؟؟

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

استبدلها بهذا ... ="مستودع"

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

بالنسبة لعبارة مخزن تجدها في التقرير اما رقم ١ و ٢ و٣ تجدها في الاستعلام لاحظ الصور ... الشرح فيها

هذا طلبك الاول ... قي المرفق ... انظر الصورة .... هذه النقطة معتمده في الاساس عل الاستعلام الذي انت فعلته .... انظر الاستعلام ومن اين اتت هذه المسميات لأنها موجودة في برنامجك اساسا ‏‏DATA144 - kanory.mdb

مشاركة من الاساتذه : طريقة اخرى تمكنك من اختيار مخازن بعينها لتظهر في التقرير ..... جرب ووافينا بالنتيجة ... ‏‏DATA144 - kanory.mdb

جرب هذا الكود ... Like "*" & [Forms]![SearchF]![k].[Text] & "*"

اخي الكريم منكم وبكم نتعلم الابداع

وهذه طريقة اخرى مشاركة مع استاذي الفاضل @kha9009lid وهي عن طريق انشاء جدول وفرز عمليات كل الموظفين من الجدول المعطى ثم عرضها عن طريق استعلام تجميع ميزة هذه الطريقة انها لا تتقيد بعدد الموظفين الذين يشتركون في العملية ( يعنى ممكن مشاركة العملية عدد لا حصر له من الموظفي ... اثنين أو 100 ) وهذا هو الكود المستخدم DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table3" DoCmd.SetWarnings True Dim rstS As DAO.Recordset Dim rstD As DAO.Recordset Dim x() As String Dim i As Long Set rstS = CurrentDb.OpenRecordset("Select * From [Table1]") Set rstD = CurrentDb.OpenRecordset("Select * From Table3") DoCmd.Hourglass True Do While Not rstS.EOF x = Split(rstS![الاسم], "-") For i = LBound(x) To UBound(x) rstD.AddNew rstD!عدد_العمليات = rstS![عدد_العمليات] rstD!الاسم = Trim(x(i)) rstD.Update Next i rstS.MoveNext Loop rstS.Close: Set rstS = Nothing rstD.Close: Set rstD = Nothing DoCmd.Hourglass False Me.Requery Exit Sub op.accdb

هل هناك جدول اخر لاسماء الموظفين غير هذا الجدول ؟؟؟؟ ممكن تزودنا به

طيب جرب المرفق .... kan_761.accdb

وعليكم السلام ورحمة الله وبركاته فكرة لك أن اردت جعل الجهاز المعار لا يظهر من اساسة من ضمن الاجهزة المعارة يعني ( الجهاز المسلم للموظف لا يظهر في القائمة حتى يتم تسليمة ) بهذا الشكل تقل عدد الاجخزة بدل اختيارها وظهور رسالة ثم تعيد اختيار جهاز اخر .... IT_v1_0001.rar

هههههه ... البرمجة تعلم الصبر

فقط احذف هذا من الكود لديك ... Me.Requery

امين واياك اخي الكريم .... انما انا طالب علم بارك الله فيك ... الحمد لله رب العالمين ... بالتوفيق اخي الفاضل ...

يا اخي المفروض تضغ مثالك حتى نعرف المشكلة بالضبط .... على كل حال انظر المرفق لا يتغير التنسيق ...... tt1.mdb

تفضل ..... الصفوف.accdb

وضح ايش المشكلة .... الصلاحيات شغالة ...

يعطيك العافيه اخي @أبو إبراهيم الغامدي طريقة رائعه و استاذ قدير ..... بارك الله فيك وفي وقتك

احسن الله اليك استاذي الغالي @احمد الفلاحجي واياك .... بارك الله فيك ....

تفضل -------->>>>>> Database_kan.accdb

مشكور حبيبنا @jjafferr بارك الله فيك ... رائع دائما ..

طبعا الرسالة .. حتى تحمي عمليات الدخول للنموذج بدون تسجيل .... لكن لتعديل التصميم انظر الصورة

جرب المرفق بعد التعديل ..... الان لايمكن تعديل اليوزر من نفس اليوزر دون الحاجة للدخول بيوزر اخر كيف يعني تغير في النموذج ...؟؟ ما فهمت عليك ؟؟؟ فصدك تغير التصميم ؟؟؟ prog_قاعدة البيانات الشهادات المدرسية 02.accdb