اذهب الي المحتوي
أوفيسنا

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


osn

الردود الموصى بها

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

 

تم تعديل بواسطه 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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

تحياتي 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information