منع تكرار

[ابو عبدلله]

السلام عليكم

في المرفق "عدد من الطلاب ولكل طالب مواد

اريد منع تكرار نفس المادة مدخلة مسبقاً ؟؟

ولكم جزيل الشكر

طلاب.rar

[كرار صبري _ أبو جنى]

منذ ساعه, ابو عبدلله said:

السلام عليكم

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

 

اخي ابو عبد الله , هل تقصد انه اذا ادخلنا المواد " أ " و " ب " للطالب الاول 

فيمكن الطالب الثاني ندخل له المواد " ب " و " أ "

ويمكن الطالب الثالث ندخل له المواد " أ " و " ج "

.........................

ام لا يمكن ان ندخل المواد " أ " و " ب " لأي طالب آخر 

[ابو عبدلله]

السلام عليكم

الان, كرار صبري _ أبو جنى said:

ام لا يمكن ان ندخل المواد " أ " و " ب " لأي طالب آخر 

أخ كرار شكرا لردك وسلامك واستفسارك

انا اود انه عند ادخال المادة 1 للطالب 1 لا يمكن ادخالها مرة ثانية لنفس الطالب

مع تقديري

[mr steev]

عذرا للدخول على الخط فهذه محاولة من اخوكم لما فهمته من المطلوب

تقوم بوضع هذا الكود في حدث بعد التحديث للحقل المادة

Private Sub المادة_AfterUpdate()
Me.Refresh
If DCount("*", "الدرجة", "[المادة]= form![المادة]") > 1 Then
Me.المادة = ""
MsgBox "لقد قمت بإدخال هذه المادة مسبقاً", vbOKOnly, "خطأ"
Cancel = True
End If
End Sub

أخوكم مصطفى

طلاب1.rar

[ابو عبدلله]

السلام عليكم

اخ كرار - مصطفى بارك الله بكم وبأمثالكم اللذين يسارعون لفعل الخير

جمعنا الله ومن تحبون في الفردوس الاعلى