kanory

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

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

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

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

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

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

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

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

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

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

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

تابع الصور

تابع الصور

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

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

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

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

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

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

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

وفيك بارك .... الحمد لله رب العالمين ...

استخدم هذا الكود في الزر لديك .... واعلمنا بالنتيجة ...... Dim i, j As Integer Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("mytable") For j = 1 To WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length - 1 rs.AddNew rs!t1 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(1).innerText rs!t2 = WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(j).cells(2).innerText rs.Update Next MsgBox "تم الاستيراد بنجاح"

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

نعم صحيح اخي .... ما ما حبيت اغير في البرنامج ..... المفروض ما نعتمد على التسلسل الموجود في الجدول .... نعمل مربع نص خاص و نجعله غي منضم ومصدرة =1 بارك الله فيك لا حظ المرفق الجديد للفائدة حتى تكتمل الفكرة تقرير.rar

واياك .... الحمد لله رب العالمين ....