mrnooo2000

شكرا أخى العزيز بالفعل فكرة أكثر من رائعة

بالتأكيد أخى ممكن ذللك فقط احذف الجزء الاخير من الكود من بداية else و غير خصائص الحقلين الى locked = yes

تفضل أخى ماتريد ترجمة عربي انجليزي.rar

تفضل أخى اتمنى ان يكون مذا ما تريد بيانات المستخدم.rar

بعد اذن اساتذتنا يمكن استخدام التنسيق الشرطى ليعطى ما تريد بشكل أفضل كما فى المرفق color-UP.rar

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

اسف أخى على تأخرى فى الرد عليك و لكن ذلك كان بسبب ظروف خارجة عن ارادتى لا أعلم ان كانت مازلت فى حاجة الى ردى أم لا و لكن فى المرفق ماتريد و أرجو أن يفيد اسف مرة أخرى rem.rar

CustomerName="" بعد الرسالة

تفضل ما تريد فى حدث بعد التحديث للاسم ضع هذا الكود Private Sub CustomerName_AfterUpdate() If DCount("[CustomerName]", "table1", "[CustomerName]='" & CustomerName & "'") > 0 Then MsgBox "ãßÑÑ" Else Text8 = CustomerName End If End Sub

تفضل اخى ارجو ان يكون هذا ما تريد st_gheyab.rar

اذا أخى ارفق مثال بسيط و سيتم التعديل غليه ان شاء الله

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

بالتأكيد أخى و انا لم اقصد الا التنويه

اذا كان الامر كذلك فاليك هذا المرفق ارجو ان يفى بالغرض تم اضافة جدول جديد و تعديل الاستعلام و التقرير و النموذج ملحوظة يمكنك مسح بيانات الجدول فى نهاية اليوم اذا كنت لا تريد الاحتفاظ بها New_Microsoft_Office_Access_Application_2_.rar

و لماذا زر أمر أخى و اذا اردت الزر فالكود سهل

تفضل أخى ادخل البيانات و سيتم الترتيب بمجرد ادخال الصف New_Microsoft_Office_Access_Application.rar

هناك خطأ ما فى الكود الرجاء ارسال الكود

و فيك أخت روان ............... نورك يغطى على الجميع

و عند تكبير الشاشة

لا ادرى و لكن هذا ما يظهر عندى لا أعرف ما السبب