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

[ابو ريان]

تتمكن الإستعلامات من أداء وظيفه عديده حسب تسخير المستخدم لها فها هي مع استخدام بسيط للدالة dlookup تمنع تكرار قيمه لنفس رقم السجل لنفس التاريخ او حسب حقول اخرى .

فلدينا مثال مكون من رقم تاريخ قيمه في نموذج اسمه نموذج 1

لنعمل استعلام

نختار منه الحقول الثلاثه

ونكتب

تحت القيمه في المعايير نكتب

[forms]![نموذج 1]![القيمه]

وتحت الرقم نكتب

[forms]![نموذج 1]![الرقم]

وتحت التاريخ نكتب

[forms]![نموذج 1]![التاريخ]

والآن نتجه الى النموذج ونكتب في الاجراء بعد التحديث لحقل القيمه الكود التالي

If DLookup("القيمه", "استعلام1") > 0 Then
response = MsgBox("iهذه القيمه موجوده مسبقا وبنفس التاريخ لهذا السجل هل تريد التكرار", vbYesNo, "تبيه عن تكرار")
If response = vbYes Then
DoCmd.GoToControl "اضافة سجل جديد"
Else
If response = vbNo Then
DoCmd.GoToControl "تراجج"
[القيمه] = ""
End If
End If
End If

هنالك ايضا زرا امر يتم انشاءهما في النموذج وهما تراجع و اضافة سجل

[ashraf]

فكرة حلوة وهذه فكرة أخرى وبشكل تاني لعدم تكرار نفس القيمة ونفس التاريخ .

نفرض أنه لدينا حقل اسمه hanaki_snd وحقل التاريخ date . ضع الكود التالى فى حدث عند الخطأ للنموذج .

    Select Case DataErr
        Case 3022
            MsgBox "أنت تحاول إدخال سند قد تم ادخاله بالفعل ... !!", vbExclamation, "تنبيه"
            hanaki_snd = Null
            hanaki_snd.SetFocus
        Case 3058
            MsgBox "لا يمكنك ترك حقل ( إشعار الحناكي )  فارغاً .. يجب ادخال قيمة له ...", vbExclamation, "تنبيه"
            hanaki_snd.SetFocus
        Case Else
            MsgBox DataErr & AccessError(DataErr), vbExclamation
    End Select
    Response = acDataErrContinue

نرجو ممن يجرب أحدى الطريقتين أو كلاهما بأن يخبرنا بالنتيجة .

أشرف خليل