كيف امنع تكرار البيانات عند تشغيل استعلام الالحاق

اخى العزيز

وض ما تريده بالضبط

لدى استعلام الحاق يعمل عن طريق الضغط على زر تشغيل الاستعلام الموجود على النموذج ليقوم بالحاق البيانات الى الجدول 2

فعند ادخال بيانات فى النموذج الذى يفتح عند بدء التشغيل والضغط على زر تشغيل الاستعلام يقوم بالحاق البيانات الى الجدول 2

لكن يقوم بالحاق بيانات سبق الحاقها ---- انا اريد الحاق بيانات دون تكرار

انظر الى جدول 2 وستعرف ما اريد

اولا المرفق لا يوجد به جدول 2

ثانيا لا ارى اى استعلامات

يرجى مراجعة المرفق

بسم الله الرحمن الرحيم

تم تعديل المثال المرفق أأاسف على ذلك الخطاء

عند ادخال البيانات فى النموذج المرفق والضغط على زر تشغيل الاستعلام يلحق البيانات الى جدول 2 ...................... السؤال؟ كيف امنع تكرار السجلات عند تشغيل الاستعلام

مع وافر التحية والاحترام

منع التكرار1.rar

ما الحقل المطلوب عدم تكراره

Abo_Yossof كتب:

ما الحقل المطلوب عدم تكراره

جميع الحقول اريد عدم تكرارها مرة اخرى

ضع هذا الكود فى حدث عند الضغط لزر تشغيل الاستعلام

تم الاستغناء عن الاستعلام بالكود

On Error GoTo Err_Click

Dim rs, rst As DAO.Recordset
Dim i, c As Integer
Set rst = Me.sub_entry.Form.RecordsetClone
c = rst.RecordCount

For i = 1 To c
Set rs = CurrentDb.OpenRecordset("SELECT [2].* FROM [2] " & _
"WHERE ((([2].accunt_id)=" & rst![accunt_id] & _
") AND (([2].accunt_name)='" & rst![accunt_name] & _
"') AND (([2].Tdate)=#" & rst![Tdate] & _
"#) AND (([2].debt)=" & rst![debt] & _
") AND (([2].credit)=" & rst![credit] & _
") AND (([2].entryn)=" & rst![entryn] & _
") AND (([2].entryexpln)='" & rst![entryexpln] & "'));")

If rs.RecordCount = 0 Then
CurrentDb.Execute ("INSERT INTO [2] ( accunt_id, accunt_name, Tdate, debt, credit, entryn, entryexpln ) " & _
"Values ( " & rst!accunt_id & ", '" & rst!accunt_name & "', #" & rst!Tdate & "#, " & rst!debt & ", " & rst!credit & ", " & rst!entryn & ", '" & rst!entryexpln & "' );")
MsgBox ""
End If
rst.MoveNext
Next

Exit_Click:
    rs.Close
    rst.Close
    Set rs = Nothing
    Set rst = Nothing
    Exit Sub

Err_Click:
    MsgBox Err.Description
    Resume Exit_Click

السلام عليكم

بارك الله فيكم اخواني جميعاً

اذا سمحتم لي بإضافة حل آخر للفائدة

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

ملاحظة : لوحظ استخدام اسم date لحقل التاريخ وهذا غير محبذّ لأنه اسم ( محجوز ) لدالة تعيد تاريخ اليوم وقد تتسبب في مشاكل ويفضل تغييره.

بالتوفيق للجميع

منع التكرار.rar

اخى يوسف احمد منتظر ردك بفارغ الصبر

نعم هو الحل المثالى

لك كل الشكر

بارك الله فيكما أستاذيا (أبو يوسف، يوسف أحمد) زادكما الله علما...

كيف يمكنني ان امنع التكرار خلال فترة الاجازة في برنامج اجازات لموظفي شركة بمعنى :

1/1/2013    5 يوم براتب تنتهي في 5/1/2013

2/1/2013    2 يوم براتب تنتهي في 4/1/2013

نلاحظ تراكب الاجازات لنفس الموظف .... ارجو المساعدة .. وبانتظار الرد

أخي العزيز، يمكن ذلك من خلال جعل الرقم المعرف في الجدول المستهدف (وهو جدول 2) غير قابل للتكرار.

الرقم المعرف

من التكرار من خلال خصائص الحقل

أعتقد أن هذه الطريقة أسهل بكثير من الإجابات السابقة

اشكرك اخي على مرورك الرائع .. ولكن ان الجدول الاول مربوط مع الثاني من خلال علاقة one to many بحيث السجل الواحد من الجدول الاول يحتوي على اكثر من سجل من الجدول الثاني وبid  جديد .. ولكنالمشكلة ليست هنا.. نما المشكلة اذا تمتع الموظف باجازة ربما تكون متداخلة مع اجازة اخرى او مكررة من خلال مدة الاجازة وتاريخ البدء خاصة بالجدول الثاني... مع اعتذاري لكم

لقد اطلعت أخي على مرفقك وفي الحقيقة لم أفهم منه شيئا، ولكن ما يجب أن ألفت الإنتباه إليه أنه يمكن إيقاف عملية التكرار من خلال عدة طرق،

1- إيقاف عملية التكرار في فهرس الجدول المستهدف.

2- إنشاء شرط في جدول إستعلام الإلحاق True Or False.

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

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

NoDuplicate.rar