تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] المساعدة فى كود لبرنامج اكسس
#1
السلام عليكم ورحمه الله وبركاته
السؤال هو لدي خانه تتكون من 14 رقم اذا كان الرقم اقل او اكثر تظهر رساله تفيد الحالة
اما اذا الرقم يساوى 14 رقم اريد التاكد من ان الرقم لم يوجد قبل ذلك فى الجدول
هذا الكود الى كتبته ولكن هناك خطأ حيث ان الرقم اذا تساوى مع 14 حتى لو جديد يظهر رساله تفيد بان الرقم مكرر مع العلم انه ليس مكرر  Huh
هل من حل وبارك الله فيكم

كود :
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 If
الرد
تم الشكر بواسطة:
#2
السلام عليكم
حضرتك كتبت الكود بشكل صحيح بس فى جزء بسيط وهوتفريغ قيمةالمتغير answer
قبل عملية البحث اللى حضرتك بتعملها وان شاء الله مش هيكون فى مشكلة جرب وانا مع حضرتك لو فى اية مشكلة تانية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة في تعديل تفقيط الأرقام بالدينار slamco2000 6 108 25-01-18, 09:38 PM
آخر رد: slamco2000
  كسر كلمة السر لبرنامج استخدمه في العمل محمد عوض 0 93 20-12-17, 04:18 PM
آخر رد: محمد عوض
  [سؤال] كود سحب صورة من اسكنر و حغظها في حقل اكسس whoman 1 144 12-09-17, 12:38 AM
آخر رد: Amir_alzubidy
  ربط اكسس بميزان بيسكول Ayman Elmasry 0 133 06-09-17, 06:26 AM
آخر رد: Ayman Elmasry
  [Acces2007] المساعدة فى عمل برنامج لمصنع صغير ابراهيم حورس 4 238 24-08-17, 04:10 AM
آخر رد: ابراهيم حورس
  طلب مساعدة : كود ربط قاعدة بيانات اكسس بفيجوال بيسك 2012 diab4diab 1 665 10-08-17, 03:15 AM
آخر رد: أبووسم
  [سؤال] المساعدة فى تكملة قاعدة بيانات ابراهيم حورس 1 546 25-03-17, 04:41 AM
آخر رد: Miaaz alzain
Photo الساده الاعضاء انا عندى قاعدة بيانات اكسس 2013 للمرضه وعندى جدول المرضه pa به كود الم ahmedemam 0 261 13-02-17, 04:59 PM
آخر رد: ahmedemam
  كيفية انشاء باسسورد لقاعدة اكسس 2010 محاسب يوسف 3 1,301 31-01-17, 01:06 PM
آخر رد: mohamed nggar
  [سؤال] تحزيم مايكروسوفت اكسس 2013 musab 0 531 13-08-16, 05:50 PM
آخر رد: musab

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم