عندى برنامج منها لدى اربع حقول اسم+ اسم الاب+ اسم الجد
عملت لهم حقل غير منظم تحت اسم الاسم الرباعي اى مجموع الاسماء يظهر في حقل الاسم الرباعي
المطلوب .. كيف اعرف باني لا ادرج اسما مكررا
مهم جدا
تكرار
مغلق
المسلم من سلم الناس من لسانه ويده
مشكور والف شكر اخي starnoor2000
لكن هل ممكن تعطيني الفكرة ( الشرح) بالنسبة للاستعلام والفورم كيف يختفي الحقل الذى في اعلى الاسم في حالة العرض
مرحبا بك أخي الكريم ،،،
بالنسبة للاستعلام ( q1 ) ،،، عملت به حقلا يضم ( الاسم والاول + اسم الاب + اسم الجد + اسم العائلة ) وقد أعطيته إسم ( name ) .
في النموذج ( f ) أنشأت حقلا ( مربع نص غير منضم ) ،، بإسم ( m ) حتى يأتي لي بالاسم الكامل من الاستعلام ( q1 ) ،، وذلك عند إدخال البيانات بالكود :
=DLookUp("[name]";"q1";"[name]=n")عند الإدخال لاسم معين يقوم بتجميعه في الحقل ( name ) ،،، وعند عملية حفظ السجل يقوم بمقارنة ( name ) بالحقل الغير منضم ( m ) ،،، فعندما يتساوى الاثنان يقوم بعرض رسالة بأن السجل مكرر ،،، ثم يتراجع عن الحفظ ،،، الكود هو :
If IsNull(m) Then DoCmd.GoToRecord , , acNewRec a.SetFocus Else MsgBox "عفواً ،،، هذا السجل مكرر ", vbOKOnly, "سجل مكرر" Me.Undo a.SetFocus End If
إقتباس
اقتباسكيف يختفي الحقل الذى في اعلى الاسم في حالة العرض
تصفح خصائص هذا الحقل ،،، سوف تجد خاصية ( مرئي ) تأخذ القيمة ( لا ) ،،، أي عدم رؤية هذا الحقل في حال العرض ,,,,
أرجو أن أكون وفقت لتوصيل الفكرة
مع خالص تحياتي
المسلم من سلم الناس من لسانه ويده
اتعبتك كثيرا وتحملني اخيstarnoor2000
جزاك الله خيرا
الفكرة واضحة لكن عندى مشكلة الكود كيف اضيفه للحقل (الغير منضم)
واين( المشكلة انا ضغيف في الاكواد)
تحملني
وشكرا
مرحبا بك أخي الكريم
مربع النص ( m ) ،،، تضع كوده في ( مصدر عنصر التحكم ) للحقل ،،، وكوده :
=DLookUp("[name]";"q1";"[name]=n")وفي الزر ( إضافة ) تضع الكود الاخر :
If IsNull(m) Then DoCmd.GoToRecord , , acNewRec a.SetFocus Else MsgBox "عفواً ،،، هذا السجل مكرر ", vbOKOnly, "سجل مكرر" Me.Undo a.SetFocus End If
مع خالص تحياتي
المسلم من سلم الناس من لسانه ويده
هذا الموضوع مغلق.