عدم تكرار السجل

[eng aoff]

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

[Khalid Jnb]

السلام عليكم

من خصائص الحقل بالجدول  اجعلها  (نعم (التكرار غير مقبول))

[eng aoff]

شكرا استاذي العزيز ولكن رقم الوارد يكون متشابه يعني مثلا يأتي كتاب وارد من وزارة الصحة ذات العدد 1000 ويأتي كتاب من وزارة اخرى نفس الرقم وفي هذه الحالة سوف يتم التكرار ,,,,المطلوب مطابقة رقم الوارد مع تاريخ الكتاب مع الجهة الوارد منها الكتاب ان كانت البيانات متطابقة عند الادخال تظهر رسالة مثلا الكتاب موجود مسبقاً

[Khalid Jnb]

اخي العزيز

انظر للرابط   https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/

نقس الموضوع 

تم تعديل ديسمبر 27, 2019 بواسطه خالد سيسكو

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

13 دقائق مضت, eng aoff said:

شكرا استاذي العزيز ولكن رقم الوارد يكون متشابه يعني مثلا يأتي كتاب وارد من وزارة الصحة ذات العدد 1000 ويأتي كتاب من وزارة اخرى نفس الرقم وفي هذه الحالة سوف يتم التكرار ,,,,المطلوب مطابقة رقم الوارد مع تاريخ الكتاب مع الجهة الوارد منها الكتاب ان كانت البيانات متطابقة عند الادخال تظهر رسالة مثلا الكتاب موجود مسبقاً

ضع هذا الكود قبل التحديث وغير مسميات الجداول والحقول 
Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("[اسم الحقل]", "اسم الجدول", "[اسم الحقل]='" & Me!اسم الحقل في النموذج & "' AND [اسم الحقل الثاني]='" & Me!اسم الحقل الثاني في النموذج & "'AND [اسم الحقل الثالث]='" & Me!اسم الحقل الثالث في النوذج & "'") > 0 Then
     MsgBox "duplicated fields", vbExclamation
    Me.Undo
    Cancel = True
End If
End Sub

[Hamdi Edlbi-khalf]

السلام عليكم

الطريقة التي ألجأ إليها:

١- عمل حقل من نوع مذكرة.

٢-في حدث بعد التحديث لكل من حقل 

-رقم الوارد - جهة الوارد- تاريخ الكتاب الوارد

أضع الأمر التال

Me.Haql_almozake=me.number &" "& me.Name&" "&me.date

وفِي خصائص الحقل في الجدول، اجعله مفهرساً والتكرار غير مقبول.

 

فاتني أن أذكر طريقة أخرى:

اجعل كلاً من حقل الرقم والجهة مفتاحاً أساسياً وعندها سيمنع التكرار على أساس قيمتي الحقلين.

تم تعديل ديسمبر 27, 2019 بواسطه Khalf

[eng aoff]

استاذ @عبد اللطيف سلوم وضعت الكود في النموذج قبل التحديث ولكن المشكلة عند النقر على اضافة سجل جديد لا يقبل الاضافة علما ان الكتاب الوارد غير مكرر 

استاذ @Khalf عملت الخيار الاول ولكن دون جدوى والخيار الثاني لا ينفع لان عند اختيار نفس التاريخ لا يقبل 

[أبوبسمله]

منذ ساعه, خالد سيسكو said:

اخي العزيز

انظر للرابط   https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/

نقس الموضوع 

جزاك الله خيرا اخى خالد

اخى الفاضل @eng aoff هل اطلعت على الرابط ده ؟

[eng aoff]

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

تم تعديل ديسمبر 27, 2019 بواسطه eng aoff

[أبوبسمله]

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

[eng aoff]

تفضلو اساتذتي

نظام وارد.accdb

[Hamdi Edlbi-khalf]

السلام عليكم

لقد طبقت الطريقتين على مثالكم المرفق، مع ملاحظة أني لم أشمل حقل التاريخ بالكود أو بجعله مفتاحاً، لكون مثالكم -على مايبدولي لا حاجة معه إلى إضافة التاريخ-  نظراً  إلى عدم الحاجة لضبط تكرار التاريخ مع ضبط رقم وارد الجهة صاحب المراسلة.

للطريقة الخاصة بالكود تطبيقات أخرى في البحث الذي يتعامل مع الهمزات والفراغات والتاءات المربوطة وما إلى ذلك.

ملاحظة لكي تنجح أي من الطريقتين أو الطرق التي ذكرها الأساتذة لابد من ضبط الإدخال في حقل أسماء الجهات العامة فاللازم أن تكون مربع سرد وحوار المشكلة استحالة ضبط هذا في أعمال الدواوين لاستحالة تسمية جميع جهات الوارد ،  مثلاً لو أن لدينا معروضاً شخصياً أو فات المسؤول تسمية جهة عامة.

وعلى أية حال أنتم أدرى بحيثيات الإدخال في قاعدة البيانات.

 

نظام وارد.accdb

تم تعديل ديسمبر 27, 2019 بواسطه Khalf

[Khalid Jnb]

السلام عليكم

بعد اذن الاستاذ Khalf  

مثال بدالة Dlookup

تخياتي

نظام وارد2.rar

[أبوبسمله]

ومشاركه مع اخوانى

بداله Dcount  مع التاريخ

محاوله منى على قدى

بالتوفيق اخى

نظام وارد-1.accdb

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

جربتها على حقل واحد وزبطت الامور

شوف التجربة يمكن تستفيد منها

نظام وارد.accdb

[ابوآمنة]

ومشاركة مع الزملاء

الكود

Private Sub znumbers_BeforeUpdate(Cancel As Integer)
Dim Rs As DAO.Recordset
   Set Rs = CurrentDb.OpenRecordset("wared")
   Rs.MoveFirst
   Do Until Rs.EOF
    If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then
    MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation
    Me.Undo
    Cancel = True
          End If
   Rs.MoveNext
   Loop
   Set Rs = Nothing
End Sub

 

نظام وارد.saleh101.accdb

[أبوبسمله]

15 ساعات مضت, خالد سيسكو said:

السلام عليكم

بعد اذن الاستاذ Khalf  

مثال بدالة Dlookup

تخياتي

نظام وارد2.rar 34.18 kB · 4 تنزيلات

جزاك الله خيرا اخى خالد

جميل اخى اخى خالد كل يوم ارى تركيبه عجيبه لدوال Dlookup واخواتها فى طريقه دمجهم  وكل يوم اتعلم شىء جديد

12 ساعات مضت, ابوآمنة said:

ومشاركة مع الزملاء

الكود

Private Sub znumbers_BeforeUpdate(Cancel As Integer)
Dim Rs As DAO.Recordset
   Set Rs = CurrentDb.OpenRecordset("wared")
   Rs.MoveFirst
   Do Until Rs.EOF
    If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then
    MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation
    Me.Undo
    Cancel = True
          End If
   Rs.MoveNext
   Loop
   Set Rs = Nothing
End Sub

 

نظام وارد.saleh101.accdb 480 kB · 0 تنزيلات

جزاك الله خيرا اخى صالح

واذا كان فى كتاب لشرح مبسط DAO عند احد اخواننا فياريت يشاركنا

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

[ابوآمنة]

4 دقائق مضت, أحمد الفلاحجى said:

جزاك الله خيرا اخى صالح

واذا كان فى كتاب لشرح مبسط DAO عند احد اخواننا فياريت يشاركنا

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

حياك أخي أحمد

تفضل الشرح

وهناك مواضيع أخرى في  المنتدى أحرص على الأمثلة .

بالمحاولة والتجربة راح تستفيد 

[eng aoff]

اشكركم جميعا اساتذتي الكرام بارك الله بيكم

@عبد اللطيف سلوم @Khalf @خالد سيسكو @أحمد الفلاحجى @ابوآمنة 

هذا هو المطلوب 

تحياتي للجميع