hollow_man

بارك الله فيك شكرا جزيلا

الملف اهو اخي الكريم وشكراً مقدماً 1.rar

السلام عليكم ورحمه الله وبركاته لدي قاعدة بيانات بها أكثر من قائمه منسدلة وتحتوي علي بيانات لا يمكن أضافة او تعديل عليها limit to list ويوجد مربع نصي عند ضغط زر ينشىء جمله من جميع بيانات القوائم المنسدله : والعكس عند الضغط على زر يفرغ جميع محتويات المربع الى النصى إلى القوائم المنسدلة باستخدام mid السؤال هنا عند كتابه اى كلام فى المربع النصي وتفريغه على القوائم يمكن ان تحتوي القوائم على بيانات ليست من القائمه ويقبل حفظها عادى مما سيسبب الكثير من المشكلات فى التقارير هل من حل جزاكم الله خير الجزاء والسلام عليكم ورحمه الله وبركاته

بارك الله فيك وجعله فى ميزان حسانك بس معلش الكود لم يعمل معي اسم الجدول التلاميذ اسم النموذج التلاميذ خانه اسم الطالب ( الاسم) فالمفروض الكود يبقى كده If DCount("[الرقم_القومي_للطالب]", "التلاميذ", "[الرقم_القومي_للطالب]=[forms]![التلاميذ]![الرقم_القومي_للطالب]") ولكنه لايعطي شىء فهل هذا بسبب للكود رقم 3022 الخاص بمنع القيم المكررة وجعله يظهر برساله معينه هل ده يلغى كود حضرتك trap اني عامل وشكرا جزيلا

السلام عليكم ورحمه الله وبركاته السؤال هو لدي خانه تتكون من 14 رقم اذا كان الرقم اقل او اكثر تظهر رساله تفيد الحالة اما اذا الرقم يساوى 14 رقم اريد التاكد من ان الرقم لم يوجد قبل ذلك فى الجدول هذا الكود الى كتبته ولكن هناك خطأ حيث ان الرقم اذا تساوى مع 14 حتى لو جديد يظهر رساله تفيد بان الرقم مكرر مع العلم انه ليس مكرر هل من حل وبارك الله فيكم الكود هو : Dim Answer As Variant If Len(Trim(Me.الرقم_القومي_للطالب)) < 14 Then MsgBox ("عدد الارقام المدخلة اقل من 14 رقم الرجاء اعادة المحاولة") Me.الرقم_القومي_للطالب.SetFocus ElseIf Len(Trim(Me.الرقم_القومي_للطالب)) > 14 Then MsgBox ("عدد الارقام المدخلة اكبر من 14 رقم الرجاء اعادة المحاولة ") Me.الرقم_القومي_للطالب.SetFocus ElseIf Len(Trim(Me.الرقم_القومي_للطالب)) = 14 Then Answer = DLookup("[الرقم_القومي_للطالب]", "التلاميذ", "[الرقم_القومي_للطالب] = '" & Me.الرقم_القومي_للطالب & "'") If Not IsNull(Answer) Then MsgBox "هذا الطالب موجود بالفعل" & vbCrLf & "اما ان الرقم القومي كتب خطأ او انك كتبته خطأ لطالب اخر , استخدم البحث لحل المشكلة.", vbCritical + vbOKOnly + vbDefaultButton1, "سجل مكرر" Cancel = True Me.الرقم_القومي_للطالب.Undo else DoCmd.Save Me.الرقم_القومي_للطالب.BackColor = RGB(222, 229, 192) End If End If