nogom قام بنشر يوليو 17, 2018 مشاركة قام بنشر يوليو 17, 2018 (معدل) عندي فورم في مجموعة من الحقول وعندي عقل هو اساسا مفتاح اساسي في الجدول طبعا لا يوجد فيه تكرار اريد عند كتابة اي شي بالحقل قبل الانتقال للحقل التالي تظهر الرسالة انو مكرر بالاضافة انو لو ماكتب شي بالحقل تظهر رسالة انو لازم يكتب ولا يتجاوز الحقل لحتى يكتب انا سويت كود انو لا يتجاوز الحقل وتمام لكن لو ضغطت على زر الهوم يلي يرجعني للفورم يلي قبله ولو لغيت كل الكتابة تظهر الرسالة انو الحقل فاضي شو الحل بالاضافة عندي حقل تاريخ كيف اغير ضيفة الرسالة الخاصة بالتاريخ وشكرا لكم تم تعديل يوليو 17, 2018 بواسطه nogom رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 18, 2018 الكاتب مشاركة قام بنشر يوليو 18, 2018 للرفع رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 19, 2018 الكاتب مشاركة قام بنشر يوليو 19, 2018 للرفع رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر يوليو 19, 2018 مشاركة قام بنشر يوليو 19, 2018 (معدل) بالنسبة للتكرار استخدم الدالة Dcount . IF DCOUNT( , , ) >1 THEN **** end if تم تعديل يوليو 19, 2018 بواسطه Khalf 1 رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 19, 2018 الكاتب مشاركة قام بنشر يوليو 19, 2018 4 ساعات مضت, Khalf said: بالنسبة للتكرار استخدم الدالة Dcount . IF DCOUNT( , , ) >1 THEN **** end if الله يعطيك العافية ممكن توضحلي أكثر 1 رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر يوليو 19, 2018 مشاركة قام بنشر يوليو 19, 2018 مرحباً لأجل معرفة تكرار قيمة في حقل استخدم Dcount IF DCOUNT( الشروط ، اسم الجدول ، اسم الحقل) > 0 THEN النتيجة الذي ترغب بها END IF و اعتذر فلست ضليعا. كفاية و لكن هذه الفكرة رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 22, 2018 الكاتب مشاركة قام بنشر يوليو 22, 2018 في ٢٠/٧/٢٠١٨ at 00:57, Khalf said: مرحباً لأجل معرفة تكرار قيمة في حقل استخدم Dcount IF DCOUNT( الشروط ، اسم الجدول ، اسم الحقل) > 0 THEN النتيجة الذي ترغب بها END IF و اعتذر فلست ضليعا. كفاية و لكن هذه الفكرة الله يعطيك العافية يارب ولكن الحقل عندي عبارة عن اسماء هذا الكود فعال ؟ رابط هذا التعليق شارك More sharing options...
Hamdi Edlbi-khalf قام بنشر يوليو 22, 2018 مشاركة قام بنشر يوليو 22, 2018 الكود ينفع و لكن عليك استبدال الأسماء رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يوليو 22, 2018 مشاركة قام بنشر يوليو 22, 2018 في ١٧/٧/٢٠١٨ at 09:44, nogom said: عندي فورم في مجموعة من الحقول وعندي عقل هو اساسا مفتاح اساسي في الجدول طبعا لا يوجد فيه تكرار اريد عند كتابة اي شي بالحقل قبل الانتقال للحقل التالي تظهر الرسالة انو مكرر بالاضافة انو لو ماكتب شي بالحقل تظهر رسالة انو لازم يكتب ولا يتجاوز الحقل لحتى يكتب انا سويت كود انو لا يتجاوز الحقل وتمام لكن لو ضغطت على زر الهوم يلي يرجعني للفورم يلي قبله ولو لغيت كل الكتابة تظهر الرسالة انو الحقل فاضي شو الحل بالاضافة عندي حقل تاريخ كيف اغير ضيفة الرسالة الخاصة بالتاريخ وشكرا لكم اول اشي حقل letter number لازم تعمله بالجدول مطلوب عند التكرار بالنموذج تطلع رسالة خطأ في النوذج -- اجراء حدث عند الخطأ واكتب الكود التالي Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 3022 Then Response = acDataErrContinue MsgBox "هذه المادة موجودة بالفعل في هذه الفاتورة, يرجى التعديل", vbCritical, "تنبيه" End If End Sub 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 22, 2018 مشاركة قام بنشر يوليو 22, 2018 لماذا لا تغير فى خاصية الحقل التكرار غير مقبول رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 23, 2018 الكاتب مشاركة قام بنشر يوليو 23, 2018 12 ساعات مضت, عبد الفتاح كيرة said: لماذا لا تغير فى خاصية الحقل التكرار غير مقبول انامسويها الخاصية في الحقل ولكن ما رح تجيك الرسالة انو متكرر لحد ما يخلص تسجيل بيانات انا اريد على نفس الحقل مجرد يكتب شي موجود مايتجاوز الحقل 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 23, 2018 مشاركة قام بنشر يوليو 23, 2018 إذن فى حدث قبل التحديث لهذا الحقل ضع ما يلى If DCount("madrsa", "[tblmdaress]", "[madrsa]= '" & Me.Madrsa & "'") > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If وإذا كان الحقل رقميا If DCount("madrsa", "[tblmdaress]", "[madrsa]= " & Me.Madrsa ) > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If استبدل ب madrsa اسم الحقل لديك استبدل ب tblmdaress اسم جدولك بالتوفيق رابط هذا التعليق شارك More sharing options...
nogom قام بنشر يوليو 29, 2018 الكاتب مشاركة قام بنشر يوليو 29, 2018 في ٢٣/٧/٢٠١٨ at 13:27, عبد الفتاح كيرة said: إذن فى حدث قبل التحديث لهذا الحقل ضع ما يلى If DCount("madrsa", "[tblmdaress]", "[madrsa]= '" & Me.Madrsa & "'") > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If وإذا كان الحقل رقميا If DCount("madrsa", "[tblmdaress]", "[madrsa]= " & Me.Madrsa ) > 0 Then MsgBox "مدرسة موجودة مسبقا....", , "تنبيه" Cancel = True Me.Undo End If استبدل ب madrsa اسم الحقل لديك استبدل ب tblmdaress اسم جدولك بالتوفيق شكرا لك جاريالتجربة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان