|و| تعديل على كود من أجل منع تكرار

[ircpal]

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

الى خبراء الاكواد عبر تصفحي بمنتديات اجنبيه رايت مثلا جيدا لمنع تكرار الاسم او رقم في حقل ولكن واجهتني مشكله في الكود وحاولت اصلاحها وبتت بالفشل قلت مالي غير هالمنتدى الطيب واعضائه الاشاوس :) لحل هالمشكله لتعم الفائده باذن الله تعالى للجميع واليكم هالكود كالتالي؟

Dim SID As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

SID = Me.strStudentNumber.Value
stLinkCriteria = "[strStudentNumber]=" & "'" & SID & "'"

    'Check StudentDetails table for duplicate StudentNumber
    If DCount("strStudentNumber", "tblStudentDetails", stLinkCriteria) > 0 Then
        'Undo duplicate entry
        Me.Undo
        'Message box warning of duplication
        MsgBox "Warning Student Number " _
        & SID & " has already been entered." _
        & vbCr & vbCr & "You will now been taken to the record.", vbInformation _
        , "Duplicate Information"
        'Go to record of original Student Number
        rsc.FindFirst stLinkCriteria
        Me.Bookmark = rsc.Bookmark
    End If

Set rsc = Nothing
End Sub

تظهر لي خطأ في جملة rsc.findfirststlinkcriteria

وايضا ما يتعلق بها Dim rsc As DAO.Recordset

لا اعرف ماذا تعني ومما تتعلق

يا ليت الاخوه يلخصون هالكود لكود فعال وشغال حتى تعم الفائده

وتمنياتي لكم بالتوفيق

تم تعديل مايو 5, 2005 بواسطه rudwan

[فتى الوادي]

السلام عليكم ...

أولاً الكود يحتاج إلى مرجع DAO

ثم تعدل مسميات الحقول والنماذج اللي في الكود بمسيميات الحقول والنماذج والجداول عندك ...