إخواني جزاكم الله خيراً هل ممكن في النماذج الفرعية عدم التكرار كما في المثال المرفق عدم تكرار رقم الشركة
[تنبيه - عنوان غير مناسب : ]نموذج فرعي
الأخ الكريم/الأخت الكريمة
السلام عليكم ورحمة الله وبركاته
مرحباً بكم في منتدى الفريق العربي للبرمجة
نود تنبيهك أن العنوان غير مناسب.
الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.
وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!
قواعد المشاركة
شاكرين لكم حُسن تعاونكم
جزاك الله خيراً لم أقصد ذلك ولكن نسياناً مني ويا ليت تغير العنوان الى عدم التكرار في النماذج الفرعية
لا يوجد حل ...
اذا كان لا يوجد حل قولو ما فيه حل
ماشاء الله عليك الله يحفظك من كل شر ومن كل عين الله يجزاك الجنه ويجعله في موازين حسناتك
معليش أتعبتك معي تحمليني وكل ما اسوية من برامج احتسب الأجر من الله
الله لا يحرمك الأجر
يا ليت توضحي بالتفصيل حالوت اطبقة على برنامج ثاني ولكن لم تنفع وجزيت خيراً
في نموذج شركات الفرعي وفي مربع التحرير والسرد الخاص برقم الشركات المعمدة وعند حدث قبل التحديث نضع هذا الكود
Private Sub رقم_الشركة_المعمدة_BeforeUpdate(Cancel As Integer)
If DCount("[رقم الشركة المعمدة]", "شركة", "[رقم التسلسل]=" & Forms![دعوات]![رقم التسلسل] & "AND [رقم الشركة المعمدة]=" & Me![رقم الشركة المعمدة]) > 0 Then
MsgBox " عذرا اخي الكريم رقم الشركة المعمدة مكرر ", vbCritical, "مكرر"
Me.Undo
End If
End Subبالتوفيق
المرفقات
بارك الله فيك لم أقصد هذا انما اقصد شرح الحدث نفسه
أ
ي مثلاً
( "AND [رقم الشركة المعمدة]=" & Me![رقم الشركة المعمدة]) > 0 Then )
ماذا تعني جزاكي الله خيراً
تم تعديل هذه المشاركة بواسطة إبراهيم عبدالله في 12 سبتمبر 2012 في 10:55
إبراهيم عبدالله كتب:أ
ي مثلاً
( "AND [رقم الشركة المعمدة]=" & Me![رقم الشركة المعمدة]) > 0 Then )
ماذا تعني جزاكي الله خيراً
الحقل الأول : [رقم الشركة المعمدة] هو الحقل الموجود في استعلام ( شركة )
الحقل الثاني : [رقم الشركة المعمدة] هو الموجود في النموذج بدلالة عبارة Me اي النموذج الحالي
بالتوفيق
أخت زهرة بارك الله فيك هل الحدث يعتمد على الجداول + النماذج + الاستعلام جميعاً أو على الجداول + النماذج .أو على النماذج + الاستعلام
و جزاك الله خيراً ورزقك الذرية الصالحة
تم تعديل هذه المشاركة بواسطة إبراهيم عبدالله في 12 سبتمبر 2012 في 13:35
اخي الفاضل : ابراهيم
من الخطأ كتابة الحقول باللغة العربية فمن الواجب كتابتها باللغة الإنجليزية حتى يسهل عليك التعامل معها عند وضع الأكواد البرمجية والسبب بارك الله بك ان حروف اللغة العربية تقوم بعكس الكود فيتداخل مع بعضه البعض .
ليس شرطا ان تكون ملم 100% بمصطلحات الحقول باللغة الإنجليزية ولكن تستطيع التعبير عن الحقول العربية اذا دعت الحاجة بواسطة حروف انجليزية مثل حقل ( رقم الصرف ) نكتبه هكذا بحروف انجليزيه ( Rakm_Sarf ) وينطق رقم صرف
ايضا يجب التفرقة بين الحقل الرقمي والحقل النصي في الجدول لأن لكل حقل معامل خاص مع دوال التجميع
لاحظ معي الفرق بين لو تم استخدام الحقول العربية في الكود وبين لو تم استخدام الحقول الإنجليزية سنلاحظ ان الكود يتم كتابته بسهوله في الحقول الإنجليزية بينما في اللغة العربية نجد صعوبه بالغة في تعديل اماكن الحقول وتحتاج الى خبره كافية لمثل هذه الأمور
الكود حقوله عربية
Private Sub رقم_الصنف_BeforeUpdate(Cancel As Integer)
If DCount("[رقم الصنف]", "اخراج2", "[رقم الصنف]=" & Me![رقم الصنف] & "AND [رقم مستند الصرف]='" & Forms![اخراج1]![رقم مستند الصرف] & "'") > 0 Then
MsgBox " عذرا اخي الكريم .. رقم الصنف مكرر ", vbCritical, "مكرر"
Me.Undo
End Ifالكود : حقوله انجليزية
Private Sub Rakm_Sanf_BeforeUpdate(Cancel As Integer)
If DCount("[Rakm Sanf]", "Ekhraj2", "[Rakm Sanf]=" & Me![Rakm Sanf] & "AND [Rakm Mostand Sarf]='" & Forms![Ekhraj1]![Rakm Mostand Sarf] & "'") > 0 Then
MsgBox " عذرا اخي الكريم .. رقم الصنف مكرر ", vbCritical, "مكرر"
Me.Undo
End Ifملفك بعد التعديل
بالتوفيق
المرفقات
بارك الله فيك و جعله في موازين حسناتك
تم تعديل هذه المشاركة بواسطة إبراهيم عبدالله في 13 سبتمبر 2012 في 06:51
أخت زهرة هل بالإمكان جعل عدم التكرر على تاريخ مستند الصرف ورقم الجهه اذا أمكن تطبيقة على المثال السابق وجزاك الله خير الجزاء
إبراهيم عبدالله كتب:أخت زهرة هل بالإمكان جعل عدم التكرر على تاريخ مستند الصرف ورقم الجهه اذا أمكن تطبيقة على المثال السابق وجزاك الله خير الجزاء
تفضل اخي الكريم
بالتوفيق
أخت زهرة لم يعمل بشكل صحيح جربي ادخال أكثر رقم مستند صرف وكل مستند يحتوي أكثر من رقم صنف
بارك الله في فيك
أخت زهرة ليس هذا المطلوب .المطلوب عدم التكرار اذا كان بنفس التاريخ ورقم الجهه معاً انظري المثال المرفق( رقم مستند الصرف 2) رقم الصنف مكرر.
بارك الله في فيك
الله يجزاك الجنه ويجعله في موازين حسناتك