أين مشكلة في هذ الكود؟

اخي الفاضل

هل من الممكن ان اسألك سؤال مع اعتذاري الشديد لك ؟؟

منذ متى وانت مسجل في المنتدى ؟؟؟؟

الا تستطيع معرفة استخدام وضع الأكواد في المشاركه لماذا تضعها في صوره

هذا ما حصلنا عليه من الصوره الخاصة بك ( لا شيء )

اخي اثناء كتابتك للمشاركه ضع الكود بهذه الطريقة

يعني افتح بداية للكود

ثم انسخ الكود الخاص بك وضعه هنا

ثم اغلق نهاية الكود كما في الصوره

بالتوفيق

السلام عليكم ورحمة الله وبركاته أختي الفاضلة زهرة

أنا متأسف جداً على ما حصل معكي طبعاً أنتي أستاذتنا ومعلمتنا و لازم تحملنا شوي!

هذا الكود المطلوب التعديل عليه

والمثال أيضاً مرفق في هذه المشاركة

وأريد عدم التكرار في الرقم الموظف في النموذج EMP_Frm و في الحقل Emp_No

Private Sub Emp_No_AfterUpdate()
Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.Emp_No.Value
stLinkCriteria = "[Emp_No]=" & "'" & SID & "'"
    If DCount("Emp_No", "Emp_Tbl", stLinkCriteria) > 0 Then
        Me.Undo
        MsgBox "ÇáÑÞã" _
        & SID & " .Êã ÅÏÎÇáå ãÓÈÞÇð" _
        & vbCr & vbCr & " .ÓíÙåÑ áß ÇáÂä ÇáÈíÇäÇÊ  ÇáãÓÌáÉ", vbInformation _
        , "Duplicate Information"
        rsc.FindFirst stLinkCriteria
        Me.Bookmark = rsc.Bookmark
    End If

Set rsc = Nothing
End Sub

وشكراً لكي يا أستاذتنا و معلمتنا زهرة العبدالله بارك الله بكي

No Repeat Emp No.rar

أعتقد أن الكود سيكون هكذا

Private Sub Emp_No_AfterUpdate()
Dim SID As Integer
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.Emp_No.Value
stLinkCriteria = "[Emp_No]=" & SID
    If DCount("Emp_No", "Emp_Tbl", stLinkCriteria) > 0 Then
        Me.Undo
        MsgBox "الرقم" _
        & SID & " .تم إدخاله مسبقاً" _
        & vbCr & vbCr & " .سيظهر لك الآن البيانات  المسجلة", vbInformation _
        , "Duplicate Information"
        rsc.FindFirst stLinkCriteria
        Me.Bookmark = rsc.Bookmark
    End If

Set rsc = Nothing
End Sub

lمع كل الاحترام أختنا

بارك الله بك أخي الفاضل أو لميس و شكراً لك على سرعة التجاوب

وفعلاً الكود الآن يعمل بشكل جيد

شكراً لك أخي الكريم