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

السلام عليكم مشاركه مع اخى العزيز @Foksh بطريقه اخرى بالتوفيق test_1.accdb

اعتقد انك كررت طلبك ولكن بتغيير النموذج وأشياء بسيطة .. لكن تفضل هذا طلبك بطريقة بدائية بسيطة test.accdb

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

السلام عليكم قاعدة التطبيق تم عملها على أكسس 2003 وهى تعمل أيضاً على أى أكسس حتى 2024 أكواد القاعدة تحتوى على الكثير والكثير من الأفكار والحيل الرائعة لمحترفى أعضاء المنتدى منهم أبو هادى والأخت زهرة وسيد عبدالعال وابو خليل وغيرهم من الأحباء القدامى والجدد لا أدعى أن البرنامج قد حقق الكثير من أهدافه ، لكنه أرضى كل مدرسة هنا قامت باستخدامه الرقم السري للدخول " 1 " ويمكن تغييره فى الإعدادات وإليكم بعض الصور لشاشاته تحياتى لجميع أعضاء أوفيسنا ، والشكر الكبير لهذا المنتدى العريق بيانات المدرسين.rar

وأنتم كذلك ...

إذا تريدها للعرض فقط فسأصمم لك دالة تستدعى من خلال استعلام.

جرب تجعل تنسيق الحقل General Number

وهو كذلك اخي الكريم - هذا هو المطلوب بالضبط جزاك الله كل الخير ألف شكر وامتنان

وعليكم السلام اتفضل ان شاء الله يكون ما تريد BASEK_1.accdb

سلمت يداك أخى الكريم وان شاء الله يستفيد منه اخواننا المدرسين

يسعدنا أخي @محمد نوح أننا إستطعنا مساعدتك

يعطيك العافية على مجهودك الرائع ولكن وجدت ثغرة اثناء تجربة الملف وهي من الممكن حذف محتويات الخلية بالطرية التالية: 1 تحديد الخلية 2 الضغط على مفتاح Backspace 3 ثم الضغط على Delete 4 الضغط على Enter 5 ثم الضغط على Delete مرة اخرى Protect_without Protect.xlsm

تم التعديل على الكود لمنع هذا الشي Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:F12")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub

السلام عليكم لدي حقل باسم FR توجد مشكلة قمت بعمل تنسيق للرقم من خلال الجدول لكن المشكلة ظهور نقطة بعد الرقم اذا لم يكن الرقم عشري كيف اتخلص من ظهور هذة النقطة في نهاية الحقل مع ابقاء نتيجة البيانات باي طريقة ممكنة وجزاكم الله خير الجزاء SS.accdb