+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170)
+--- الموضوع : [سؤال] المساعدة فى كود لبرنامج اكسس (/showthread.php?tid=21997)
المساعدة فى كود لبرنامج اكسس - hollow_manmmt - 06-10-17
السلام عليكم ورحمه الله وبركاته
السؤال هو لدي خانه تتكون من 14 رقم اذا كان الرقم اقل او اكثر تظهر رساله تفيد الحالة
اما اذا الرقم يساوى 14 رقم اريد التاكد من ان الرقم لم يوجد قبل ذلك فى الجدول
هذا الكود الى كتبته ولكن هناك خطأ حيث ان الرقم اذا تساوى مع 14 حتى لو جديد يظهر رساله تفيد بان الرقم مكرر مع العلم انه ليس مكرر
هل من حل وبارك الله فيكم
كود :
Dim Answer As Variant
If Len(Trim(Me.الرقم_القومي_للطالب)) < 14 Then
MsgBox ("عدد الارقام المدخلة اقل من 14 رقم الرجاء اعادة المحاولة")
Me.الرقم_القومي_للطالب.SetFocus
ElseIf Len(Trim(Me.الرقم_القومي_للطالب)) > 14 Then
MsgBox ("عدد الارقام المدخلة اكبر من 14 رقم الرجاء اعادة المحاولة ")
Me.الرقم_القومي_للطالب.SetFocus
ElseIf Len(Trim(Me.الرقم_القومي_للطالب)) = 14 Then
Answer = DLookup("[الرقم_القومي_للطالب]", "التلاميذ", "[الرقم_القومي_للطالب] = '" & Me.الرقم_القومي_للطالب & "'")
If Not IsNull(Answer) Then
MsgBox "هذا الطالب موجود بالفعل" & vbCrLf & "اما ان الرقم القومي كتب خطأ او انك كتبته خطأ لطالب اخر , استخدم البحث لحل المشكلة.", vbCritical + vbOKOnly + vbDefaultButton1, "سجل مكرر"
Cancel = True
Me.الرقم_القومي_للطالب.Undo
else
DoCmd.Save
Me.الرقم_القومي_للطالب.BackColor = RGB(222, 229, 192)
End If
End IfRE: المساعدة فى كود لبرنامج اكسس - eng_mohammed190 - 12-12-17
السلام عليكم
حضرتك كتبت الكود بشكل صحيح بس فى جزء بسيط وهوتفريغ قيمةالمتغير answer
قبل عملية البحث اللى حضرتك بتعملها وان شاء الله مش هيكون فى مشكلة جرب وانا مع حضرتك لو فى اية مشكلة تانية