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

[montzer]

السلام عليكم ورجمة الله وبركاته 

اعضاء اوفيسنا 

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

بمعنى 

لدي حقل باسم ( رقم ملف ) وحقل ثاني باسم ( التخصص ) 

لا ارغب ان يتكرر رقم الملف بنفس التخصص التي سبق سجل به 

هل هناك امكانية بحل هذا Database4.zip

وشكراً لكم 

[jjafferr]

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

 

في نموذج ادخال البيانات ، وتكون قد ادخلت رقم ID ، 

ضع الكود التالي على حدث "قبل التحديث" للحقل Speciality :

Private Sub specialty_BeforeUpdate(Cancel As Integer)

    a = DCount("*", "Waiting list", "[id]=" & Me.id & " And [specialty]='" & Me.specialty & "'")
    
    If a > 0 Then
        MsgBox "عفوا ، لا يمكن المواصلة ، رقم ملف وحقل التخصص متكرر"
        Cancel = true
        Me.Undo
    End If
    
End Sub

 

جعفر

[montzer]

شكراً عزيزي jjafferr 

 

كتبها الله لك بميزان حسناتك