اخواني اسعفوني سؤالين بس ؟

جواب السؤال الأول:

اظهر خواص النموذج

Properties of the form

from the format tap select navigation buttons = No

جواب السؤال الثاني :o

البركة بالشباب

سؤال الثاني:

انظر الى ارشيف انا شفت هذا الموضوع من قبل؟؟ او ارجو من المشرفين اكتب اليك الرابط في هذا الموضوع من المنتدى؟؟

نفرض أن لدي حقل اسمه رقم البطاقة وهذا الحقل لا أريد أن يتكرر فيه الرقم مرتين .

فى حدث قبل التحديث لهذا الحقل ( رقم البطاقة ضع الكود التالي .

Function عدم_تكرار_البطاقة()

On Error GoTo عدم_تكرار_البطاقة_Err



    If (Eval("DLookUp(""[رقم البطاقة] "",""[الأفراد]"",""[رقم البطاقة]=form![رقم البطاقة]"") Is Not Null")) Then

        Beep

        MsgBox "تم تسجيــل رقــــــم البطـــاقـــــــة هــــذا من قبـــــــل ؟؟؟", vbInformation, "ادخال مكرر لرقم البطاقة"

        DoCmd.CancelEvent

        SendKeys "{f2}", False

    End If





عدم_تكرار_البطاقة_Exit:

    Exit Function



عدم_تكرار_البطاقة_Err:

    MsgBox Error$

    Resume عدم_تكرار_البطاقة_Exit



End Function

مع تغيير اسم الحقل لديك .

أشرف خليل