ابو ريان قام بنشر يناير 24, 2004 قام بنشر يناير 24, 2004 تتمكن الإستعلامات من أداء وظيفه عديده حسب تسخير المستخدم لها فها هي مع استخدام بسيط للدالة 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 هنالك ايضا زرا امر يتم انشاءهما في النموذج وهما تراجع و اضافة سجل 1
ashraf قام بنشر يناير 24, 2004 قام بنشر يناير 24, 2004 فكرة حلوة وهذه فكرة أخرى وبشكل تاني لعدم تكرار نفس القيمة ونفس التاريخ . نفرض أنه لدينا حقل اسمه 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 نرجو ممن يجرب أحدى الطريقتين أو كلاهما بأن يخبرنا بالنتيجة . أشرف خليل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.