تقييم الموضوع :
  • 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
قبل عملية البحث اللى حضرتك بتعملها وان شاء الله مش هيكون فى مشكلة جرب وانا مع حضرتك لو فى اية مشكلة تانية
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile App_Desktop Aouto Ur_Work Ms.Access(برنامج سطح المكتب لإدارة الاعمال اكسس) Ezril5 0 91 14-03-24, 02:52 AM
آخر رد: Ezril5
Big Grin Desktop_Aouto_S_Holdays&Online_Give_Ms-Access)تاريخ والوقت مع الاحتساب على اكسس Ezril5 0 82 11-03-24, 11:33 PM
آخر رد: Ezril5
Smile Desktop-Holdays&Online Give Ms.Access(سطح مكتب + تقويم + Scarlbarتاريخ ووقت)على اكسس Ezril5 0 81 10-03-24, 03:33 AM
آخر رد: Ezril5
Big Grin V.1_16\2\2024-[Aout OpenFullSize]-[RX_Only Cod_MsAccess -اكسس Ezril5 0 143 16-02-24, 08:53 AM
آخر رد: Ezril5
Smile برنامج لتجهيز طابعات لطباعة تقرير مع نافذة منبثقة بالتخصيص اكسس Ms Access (Mini_App Ezril5 0 134 10-02-24, 07:32 PM
آخر رد: Ezril5
Big Grin UPdate-(9/2/2024 - [New Add] - [FaxAT] - (MS Access))- انشاء برامج اكسس ألي (متكامل) Ezril5 0 176 09-02-24, 08:49 AM
آخر رد: Ezril5
Big Grin UPdate 25 1 2024 New Add FaxAT MS Access- لانشاء برامج اكسس بدقائق مفتوح المصدر Ezril5 0 209 25-01-24, 11:18 PM
آخر رد: Ezril5
Smile 20 1 2024 UPdate AddNew FixAt Blud App Ms Access - لانشاء برامج اكسس بدقائق مفتوح ال Ezril5 0 213 20-01-24, 03:04 AM
آخر رد: Ezril5
Smile برنامج مفتوح المصدر عرض معاينة تقرير مع الادوات بنافذة منبثقة اكسس-Report_Tools-X15- Ezril5 0 321 15-12-23, 03:44 PM
آخر رد: Ezril5
Information برنامج اكسس للفحص للاقلاع واستبدال كل اعادة تشغيل الكمبيوتر + MSG-Form-Not_Any_Tablit EZRIL2 0 284 21-08-23, 04:41 PM
آخر رد: EZRIL2

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


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