مساعدة في كود منع التكرار

[Radwan0]

السلام عليكم اخواني الكرام

استعمل الكود التالي لمنع التكرار 

 

Private Sub strStudentNumber_BeforeUpdate(Cancel As Integer)

'*********************************
'Code sample courtesy of srfreeman
'*********************************

    Dim SID As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset

    Set rsc = Me.RecordsetClone

    SID = Me.strStudentNumber.Value
    stLinkCriteria = "[strStudentNumber]=" & "'" & SID & "'"

    'Check StudentDetails table for duplicate StudentNumber
    If DCount("strStudentNumber", "tblStudentDetails", _
              stLinkCriteria) > 0 Then
        'Undo duplicate entry
        Me.Undo
        'Message box warning of duplication
        MsgBox "Warning Student Number " _
             & SID & " has already been entered." _
             & vbCr & vbCr & "You will now been taken to the record.", _
               vbInformation, "Duplicate Information"
        'Go to record of original Student Number
        rsc.FindFirst stLinkCriteria
        Me.Bookmark = rsc.Bookmark
    End If

    Set rsc = Nothing
End Sub

 

حصلت معي مشكلتين :

1) عند ادخال قيمة مكرره صحيح انه لا يحفظ البيانات لكن المشكلة انه يقوم بحفظ الترقيم التلقائي

لنفرض الان انا موجود عند الطالب رقمه 500 , عند ادخال قيمة مكررة لا يحفظ البيانات لكن عند الدخول مرة اخرى وتسجيل طالب اخر فان الترقيم التلقائي يصبح 502 وليس 501

2) عند ادخال قيمة مكررة فان الكود يقوم بأخذي الى السجل الذي يحتوي على القيمة المكررة

كيف بالامكان ان يقوم بفتح نموذج frmstudent وان ياخذني الى القيمة ذاتها 

 

اسف على الاطالة

[Eng.Qassim]

وعليكم السلام

استخدام الترقيم التلقائي  خاص لل access فقط. وهو غير قابل للتعديل الا في حالة الضغط والاصلاح

يجب عليك استخدام حقل رقم إذا كنت تريد الاحتفاظ بالتسلسل.وتكون القيمة الافتراضية :

 

=DMax("[strStudentNumber]","tblStudentDetails")+1

[Radwan0]

اخي قاسم بارك الله بك

هل من خلال الكود استطيع منع التعديل على الترقيم التلقائي في حال لم يتم حفظ السجل ؟

[Eng.Qassim]

6 ساعات مضت, Radwan0 said:

منع التعديل على الترقيم التلقائي في حال لم يتم حفظ السجل

اذا اردت الحفاظ على الترقيم التلقائي..اعمل نص غير منظم في النموذج ..من خلال زر الحفظ سيتم البحث عن نفس الاسم او الرقم للطالب في الجدول..فاذا كان مكررا فلن يتم الحفظ ولن يكون هناك ترقيم تلقائي جديد.....استخدم الكود التالي في زر الحفظ

Private Sub btnSave_Click()
    Dim strStudentName As String
    strStudentName = Me.txtStudent.Value
    
    ' معرفة اذا كان اسم الطالب موجود مسبقا
    If Not IsNull(DLookup("studentName", "tblStudentDetails", "studentName='" & strStudentName & "'")) Then
        MsgBox "اسم الطالب موجود مسبقا", vbInformation, " تكرار"
        Me.txtStudent.SetFocus
        Me.txtStudent.Text = ""
        Exit Sub
     Else
         CurrentDb.Execute "INSERT INTO tblStudentDetails (studentName) VALUES ('" & strStudentName & "')"
    
        MsgBox "تم التسجيل بنجاح.", vbInformation, "تسجيل"
         Me.txtStudent.SetFocus
        Me.txtStudent.Text = ""

    End If
   

End Sub

 

[Radwan0]

@Eng.Qassim اخي العزيز قاسم 

اسعد الله اوقاتك

هل بالامكان التطبيق على هذه القاعدة رجاءا ولا امراً عليك

 

لم افلح في ذلك للاسف الشديد

Database1.accdb

[Ezril]

كود DAO يحسب Dcount في الجدول Find للبحث للقيمة اذا كانت مطابقة فقط ولا يوجد في الكود ادراج جديد مثل ما قالك @Eng.Qassim فورم غير منظم وعدل في الكود DAO قديم ثلاث ارباع الاجابات منه فقط اضافة استعلام الحاق عند عدم تطابق للجديد لا تنوع Dlookup ولا لها حاجه اضافة حقل ID رقم خلها ترقيم تلقائي احتمال يربط بكره 

عند اضافة فورم لاضافة طالب جديد غير منظم

 حقل اسم طالب وحقل اسم الاب وحقل اسم الجد وحقل اسم العائلة الكل غير منظم لحذف Len()   المسافات الزائده ثم جمع بحقل واحد غير منظم حتى لا تتم الاضافة جديد بسابق بسبب المسافة او اعادة الكتابة بدل حرف ه ة او كتابة حرف بالخطأه والافضل اضافة رقم الهوية ومصدر البحث فقط وتكون بسليم 

[ابوخليل]

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

كود DAO يحسب Dcount في الجدول Find للبحث للقيمة اذا كانت مطابقة فقط ولا يوجد في الكود ادراج جديد مثل ما قالك فورم غير منظم وعدل في الكود DAO قديم ثلاث ارباع الاجابات منه فقط اضافة استعلام الحاق عند عدم تطابق للجديد لا تنوع Dlookup ولا لها حاجه اضافة حقل ID رقم خلها ترقيم تلقائي احتمال يربط بكره 

عند اضافة فورم لاضافة طالب جديد غير منظم

 حقل اسم طالب وحقل اسم الاب وحقل اسم الجد وحقل اسم العائلة الكل غير منظم لحذف Len()   المسافات الزائده ثم جمع بحقل واحد غير منظم حتى لا تتم الاضافة جديد بسابق بسبب المسافة او اعادة الكتابة بدل حرف ه ة او كتابة حرف بالخطأه والافضل اضافة رقم الهوية ومصدر البحث فقط وتكون بسليم 

منظم : من التنظيم وهو الترتيب

منضم : من الانضمام وهو الارتباط

للتصحيح : تكتب : غير منضم  .. و منضم ..... وليس منظم

[متقاعد]

3 ساعات مضت, ابوخليل said:

منظم : من التنظيم وهو الترتيب

 مُنظَّم وهو ما نظم اسم مفعول ويصاغ من الفعل غير الثلاثي بابدال حرف المضارعة بالميم المضمومة وفتح ما قبل الاخر

مُنظِّم وهو من يقوم بالتنظيم اي اسم فاعل ويصاغ من غير الثلاثي بابدال حرف المضارعة بالميم المضمومة وكسر ماقبل الاخر

وزنة المضارع اسم فاعل ... من غير ذي الثلاث كالمواصل
مع كسر متلوّ الأخير مطلقا ... وضمّ ميم زائدٍ قد سبقا
وإن فتحت منه ما كان انكسر ... صار اسم مفعول ٍ كمثل المنتظر

3 ساعات مضت, ابوخليل said:

منضم : من الانضمام وهو الارتباط

للتصحيح : تكتب : غير منضم  .. و منضم ..... وليس منظم

✔️

[Ezril]

فقدة التركيز بسيطه 

 لم يتغير المعنى ( ظ ،  ض ) في الكلمة لمعرفة التنسيق واشكركم على التعقيب 

[متقاعد]

54 دقائق مضت, Ezril said:

فقدة التركيز بسيطه

فقدت وليس فقدة لمعرفة الفرق بين التاء المربوطة والتاء المفتوحة

التاء المفتوحة  (ت) هي التاء التي تلفظ تاءً سواء خلال الكلام إذا تحركت أو عند الوقف إذا سكنت، فلفظها لا يتغير في كلا الحالين. التاء المربوطة (ة - ـة) هي التاء التي تلفظ تاءً متحرّكة خلال الكلام إذا ما تحركت، وتلفظ هاء عند الوقف الساكن

بسيطة وليست بسيطه

😄

[Ezril]

هههههههه الحين استخدم البحث بالاسم لاضافة جديد 

تكتب بسيطه  بالهاء وليست بسيطة عند كتابة رسائل لا يدقق بالهمزه لكثرة المحادثات  

خَلِّ الذُنُوبَ صَغِيرَها، وَكَبِيرَهَا؛ ذَاكَ التُّقَى!
وَاصْنَعْ كَمَاشٍ فَوْقَ أرْضِ الشَّوْكِ يَحْذَرُ مَا يَرَى؛
لَا تَحْقِرَنَّ صَغِيرَةً إِنَّ الْجِبَالَ مِنَ الْحَصَى!

 

 

[متقاعد]

9 دقائق مضت, Ezril said:

تكتب بسيطه  بالهاء وليست بسيطة عند كتابة رسائل لا يدقق بالهمزه لكثرة المحادثات  

بل تكتب بسيطة بتاء مربوطة

9 دقائق مضت, Ezril said:

لَا تَحْقِرَنَّ صَغِيرَةً إِنَّ الْجِبَالَ مِنَ الْحَصَى!

هنا ☝️ كتبت بشكل صحيح

على كل حال هي مزحة والا فالكل يخطئ ويصيب

مع الاعتذار لصاحب الموضوع

والله الموفق

[Eng.Qassim]

ممكن التحقق في البداية من وجود اسم الطالب بحقل غير منضم ..ثم اكمال بقية الحقول

 

Students.rar

[متقاعد]

1 ساعه مضت, Eng.Qassim said:

ممكن التحقق في البداية من وجود اسم الطالب بحقل غير منضم ..ثم اكمال بقية الحقول

ياعم قاسم الملف المرفق من مشاركة سابقة لك وليس له علاقة بالموضوع شكلك مازلت صائم 😄

الحقيقة ان الحل من وجهة نظري كما اشرت في ردك السابق استخدام ترقيم مخصص

في 11‏/4‏/2023 at 00:18, Eng.Qassim said:

=DMax("[strStudentNumber]","tblStudentDetails")+1

ولكن لابد من استخدام nz

تحياتي

[Eng.Qassim]

41 دقائق مضت, متقاعد said:

الملف المرفق من مشاركة سابقة لك وليس له علاقة بالموضوع شكلك مازلت صائم

سبب الشيخوخة وليس الصيام 😄

42 دقائق مضت, متقاعد said:

=DMax("[strStudentNumber]","tblStudentDetails")+1

هو كان اقتراحي من البداية ..بس الاخ صاحب الموضوع اراد الابقاء على الترقيم التلقائي ..لا اعرف لماذا ؟

43 دقائق مضت, متقاعد said:

الملف المرفق من مشاركة سابقة

هذه المرة الاولى اللي اعدل فيها على الملف 🤔

[متقاعد]

11 دقائق مضت, Eng.Qassim said:

هذه المرة الاولى اللي اعدل فيها على الملف 🤔

لا غير صحيح

هذه المشاركة السابقة ⬇️

اقتباس

 

 

[Ezril]

حقل رقم المخصص يفضل مفتاح اساسي تأكد فحالة الحذف هو رابط علاقة مع جدول آخر من غير اختيار خصائص العلاق حذف متتالي فنستعمل استعلامات حذف عند الحذف بترتيب عكسي 

بسبب اذا حذفة آخر سجل او سجلات عند الاضافة بنفس رقم او الارقام تأكد ان تم حذف عكسي بعلاقة جدول بجدول آخر 

 الاضافة بآخر رقم Dmax +1 ولا اعتقد اضافة Nz(0)  لان حقل رقم افتراضي 0 وبنموذج غير منضم 

تقبل الله منكم الصيام وشافاكم 

 

 

[متقاعد]

12 دقائق مضت, Ezril said:

 الاضافة بآخر رقم Dmax +1 ولا اعتقد اضافة Nz(0)  لان حقل رقم افتراضي 0 وبنموذج غير منضم 

صحيح اذا كان حقل رقمي

مع ذلك اعتدنا في كثير من المشاركات يستخدم الترقيم المخصص مع حقول نصيه لغرض ترقيم سنوي او شهري او ...

في جميع الاحول وجود الدالة nz لن يسبب اي مشكلة

 

[Eng.Qassim]

2 ساعات مضت, متقاعد said:

لا غير صحيح

استاذ خالد ..هل فتحت الملف؟

انا غيرت اسم الملف من Database1 الى students

الموضوع مختلف تماما ..والله شكيت بحالي اليوم ☺️

[متقاعد]

5 دقائق مضت, Eng.Qassim said:

هل فتحت الملف؟

انا غيرت اسم الملف من Database1 الى students

الموضوع مختلف تماما ..والله شكيت بحالي اليوم ☺️

نعم اخي قاسم الملف المرفق يخص طلب التكرار في الاستعلام

شاهد الصورة المرفقة

 

[Eng.Qassim]

10 ساعات مضت, متقاعد said:

المرفق يخص طلب التكرار في الاستعلام

والله صحيح ..بين علي الكبر

كل هذا بسبب عدم انتباهي لحرف ال s...اعتذر كثيرا

 

student.rar

[Ezril]

محاوله بمرفق 

فحص قيمتين لاسم رباعي ورقم الهويه 

بعض تعقيبات المتوقعه @متقاعد 

البعض يعتقد ان مشروع ذكاء الاصطناعي يكفي في بحث عن تحديثات وتطويرها واستكمالها والبعد عن المشاركات لبحثها بطرح جديد وعند فترة تطوير ذكاء الاصطناعي

وقت تغير وتوجيه بالمخططات بما ي ليق بمستوى آخر سيكون بعد وقت اكثر طرح اكواد فقط لتصحيح بدل من طرح اجزاء اخرى يعتقد ان تكون فنية 

 البعض لا يجاري هذا تطوير في سابقه ويعتقد ان ساعة قائمة والحقيبه وتذكره زاهبه والعنان الى طريق آخر لم اقصد احد كل على هواه ويعطيك  

تحميل مرفق

 

https://www.mediafire.com/file/c1nx02n70gcjm25/student_%28Chack_X2_For_AddNew%29.rar/file

تم تعديل أبريل 16, 2023 بواسطه Ezril

[متقاعد]

6 دقائق مضت, Ezril said:

بعض تعقيبات المتوقعه @متقاعد 

سوف احمل الملف المرفق

وربما لي عودة للتعقيب 🌹