السلام عليكم
فيه كود آخر لكن غير مبسط :pp:
If (Eval("DLookUp(""[txtnum]"",""[t_data]"",""[txtnum] =form![txtnum]and [txtdate] =form![txtdate]"") Is Not Null")) Then
Dim txt2 As Variant
Dim txt3 As Variant
Dim txt4 As Variant
txt2 = DLookup("[txtnum]", "t_data", "[txtnum]=[forms]![f_data]![txtnum]and [txtdate] =form![txtdate]")
txt3 = DLookup("[txtdate]", "t_data", "[txtdate]=[forms]![f_data]![txtdate]and [txtdate] =form![txtdate]")
txt4 = DFirst("[recnum]", "t_data", "[txtnum]=[forms]![f_data]![txtnum]and [txtdate] =form![txtdate]")
Beep
MsgBox "سبق لك أن أدخلت التعميم رقم: " & txt2 _
& " في تاريخ: " _
& Format(txt3, "dd/mmmm/yyyy") _
& " وقد سجل برقم: " & txt4 _
& vbCrLf & " ... لا يمكن تسجيل هذا التعميم" _
, vbExclamation, "مدقق التعاميم"
Me.Undo
DoCmd.GoToControl "txtcin"
txttxt = 0
Else
End If
مع ملاحظة تغيير اسماء النموذج والجدول والحقول حتى يتناسب مع مطلوبك ..