kanory

وهذه طريقة اخرى مشاركة مع استاذي الفاضل @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

ادخل باسم اليوزر 1 والباس 1 وعدل بيانات kanory لانه يرفض تعديل اليوزر اذا دخل به

تابع الصور

تابع الصور

تفضل ربما هذا طلبك اسم المستخدم هناك kanory و 1 الباس للجميع هو 1 ويمكن تعديل اليوزر والباس من خلال النموذج prog_قاعدة البيانات الشهادات المدرسية 02.accdb

جزاك الله خير اخي @أبو عبدالله الحلوانى كتب الله اجرك

انا كنت اتحدث عن هذا المرفق بارك الله فيك

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

بس لاحظ اخي الكريم كلمة قسط قرض خاص بعميل وكلمة سمسارة لعميل اخر ولا يوجد في سجلات العميل الاول كلمة سمسارة .. هل تريد اضافتها للجميع مثلا

سؤال غير مفهوم ... انظر الصورة ماذا تريد هل تريد دمج الحقل المشار الية بالاحمر وعمل جمع لبيقة الحقل ؟؟؟؟؟؟؟