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

[nogom]

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

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

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

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

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

شو الحل

 

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

 

وشكرا لكم

 

تم تعديل يوليو 17, 2018 بواسطه nogom

[nogom]

للرفع

[nogom]

للرفع

[Hamdi Edlbi-khalf]

بالنسبة للتكرار 

استخدم الدالة

Dcount .

IF DCOUNT( , , ) >1 THEN 
****
end if 

 

تم تعديل يوليو 19, 2018 بواسطه Khalf

[nogom]

4 ساعات مضت, Khalf said:

بالنسبة للتكرار 

استخدم الدالة

Dcount .

IF DCOUNT( , , ) >1 THEN 
****
end if 

 

الله يعطيك العافية ممكن توضحلي أكثر

 

[Hamdi Edlbi-khalf]

مرحباً

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

استخدم 

Dcount 

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

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

[nogom]

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

مرحباً

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

استخدم 

Dcount 

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

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

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

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

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

[Hamdi Edlbi-khalf]

 

الكود ينفع و لكن عليك  استبدال الأسماء  

[عبد اللطيف سلوم]

في ١٧‏/٧‏/٢٠١٨ 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
 

[عبد الفتاح كيرة]

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

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

[nogom]

12 ساعات مضت, عبد الفتاح كيرة 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 اسم جدولك

بالتوفيق

[nogom]

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

بالتوفيق

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