تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود سحب صورة من اسكنر و حغظها في حقل اكسس whoman 1 72 12-09-17, 12:38 AM
آخر رد: Amir_alzubidy
  ربط اكسس بميزان بيسكول Ayman Elmasry 0 81 06-09-17, 06:26 AM
آخر رد: Ayman Elmasry
  [Acces2007] المساعدة فى عمل برنامج لمصنع صغير ابراهيم حورس 4 164 24-08-17, 04:10 AM
آخر رد: ابراهيم حورس
  طلب مساعدة : كود ربط قاعدة بيانات اكسس بفيجوال بيسك 2012 diab4diab 1 544 10-08-17, 03:15 AM
آخر رد: أبووسم
  [سؤال] المساعدة فى تكملة قاعدة بيانات ابراهيم حورس 1 453 25-03-17, 04:41 AM
آخر رد: Miaaz alzain
Photo الساده الاعضاء انا عندى قاعدة بيانات اكسس 2013 للمرضه وعندى جدول المرضه pa به كود الم ahmedemam 0 200 13-02-17, 04:59 PM
آخر رد: ahmedemam
  كيفية انشاء باسسورد لقاعدة اكسس 2010 محاسب يوسف 3 1,226 31-01-17, 01:06 PM
آخر رد: mohamed nggar
  [سؤال] تحزيم مايكروسوفت اكسس 2013 musab 0 437 13-08-16, 05:50 PM
آخر رد: musab
  سؤال في برنامج اكسس ارج الافادة ماججد السراني 0 519 10-11-15, 08:08 PM
آخر رد: ماججد السراني
  اريد حل في دمج اعمدة في قاعدة بيانات اكسس VB.NET 2 969 11-10-15, 11:20 PM
آخر رد: VB.NET

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


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