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

[layan.ali93]

السلام عليكم ورحمه الله

يرجى مساعدتي في وضع كود في نموذج الادخال في حقل الجهة بعد التحديث يفيد ( بان رقم الكتاب والجهة تم ادخالها مسبقا ) في حال تم تكرار رقم الكتاب والجهة بنفس الوقت 

ولكم جزيل الشكر والامتنان

عدم تكرار الرقم والجهة.rar

[kkhalifa1960]

تفضل استاذ @layan.ali93 .

           

Private Sub office_AfterUpdate()
    Dim strCriteria As String
    Dim varResult As Variant

    ' تأكد من أن رقم الكتاب والجهة ليست فارغة
    If Nz(Me.no_of_io, "") <> "" And Nz(Me.office, "") <> "" Then
        ' صياغة شرط البحث
        strCriteria = "[no_of_io] = '" & Me.no_of_io & "' AND [office] = '" & Me.office & "'"

        ' البحث عن سجل مطابق في الجدول
        varResult = DLookup("id_mas", "master_t", strCriteria)

        ' إذا تم العثور على نتيجة، يعني أن السجل موجود مسبقًا
        If Not IsNull(varResult) Then
            MsgBox "رقم الكتاب والجهة تم إدخالهما مسبقًا.", vbExclamation, "تنبيه"
        End If
    End If
End Sub

 

[layan.ali93]

سلمت يمينك استاذ @kkhalifa1960

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

تم تعديل ديسمبر 7, 2025 بواسطه layan.ali93