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

[safaa salem5]

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

settings_general_frm

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

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

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

 

lab2.accdbFetching info...

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

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

 

lab22.accdbFetching info...

[safaa salem5]

  في 20‏/11‏/2023 at 21:00, محمد احمد لطفى said:

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

 

lab22.accdb 624 kB · 2 downloads

Expand  

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

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

والا فلا

  في 20‏/11‏/2023 at 21:24, safaa salem5 said:

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

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

والا فلا

Expand  

بالداله 

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

 

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

  في 20‏/11‏/2023 at 21:24, safaa salem5 said:

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

Expand  

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

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

[safaa salem5]

  في 20‏/11‏/2023 at 21:38, 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

 

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

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

Expand  

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

  في 20‏/11‏/2023 at 21:44, safaa salem5 said:

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

Expand  

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

  في 20‏/11‏/2023 at 21:44, safaa salem5 said:

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

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

Expand  

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

dulookup

[safaa salem5]

  في 20‏/11‏/2023 at 21:44, safaa salem5 said:

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

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

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

dulookup

Expand  

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

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

محمد

او

محمد احمد

يرفض 

لكن لو اتكتب 

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

مثلا 

يقبل

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

[Foksh]

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

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

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

 

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

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

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

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

[safaa salem5]

  في 20‏/11‏/2023 at 22:08, Foksh said:

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

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

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

 

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

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

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

Expand  

ماشى ماتزعلش 

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

[Foksh]

  في 20‏/11‏/2023 at 22:15, safaa salem5 said:

ماشى ماتزعلش 

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

Expand  

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

[safaa salem5]

  في 20‏/11‏/2023 at 22:18, Foksh said:

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

Expand  

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

[Foksh]

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

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

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

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

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

[Foksh]

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

lab2.accdbFetching info...

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

[safaa salem5]

  في 20‏/11‏/2023 at 22:57, Foksh said:

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

lab2.accdb 1.66 MB · 8 downloads

Expand  

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

عندى حقل  اسمه

pname

فى فورم اسمه

reservation_frm

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

reservation_tbl

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

pname

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

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

full_name

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

settings_general_frm

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

settings_general_tbl

لو بتساوى-1

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

 

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

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

 

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

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

 

[Foksh]

  في 21‏/11‏/2023 at 18:07, safaa salem5 said:

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

عندى حقل  اسمه

pname

فى فورم اسمه

reservation_frm

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

reservation_tbl

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

pname

 

Expand  

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

في النموذج (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]

  في 21‏/11‏/2023 at 19:35, safaa salem5 said:

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

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

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

وفى ناس عادى 

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

 

Expand  

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

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

لو القيمه -1

يمنع

  في 21‏/11‏/2023 at 19:52, Eng.Qassim said:

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

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

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

if full_name then 

 

Expand  

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

 

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

[UserUser2]

  في 21‏/11‏/2023 at 19:35, safaa salem5 said:

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

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

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

وفى ناس عادى 

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

 

Expand  

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.accdbFetching info...

[safaa salem5]

  في 21‏/11‏/2023 at 20:07, 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
ده الحل ان شاء الله 

 

Expand  

برافو عليك 

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

DLookup

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

  في 21‏/11‏/2023 at 20:09, safaa salem5 said:

برافو عليك 

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

DLookup

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

Expand  

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

[safaa salem5]

  في 21‏/11‏/2023 at 20:07, 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
ده الحل ان شاء الله 

 

Expand  

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

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

  في 21‏/11‏/2023 at 20:08, kkhalifa1960 said:

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

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

DD423.accdb 524 kB · 1 download

Expand  

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

[safaa salem5]

  في 20‏/11‏/2023 at 21:00, محمد احمد لطفى said:

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

 

lab22.accdb 624 kB · 8 downloads

Expand  

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

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

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

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]

  في 21‏/11‏/2023 at 21:19, محمد احمد لطفى said:

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

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

else

End If


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

else

End If

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

Expand  

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

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

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

  في 21‏/11‏/2023 at 21:19, محمد احمد لطفى said:

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

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

else

End If


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

else

End If

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

Expand