اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طريقة عمل كود لمنع التكرار


nogom

الردود الموصى بها

عندي فورم في مجموعة من الحقول 

وعندي عقل هو اساسا مفتاح اساسي في الجدول طبعا لا يوجد فيه تكرار

اريد عند كتابة اي شي بالحقل قبل الانتقال للحقل التالي تظهر الرسالة انو مكرر

بالاضافة انو لو ماكتب شي بالحقل تظهر رسالة انو لازم يكتب ولا يتجاوز الحقل لحتى يكتب

انا سويت كود انو لا يتجاوز الحقل وتمام لكن لو ضغطت على زر الهوم يلي يرجعني للفورم يلي قبله ولو لغيت كل الكتابة تظهر الرسالة انو الحقل فاضي 

شو الحل

 

بالاضافة عندي حقل تاريخ كيف اغير ضيفة الرسالة الخاصة بالتاريخ 

 

وشكرا لكم

 

Screenshot_7.jpg

تم تعديل بواسطه nogom
رابط هذا التعليق
شارك

مرحباً

لأجل معرفة تكرار قيمة في حقل 

استخدم 

Dcount 

IF DCOUNT( الشروط ، اسم الجدول ، اسم الحقل)
> 0 THEN
النتيجة الذي ترغب بها
END IF 

و اعتذر فلست ضليعا. كفاية و لكن هذه الفكرة 

رابط هذا التعليق
شارك

في ٢٠‏/٧‏/٢٠١٨ at 00:57, Khalf said:

مرحباً

لأجل معرفة تكرار قيمة في حقل 

استخدم 

Dcount 


IF DCOUNT( الشروط ، اسم الجدول ، اسم الحقل)
> 0 THEN
النتيجة الذي ترغب بها
END IF 

و اعتذر فلست ضليعا. كفاية و لكن هذه الفكرة 

الله يعطيك العافية يارب ولكن

الحقل عندي عبارة عن اسماء 

هذا الكود فعال ؟

رابط هذا التعليق
شارك

في ١٧‏/٧‏/٢٠١٨ at 09:44, nogom said:

عندي فورم في مجموعة من الحقول 

وعندي عقل هو اساسا مفتاح اساسي في الجدول طبعا لا يوجد فيه تكرار

اريد عند كتابة اي شي بالحقل قبل الانتقال للحقل التالي تظهر الرسالة انو مكرر

بالاضافة انو لو ماكتب شي بالحقل تظهر رسالة انو لازم يكتب ولا يتجاوز الحقل لحتى يكتب

انا سويت كود انو لا يتجاوز الحقل وتمام لكن لو ضغطت على زر الهوم يلي يرجعني للفورم يلي قبله ولو لغيت كل الكتابة تظهر الرسالة انو الحقل فاضي 

شو الحل

 

بالاضافة عندي حقل تاريخ كيف اغير ضيفة الرسالة الخاصة بالتاريخ 

 

وشكرا لكم

 

Screenshot_7.jpg

اول اشي حقل letter number   لازم تعمله بالجدول  مطلوب

عند التكرار بالنموذج تطلع رسالة خطأ

 

في النوذج -- اجراء حدث عند الخطأ  واكتب الكود التالي 

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
Response = acDataErrContinue
MsgBox "هذه المادة موجودة بالفعل في هذه الفاتورة, يرجى التعديل", vbCritical, "تنبيه"
End If
End Sub
 

  • Like 1
رابط هذا التعليق
شارك

12 ساعات مضت, عبد الفتاح كيرة said:

لماذا لا تغير فى خاصية الحقل

التكرار غير مقبول

انامسويها الخاصية في الحقل

ولكن ما رح تجيك الرسالة انو متكرر لحد ما يخلص تسجيل بيانات 

انا اريد على نفس الحقل مجرد يكتب شي موجود مايتجاوز الحقل

  • Like 1
رابط هذا التعليق
شارك

إذن

فى حدث قبل التحديث لهذا الحقل ضع ما يلى

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 اسم جدولك

بالتوفيق

رابط هذا التعليق
شارك

في ٢٣‏/٧‏/٢٠١٨ 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 اسم جدولك

بالتوفيق

شكرا لك جاريالتجربة

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information