عدم تكرار رقم اللجنة

[osn]

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

 

تم تعديل ديسمبر 1, 2022 بواسطه osn

[حمدى الظابط]

فين المرفق للتعديل عليه

[سامي الحداد]

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

هذا الكود لمنع تكرار السجل 

Private Sub UserName_BeforeUpdate(Cancel As Integer)
Dim ID As Integer
Dim UsrName As String
Dim Msg, Style, Title, Response

    UsrName = Me.UserName
    ID = Nz(DLookup("[ID]", "UserLog", "[UserName]='" & Me.UserName & "'"), 0)
    If ID <> 0 Then
    Me.Undo
    Cancel = True
    Msg = "This name already exists" & vbCrLf & _
          "Mr. " & UsrName & vbCrLf & vbCrLf & _
          "Yes : Go to that record" & vbCrLf & _
          "No  : Delete this record"
    Style = vbYesNo + vbExclamation + vbDefaultButton2
    Title = "Repetition is prohibited"
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then
    DoCmd.FindRecord ID, , , , , acAll, True
End If
End If
End Sub

وبما انك لم ترفق ملف للتعديل عليه اليك هذا الملف ويمكنك اقتباس الفكرة منه

بالتوفيق

Prevent Duplicate & Filter.accdb

[osn]

اعداد اللجان.accdb

[osn]

ارسلت ملف ؟

 

 

 

 

 

 

 

 

 

 

 

 

ظ

[سامي الحداد]

تفضل اخي الكريم

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

 

اعداد اللجان.accdb

[osn]

اخى سامى الكود عاوزه فى زر اضافة لجنة

[osn]

اخى سامى الموضوع انه مثلا هضيف لجنة بالخطوات التالية : فى مربع من رقم جلوس هضع مثلا 601 ، ومربع الى رقم جلوس هضع 610 ، ومربع رقم اللجنة هكتب 1 تمام واضغط اضافة اللجنة وكده بتتضاف . ( هى دى خطوات اضافة اللجنة )

فلو نفذت نفس الخطوات السابقة مع اختلاف البداية والنهاية فى مربعين الجلوس بس أخطأت فى مربع رقم اللجنة وكتبت 1 مرة تانية وضغط اضافة اللجنة عاوز رسالة تطلع هذه الرقم موجود مسبقا قم بتغيير رقم اللجنة ولا يتم الاضافة الا اذا غيرت رقم اللجنة . 

( أتمنى يكون الأمور وضحت ) وشكرا مقدما

[osn]

أريد حلا 

[سامي الحداد]

اسف على التاخير .. وذلك لانشغالي بالعمل والسفر

تفضل اخي الكريم حسب ما فهمت من  طلبك

Private Sub T_mg_BeforeUpdate(Cancel As Integer)
With Me.RecordsetClone
    .FindFirst "N_lagna = " & Me!T_mg & ""
    Cancel = (.NoMatch = False)
    If Cancel Then
   MsgBox "رقم اللجنة " & NewLagna & " موجود مسبقا" _
                         & vbCr & vbCr & "الرجاء تغير رقم اللجنة... وإعادة المحاولة ", vbInformation, "لجنة مكررة"
        Me.Undo
        Me.Bookmark = .Bookmark
    End If
End With
End Sub

هذا الكود في حالة الضغط على مفتاخ الادخال (انتر)

Private Sub أمر21_Click()

On Error Resume Next
With Me.RecordsetClone
    .FindFirst "N_lagna = " & Me!T_mg & ""
    Cancel = (.NoMatch = False)
    If Cancel Then
   MsgBox "رقم اللجنة " & NewLagna & " موجود مسبقا" _
                         & vbCr & vbCr & "الرجاء تغير رقم اللجنة... وإعادة المحاولة ", vbInformation, "لجنة مكررة"
        Me.Undo
        Me.Bookmark = .Bookmark
    End If
End With

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

جرب ووافنا بالنتيجة

سوف اغيب في الفترة القادمة لبعض الوقت واذا كان هناك اي تعديل فالاخوة والاساتذة لن يقصروا  ان شاءالله جزاهم الله خيرا.

تحياتي 

[osn]

تمت العملية بنجاح .. جزاك الله عنا خيرا .. ترجع بألف سلامة

[طاهر الوليدي]

20 ساعات مضت, osn said:

تمت العملية بنجاح .. جزاك الله عنا خيرا .. ترجع بألف سلامة

ممكن ترسل المثال كيف تم تطبيقه  اخي osn