الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال عن دوال التحقق من الصحة

بدأه ورد البيلسان في 30 ديسمبر 2011 · 17 رد · 628 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد المساعدة في دوال التحقق من الصحة في برنامج الاكسس

اذا كان لدي رقم بطاقة يتكون من 9 خانات فكيف اقوم بضبطة

واريد مجموع هذه الخانات اكبر من 40 اذا كان من العاصمة واقل من 40 اذا كان من محافظات اخرى

واريد اذا كانت رقم البطاقة من العاصمة ان يبدأ بالرقم 9 واذا كان من محافظات اخرى يبدأ بالرقم 8

وهذا رقم بطاقة من محافظات بلدأ بالرقم 8

845632842

وهذا رقم بطاقة من العاصمة ويبدأ بالرقم 9

965743814

#2

وعليكم السلام هذا الكود يفي بالغرض مع الاعتبار باسماء المدن 

Private Sub NUM_BeforeUpdate(Cancel As Integer)
If CITY = "CAIRO" And Len(NUM) = 9 And Mid(NUM, 1, 1) = 9 And Val(Mid(NUM, 1, 1)) + Val(Mid(NUM, 2, 1)) + Val(Mid(NUM, 3, 1)) + Val(Mid(NUM, 4, 1)) + Val(Mid(NUM, 5, 1)) + Val(Mid(NUM, 6, 1)) + Val(Mid(NUM, 7, 1)) + Val(Mid(NUM, 8, 1)) + Val(Mid(NUM, 9, 1)) > 40 Then
ElseIf CITY = "GIZA" And Len(NUM) = 8 And Mid(NUM, 1, 1) = 8 And Val(Mid(NUM, 1, 1)) + Val(Mid(NUM, 2, 1)) + Val(Mid(NUM, 3, 1)) + Val(Mid(NUM, 4, 1)) + Val(Mid(NUM, 5, 1)) + Val(Mid(NUM, 6, 1)) + Val(Mid(NUM, 7, 1)) + Val(Mid(NUM, 8, 1)) < 40 Then
Else
MsgBox "لا بد من الالتزام بالقواعد"
Cancel = True
Me.Undo
End If
End Sub

تم تعديل هذه المشاركة بواسطة kh202067 في 30 ديسمبر 2011 في 09:27

#3

المرفق به مثال سريع

Access.rar

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#4

اشكركم على المساعدة

#5

http://www.2shared.c...ROSE_HOTEL.html

هذا هو مشروعي هل يمكن تطبيق السابق عليه وشكرا

لانني حاولت مرات عدة فلم انجح

#6

يرجى رفع الملف بالمنتدى مباشرة

لان الرابط معطوب

1

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#7
Abo_Yossof كتب:

يرجى رفع الملف بالمنتدى مباشرة

لان الرابط معطوب

ROSE HOTEL.rar

هذا هو الملف اخي الكريم

واشكرك على اهتمامك

#8

تم التعديل على نموذج CUSTOMER1

ROSE HOTEL.rar

1

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#9

اشكرك اخي ابو يوسف

ودائما مصر هي ام العرب والعروبة

اتمنى لك سنة جديدة ملئية بالسعادة والامل بغد مشرق

#10

لقد اثقلت عليكم ولكن

طلب ايضا ان يكون هناك ضيط على نموذج الغرف وهو اذا كان غرفة فأنها يبدأ بالرقم 1

واذا كانت جناج تبدأ بالرقم 2

فهل هذا ممكن

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

وهل لي بسؤال هل يعد هذا النوع من الضبط من ضوابط المعالجة ؟؟؟

اخي الكريم يوجد في قاعدة البيانات التي ارسلنها من قبل في شريط الادوات (ادوات القواعد الخارجية ) شريط يحتوي على اذونات المستخدمين وخيارات

النسخ المتماثل فكيف يمكن ان اضيفها الي هذا المشروع

وارجو المعذرة بسبب تكرار الطلبات للمساعدة

تم تعديل هذه المشاركة بواسطة ورد البيلسان في 31 ديسمبر 2011 في 04:10

#11

اخي الكريم يوجد في قاعدة البيانات التي ارسلنها من قبل في شريط الادوات (ادوات القواعد الخارجية ) شريط يحتوي على اذونات المستخدمين وخيارات

النسخ المتماثل فكيف يمكن ان اضيفها الي هذا المشروع

#12

هل يمكن اضافة ضوابط المعقولية والحد الاعلى على هذا المشروع

#13
ورد البيلسان كتب:

لقد اثقلت عليكم ولكن

طلب ايضا ان يكون هناك ضيط على نموذج الغرف وهو اذا كان غرفة فأنها يبدأ بالرقم 1

واذا كانت جناج تبدأ بالرقم 2

فهل هذا ممكن

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

استخدم نفس الكود السابق مع التعديلات اللازمة

ورد البيلسان كتب:

وهل لي بسؤال هل يعد هذا النوع من الضبط من ضوابط المعالجة ؟؟؟

؟؟؟؟ لا أفهم ما تقصده

ورد البيلسان كتب:

اخي الكريم يوجد في قاعدة البيانات التي ارسلنها من قبل في شريط الادوات (ادوات القواعد الخارجية ) شريط يحتوي على اذونات المستخدمين وخيارات

النسخ المتماثل فكيف يمكن ان اضيفها الي هذا المشروع

وارجو المعذرة بسبب تكرار الطلبات للمساعدة

استخدم خاصية البحث فالموضوعين موجودين بكثرة فى المنتدى

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#14

شكرا للمساعدة

سوف ابحث عن اخر موضوع

اخي الكريم بالنسة لسؤالي حول هل الضبط الخاص بالنموذج بعد من انواع ضوابط المعالجة ام لا ,لان هذا المشروع المطلوب الاول به ان يحتوي على ضوابط معالجة وانا ليس لدي ادنى فكرة عن كيفية هذا الضبط

اخي الكريم هل يوجد كود او دوال لتحقق من صحة اخر رقم من ارقام البطاقة الشخصية وهذا يشبه رقم اختبار للكتاب الوطني

#15

اخي الكريم هذا هو كود الخاص بالغرف

لكن لا يعمل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

Function SumDigits(Number)

Dim i As Integer

For i = 1 To Len(Number)

SumDigits = SumDigits + Val(Mid(Number, i, 1))

Next i

End Function

Private Sub room_id_BeforeUpdate(Cancel As Integer)

If IsNull(Me.[room-id]) Then Exit Sub

If Me.[room-typ] = "room" Then 'äæÚ ÇáÛÑÝÉ

If Left(Me.[room-id], 1) <> 1 Then

MsgBox "íÌÈ Çä íÈÏà ÈÇáÑÞã 1 "

Cancel = True

ElseIf SumDigits(Me.[room-id]) = 3 Then

MsgBox "íÌÈ Çä íßæä ãÌãæÚ ÇáÇÑÞÇã ÇßÈÑ ãä 3" & vbCrLf & SumDigits(Me.[room-id])

Cancel = True

End If

Else

If Me.[room-typ] = "suites" Then 'äæÚ ÇáÛÑÝÉ

If Left(Me.[room-id], 2) <> 2 Then

MsgBox "íÌÈ Çä íÈÏà ÈÇáÑÞã 2"

Cancel = True

ElseIf SumDigits(Me.[room-id]) = 3 Then

MsgBox "íÌÈ Çä íßæä ÇáãÌãæÚ íÓÇæí 3"

Cancel = True

End If

End If

End Sub

End Sub

#16

سؤال للخوة الكرام

ما هو سبب عدم تشغيل كود اكسس الخاص بفورم معين على فورم اخر

مثلا انا لدي كود اكسس لفورم الغرف وقمت بعمل نسخ ولصق له على فورم للغرف في قاعدة بيانات اخرى مع العلم انها تحتوي على نفس عناصر الفورم الاول

فما هو السبب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#17
ورد البيلسان كتب:

اخي الكريم هذا هو كود الخاص بالغرف

لكن لا يعمل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

Function SumDigits(Number)
    Dim i As Integer
    For i = 1 To Len(Number)
      SumDigits = SumDigits + Val(Mid(Number, i, 1))
    Next i
 End Function

Private Sub room_id_BeforeUpdate(Cancel As Integer)
If IsNull(Me.[room-id]) Then Exit Sub

If Me.[room-typ] = "room" Then     'äæÚ ÇáÛÑÝÉ
    If Left(Me.[room-id], 1) <> 1 Then
          MsgBox "íÌÈ Çä íÈÏà ÈÇáÑÞã 1 "
          Cancel = True
    ElseIf SumDigits(Me.[room-id]) = 3 Then
          MsgBox "íÌÈ Çä íßæä ãÌãæÚ ÇáÇÑÞÇã ÇßÈÑ ãä 3" & vbCrLf & SumDigits(Me.[room-id])
          Cancel = True
    End If
Else
If Me.[room-typ] = "suites" Then     'äæÚ ÇáÛÑÝÉ
    If Left(Me.[room-id], 2) <> 2 Then
          MsgBox "íÌÈ Çä íÈÏà ÈÇáÑÞã 2"
          Cancel = True
    ElseIf SumDigits(Me.[room-id]) = 3 Then
          MsgBox "íÌÈ Çä íßæä ÇáãÌãæÚ íÓÇæí 3"
          Cancel = True
    End If
End If

End Sub



End Sub

#18

شكر احي ولكن هذا الكود لا يعمل لدي ؟؟؟

مواضيع مشابهة