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

[safaa salem5]

عندى فورم للاعدادات اسمه

settings_general_frm

عايزه لو المستخدم علم امام اسم المريض ثلاثي

لو الاسم اتكتب  اقل من 3 مقاطع تخرج رساله برجاء كتابة الاسم كاملا

نفس الكلام بالنسبه تأكيد رقم الموبايلlab2.accdb

 

lab2.accdb

[محمد احمد لطفى]

تفضلى بالتوفيق

 

lab22.accdb

[safaa salem5]

21 minutes ago, محمد احمد لطفى said:

تفضلى بالتوفيق

 

lab22.accdb 624 kB · 2 downloads

استاذ محمد انا عايزاه قبل ماينفذ القيد دايروح يشوف القيمه اللى فى جدول الاعدادات  لو  بتساوى -1

يعمل الكلام دا

والا فلا

Just now, safaa salem5 said:

استاذ محمد انا عايزاه قبل ماينفذ القيد دايروح يشوف القيمه اللى فى جدول الاعدادات  لو  بتساوى -1

يعمل الكلام دا

والا فلا

بالداله 

dulookup

[Foksh]

بعيداً عن الكمبيوتر ، هذه مشاركة خارجية :-

 

Private Sub cmdSubmit_Click()
    ' التحقق من نوع الإدخال المختار
    If Me.optName.Value = True Then
        ' إذا كان اختيار الاسم محددًا
        If IsNull(Me.txtFullName.Value) Or Me.txtFullName.Value = "" Then
            MsgBox "الرجاء إدخال الاسم الثلاثي."
            Exit Sub
        End If
    ElseIf Me.optPhone.Value = True Then
        ' إذا كان اختيار الهاتف محددًا
        If IsNull(Me.txtPhoneNumber.Value) Or Me.txtPhoneNumber.Value = "" Then
            MsgBox "الرجاء إدخال رقم الهاتف."
            Exit Sub
        End If
    End If
End Sub

 

طبعاً لإجراءاتك تغيير المسميات حسب حاجتك.

48 دقائق مضت, safaa salem5 said:

يشوف القيمه اللى فى جدول الاعدادات  لو  بتساوى -

هل الموضوع دا له علاقة بالصلاحيات ؟؟

تم تعديل نوفمبر 20, 2023 بواسطه Foksh
تم حذف المسج في نهاية الكود ،

[safaa salem5]

5 minutes ago, Foksh said:

بعيداً عن الكمبيوتر ، هذه مشاركة خارجية :-

 

Private Sub cmdSubmit_Click()
    ' التحقق من نوع الإدخال المختار
    If Me.optName.Value = True Then
        ' إذا كان اختيار الاسم محددًا
        If IsNull(Me.txtFullName.Value) Or Me.txtFullName.Value = "" Then
            MsgBox "الرجاء إدخال الاسم الثلاثي."
            Exit Sub
        End If
    ElseIf Me.optPhone.Value = True Then
        ' إذا كان اختيار الهاتف محددًا
        If IsNull(Me.txtPhoneNumber.Value) Or Me.txtPhoneNumber.Value = "" Then
            MsgBox "الرجاء إدخال رقم الهاتف."
            Exit Sub
        End If
    End If
       MsgBox "تم استلام البيانات بنجاح!"
End Sub

 

طبعاً لإجراءاتك تغيير المسميات حسب حاجتك.

هل الموضوع دا له علاقة بالصلاحيات ؟؟

لا كدا تمام هجربها واقول لحضرتك

Just now, safaa salem5 said:

لا كدا تمام هجربها واقول لحضرتك

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

2 minutes ago, safaa salem5 said:

لا كدا تمام هجربها واقول لحضرتك

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

بص هو جدول الاعدادات منفصل عن الجدول اللى فيه ادخال الاسم والموبايل اعتقد لازم نقوله

dulookup

[safaa salem5]

5 minutes ago, safaa salem5 said:

لا كدا تمام هجربها واقول لحضرتك

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

بص هو جدول الاعدادات منفصل عن الجدول اللى فيه ادخال الاسم والموبايل اعتقد لازم نقوله

dulookup

وممكن تفهمنى هو فين فى الكود الجزئيه اللى بتقول ان الاسم لازم ثلاثى

يعنى اتكتب الاسم

محمد

او

محمد احمد

يرفض 

لكن لو اتكتب 

محمد احمد محمد

مثلا 

يقبل

مش فكره ان الحقل مش يكون فارغ بس

[Foksh]

اختي الكريمه لاحظي إنه دائماً في طلباتك يكون هناك نقص إما في الموضوع ، أو الشرح ، أو المرفق ؟؟

يعني سؤالي لك بناءً على الصورة هل يوجد حقول في النموذج المرفق من حضرتك لتعبئتها ( مثلاً ) ؟؟

لإنه في طلبك لاحقاً عايزه الكود يعمل بحث في سجلات جدول باستخدام الدالة Dlookup.

 

أرجو منك كالعادة بشكل واضح تفسير طلبك وإرفاق مرفق يحتوي على كامل الكائنات ( مربعات نص أو ازرار .... إلخ ) لتوفير الوقت على الإخوة لتقديم المساعدة.

أيضاً توضيح العلاقة بين النموذجين في الصورة لتكتمل الصورة.

تقبلي تعليقي بصدر رحب 

تم تعديل نوفمبر 20, 2023 بواسطه Foksh

[safaa salem5]

6 minutes ago, Foksh said:

اختي الكريمه لاحظي إنه دائماً في طلباتك يكون هناك نقص إما في الموضوع ، أو الشرح ، أو المرفق ؟؟

يعني سؤالي لك بناءً على الصورة هل يوجد حقول في النموذج المرفق من حضرتك لتعبئتها ( مثلاً ) ؟؟

لإنه في طلبك لاحقاً عايزه الكود يعمل بحث في سجلات جدول باستخدام الدالة Dlookup.

 

أرجو منك كالعادة بشكل واضح تفسير طلبك وإرفاق مرفق يحتوي على كامل الكائنات ( مربعات نص أو ازرار .... إلخ ) لتوفير الوقت على الإخوة لتقديم المساعدة.

أيضاً توضيح العلاقة بين النموذجين في الصورة لتكتمل الصورة.

تقبلي تعليقي بصدر رحب 

ماشى ماتزعلش 

انا والله حاطه ملف البرنامج  مع الصور

[Foksh]

2 دقائق مضت, safaa salem5 said:

ماشى ماتزعلش 

انا والله حاطه ملف البرنامج  مع الصور

أنا مش زعلان والله ، أنا بتكلم علشان موضوعك يكون نتيجة الحل سليمة وسلسة وسهلة بنفس الوقت لما تكون المعطيات واضحة .

[safaa salem5]

4 minutes ago, Foksh said:

أنا مش زعلان والله ، أنا بتكلم علشان موضوعك يكون نتيجة الحل سليمة وسلسة وسهلة بنفس الوقت لما تكون المعطيات واضحة .

انا والله بحاول اوصل وجهة نظرى حسب ما انا فاهمه وحسب ما اتعلمت منكم انتو أساتذتي وهفضل اتعلم منكم 

[Foksh]

بدايةً كلنا هنا بنتعلم من بعض وأنا أولكم وما زلت أتعلم المعلومة اللي ما اكتملت لدي.

على العموم ، بشكل واضح منك اعطينا معطيات طلبك بتوضيح بناءً على هذه النقاط ؟؟

1. توضيح العلاقة بين النموذجين في الصورة حتى يستند الحل عليها.

2. توضيح نقطة الاسم من 3 مقاطع ( مصدر الأسماء من اي جدول ؟

*. بالاعتماد على النقطة 2 سيتم عمل البحث بالدالة Dlookup.

[Foksh]

بدايةً هذه فكرة للتحقق ما اذا كان الاسم من 3 مقاطع أو لأ في الزرار ( Be Sure ) في نموذج الاعدادات الخاص بك ، وانتي طبقيها حسب رغبتك .

lab2.accdb

تم تعديل نوفمبر 20, 2023 بواسطه Foksh

[safaa salem5]

18 hours ago, Foksh said:

بدايةً هذه فكرة للتحقق ما اذا كان الاسم من 3 مقاطع أو لأ في الزرار ( Be Sure ) في نموذج الاعدادات الخاص بك ، وانتي طبقيها حسب رغبتك .

lab2.accdb 1.66 MB · 8 downloads

بص انا هشرح لحضرتك بتفاصيل اكتر

عندى حقل  اسمه

pname

فى فورم اسمه

reservation_frm

مصدره جدول اسمه

reservation_tbl

عايزه اول ما اكتب الاسم فى حقل 

pname

يشوف القيمه اللى فى حقل

زرار الاوبشن اللى اسمه

full_name

اللى موجود فى فورم اسمه

settings_general_frm

اللى مصدره جدول اسمه

settings_general_tbl

لو بتساوى-1

فى الحاله دى تخرج رساله برجاء كتابة الاسم ثلاثى

 

ولو القيمه بتساوى صفر

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

 

نفس الكلام بالنسبه للموبايل

اتمنى اكون قدرت اوصلك طلبى وعاجزه عن الشكر

 

[Foksh]

40 دقائق مضت, safaa salem5 said:

بص انا هشرح لحضرتك بتفاصيل اكتر

عندى حقل  اسمه

pname

فى فورم اسمه

reservation_frm

مصدره جدول اسمه

reservation_tbl

عايزه اول ما اكتب الاسم فى حقل 

pname

 

اسمحي لي بمناقشة سريعة من باب التوضيح أكتر 

في النموذج (reservation_frm) يكون مصدره الجدول (reservation_tbl) صح ؟؟ صح , والحقل (pname) قائمة منسدله مصدرها حقل يحتوي بيانات سابقاً في نفس الجدول صح ؟؟ صح , إذاً كيف سأشترط عليه أن يتأكد من عدد مقاطع الإسم إن كان تم إدخاله سابقاً ( لربما قمت بإدخال البيانات في نموذج آخر سابقاً وهناك يجب أن يكون الشرط قبل التخزين - على حسب ما فهمت من تخيلي لمسار البيانات ) صح ؟؟  

 

متابع معكم بعد العودة للبيت بإذن الله

[Eng.Qassim]

السلام عليكم ..والله مش عارف ابتدي منين الحكاية !!

الجدول settings_general_tbl ليس له علاقة بالحقل الغير مرتبط  txtFullName 

ولهذا كيف سيتم التحقق من pname في النموذج reservation_frm

بصي يا استاذة...انا قرأت مشاركتك عدة مرات ولم افهم العلاقة بين النموذجين

ممكن حضرتك ..قبل الدخول في البرمجة ...تشرحي لنا ايه الغاية ؟

يعني بأختصار ..اي اللي في بالك تعمليه 

تحياتي للجميع  

[safaa salem5]

ياجماعه انا عامله جدول خاص لاعدادات البرنامج

و عايزه اخلى المستخدم يختار طريقة ادخال الاسم 

فى ناس بتحب ان الاسم لازم يكون كامل

وفى ناس عادى 

عايزه ادى اتاحه للمستخدم حرية اختيار طريقة ادخال الاسم

 

[Eng.Qassim]

مافي حاجة لعمل النموذج settings_general_frm

اعملي الخيارات في نفس النموذج reservation_frm

استخدمي نفس كود الاستاذ @Foksh.. وقبلها يكون 

if full_name then 

 

[safaa salem5]

1 hour ago, safaa salem5 said:

ياجماعه انا عامله جدول خاص لاعدادات البرنامج

و عايزه اخلى المستخدم يختار طريقة ادخال الاسم 

فى ناس بتحب ان الاسم لازم يكون كامل

وفى ناس عادى 

عايزه ادى اتاحه للمستخدم حرية اختيار طريقة ادخال الاسم

 

اعتقد ممكن تتعمل كدا

DLookUp("[full_name]","[settings_general_tbl]") 

لو القيمه -1

يمنع

51 minutes ago, Eng.Qassim said:

مافي حاجة لعمل النموذج settings_general_frm

اعملي الخيارات في نفس النموذج reservation_frm

استخدمي نفس كود الاستاذ @Foksh.. وقبلها يكون 

if full_name then 

 

الفكره ان عندى اعدادات كتيره مجمعاها مع بعض فى فورم واحد  بالشكل دا

 

تم تعديل نوفمبر 21, 2023 بواسطه safaa salem5

[UserUser2]

31 دقائق مضت, safaa salem5 said:

ياجماعه انا عامله جدول خاص لاعدادات البرنامج

و عايزه اخلى المستخدم يختار طريقة ادخال الاسم 

فى ناس بتحب ان الاسم لازم يكون كامل

وفى ناس عادى 

عايزه ادى اتاحه للمستخدم حرية اختيار طريقة ادخال الاسم

 

Select Case DLookup("full_name", "settings_general_tbl")
Case Is = True
    ' فحص إذا كانت الكلمات أقل من ثلاثة
    If WordCount(fullName) < 3 Then
        MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
        Cancel = True
    End If
    Exit Sub
Case Is = False
End Select
End Sub
ده الحل ان شاء الله 

 

[kkhalifa1960]

ممكن مداخلة بعد اذنكم جميعاً .

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

DD423.accdb

[safaa salem5]

Just now, UserUser2 said:

Select Case DLookup("full_name", "settings_general_tbl")
Case Is = True
    ' فحص إذا كانت الكلمات أقل من ثلاثة
    If WordCount(fullName) < 3 Then
        MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
        Cancel = True
    End If
    Exit Sub
Case Is = False
End Select
End Sub
ده الحل ان شاء الله 

 

برافو عليك 

انا عماله اقول هنستخدم

DLookup

بس محدش فاهمنى

Just now, safaa salem5 said:

برافو عليك 

انا عماله اقول هنستخدم

DLookup

بس محدش فاهمنى

هجرب وارد عليك

[safaa salem5]

16 minutes ago, UserUser2 said:

Select Case DLookup("full_name", "settings_general_tbl")
Case Is = True
    ' فحص إذا كانت الكلمات أقل من ثلاثة
    If WordCount(fullName) < 3 Then
        MsgBox "برجاء كتابة الاسم كاملاً.", vbExclamation, "تحذير"
        Cancel = True
    End If
    Exit Sub
Case Is = False
End Select
End Sub
ده الحل ان شاء الله 

 

بيدينى خطأ على كلمةwordcount

لو ممكن تطبيقها عالملف

18 minutes ago, kkhalifa1960 said:

ممكن مداخلة بعد اذنكم جميعاً .

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

DD423.accdb 524 kB · 1 download

مش مهم عندى اوى الاسماء المركبه

[safaa salem5]

23 hours ago, محمد احمد لطفى said:

تفضلى بالتوفيق

 

lab22.accdb 624 kB · 8 downloads

الملف دا شغال كويس بس انا عايزه احطله الشروط قبل ماينفذ

[محمد احمد لطفى]

ده بالنسبة للموبايل 
 

If DLookup("[mobile]", "[settings_general_tbl]", "-1") Then

else

End If


If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then

else

End If

غير موبايل باى حقل تانى و اكتبى الشروط الى حضرتك عاوزها هل هذا هو المطلوب

تم تعديل نوفمبر 21, 2023 بواسطه محمد احمد لطفى

[safaa salem5]

40 minutes ago, محمد احمد لطفى said:

ده بالنسبة للموبايل 
 

If DLookup("[mobile]", "[settings_general_tbl]", "-1") Then

else

End If


If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then

else

End If

غير موبايل باى حقل تانى و اكتبى الشروط الى حضرتك عاوزها هل هذا هو المطلوب

شكرا لحضرتك يابشمهندس محمد

اشتغلت تمام معايا

بارك الله فيك وجزاكم جميعا كل خير

42 minutes ago, محمد احمد لطفى said:

ده بالنسبة للموبايل 
 

If DLookup("[mobile]", "[settings_general_tbl]", "-1") Then

else

End If


If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then

else

End If

غير موبايل باى حقل تانى و اكتبى الشروط الى حضرتك عاوزها هل هذا هو المطلوب