التحقق من الحقول المطلوبة شخابيط وافكار : ( بيانات مطلوب (*) , التحقق من استكمال البيانات المطلوبة )

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته

يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة 

يمكن ذلك من خلال الفكرة الاتية  ولكن بشرط
اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز  * فى الـ Tag الخاصة به كما بالصورة الاتية
لاننى وضعت الاكواد فى الموديول تعتمد عليها

والان الاكواد داخل الموديول 

'RequiredData
Function RequiredData(ByVal frm As Form)
On Error Resume Next

 Dim ctl As Control
 Dim err As Integer
    For Each ctl In frm.Controls
       Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup:
            'If ctl.StatusBarText = "*" Then
            If ctl.Tag = "*" Then
              If IsNull(ctl) Or ctl = "" Or ctl = Null Then
                ctl.BackColor = 15531489
                  ctl.SetFocus
                    err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function
    Exit For
              Exit Function
              Else
                ctl.BackColor = 16777215
              End If
            End If
       End Select
    Set ctl = Nothing
    Next ctl
End Function

 ويتم استدعاء الكود من خلال 

  Call RequiredData(Me)

اترككم مع الاستمتاع بالتجربـة وفى انتظار ارائكم 

 

 

Required data (2).mdb

[jjafferr]

وعليكم السلام 🙂

 

في اعدادات الاكسس ، قم بإختيار status bar (في الدائرة الحمراء)

.

فلما تأتي للنموذج ، تجد ان القيمة موجودة هنا (السهم الاحمر)  🙂

.

لذلك ، استخدم Tag بدلا عن Status Bar Text ، لأن الاكسس قد يستعمل هذه الخاصية ، وتختفي علامة * ويتم استبدالها بقيمة اخرى🙂

 

جعفر

[ابو جودي]

6 دقائق مضت, jjafferr said:

لذلك ، استخدم Tag بدلا عن Status Bar Text ، لأن الاكسس قد يستعمل هذه الخاصية ، وتختفي علامة * ويتم استبدالها بقيمة اخرى🙂

 

أستاذي الجليل ومعلمي القدير و والدى الحبيب الأستاذ @jjafferr  تحية طيبة مباركة 

أولا : اشكر حضرتك على توضيح المعلومة والتصحيح واخصكم بالشكر لبالغ كرمكم انكم حاولتم إرشادي في رسالة خاصة على اعتبار اللقب مثلا الذى أهدتني إياه إدارة المنتديات وكان بالغ كرم من سيادتكم ان توجيهي قد يقلل من شأني أو يزعجني.
سيدى الجليل والله كونى طالب علم وانهل من ربوع وبحور علمك هو اعلى وسام و تقدير قد احصل عليه يوما وبالنسبة لي تلك اعلى المراتب ولا أتمنى غيرها
اقسم بالله لو قابلتكم الان لقبلت ارجلكم قبل اياديكم وهذا اقل حقوكم على
أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس ..
وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى ..
وأن يجعل السعادة رفيقتكم في الدنيا والآخرة.. اللهم آمين.

ــــــــــــــــــــــــــــــــــــ

الان بخصوص تلك الجزئية هي جديدة على بكل صراحة فلم اتعمق او أحاول في اعدادات الاكسس ولكن غيرت الاعدادات ولم يحصل شيء 
 

المشكلة التي وضعتني فيها حضرتك الان أنى كنت انوى استخدام التاج في روتين عام اخر لإضافة البيانات من النموذج الى الجدول 

طبعا ممكن حذ يسأل طيب ليه التاج في ادراج البيانات
لان أحيانا نضع مربعات نص مخفية مثلا لإجراء معين ولا نريد الحاق القيم منها الى حقول الجدول وبالكود الموجود في الروتين سوف تحدث مشكلة 

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

وطبعا لابد من الفصل من بين الحقول الاجبارية والتي قد لا تكون كلها اجبارية 
وبين الحقول التي نريد تعبئة البيانات منها والتي كذلك قد لا تكون كل البيانات من كل الحقول 

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

[kanory]

12 دقائق مضت, ابا جودى said:

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

بل انت انسان عسل وسهل وانا شخصيا اعتبرك فاكهة المنتدي .... ما شاء الله عليك ..... بارك الله فيك وفي تواضعك الجم .... أسأل الله تعالى لك وللجميع التوفيق ,,,,,

[ابو جودي]

3 دقائق مضت, kanory said:

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

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

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

[jjafferr]

منذ ساعه, ابا جودى said:

وليكن عمل التاج من نصفين وفصل كل نص

نعم تقدر تستفيد من هذه الطريقة 🙂

 

48 دقائق مضت, kanory said:

فاكهة المنتدي

قام حظك ابو جودي 🙂

 

جعفر

[ابو جودي]

تنويه هام
ـــــــــــــــــــــ

تم تعديل المرفق والكود والشرح بناء على تعليمات وتوجيهات استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr 

الله لا يحرمنا منكم استاذى الجليل 

[abouelhassan]

جزاك الله عنا خيرا يارب

شكر من القلب

اخيك ياحترام

[Eng.Qassim]

شكرا استاذ @ابا جودى

ملاحظة: لقد وضعت تاك لجميع الحقول (حتى الغير مطلوبة)

حتى لا تقول لايوجد متابعين 😄

[ابو جودي]

منذ ساعه, Eng.Qassim said:

شكرا استاذ @ابا جودى

ملاحظة: لقد وضعت تاك لجميع الحقول (حتى الغير مطلوبة)

حتى لا تقول لايوجد متابعين 😄

معلش يا باش مهندس موضوع الصلاحيات متشعب والتعديل عليه مش بيكون ببساطه

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

تم تعديل نوفمبر 6, 2021 بواسطه ابا جودى

[الحلبي]

السلام عليكم 

دائما احضر متاخرا

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

هذا المرفق جميل جدا استاذ / محمد ووفر عليا انا شخصيا اكواد كثيرة كانت مليئة فى البرنامج

جعله الله فى ميزان حسناتك وربى يعطيك الصحة والعافية دائما 

تم تعديل نوفمبر 6, 2021 بواسطه الحلبي

[abouelhassan]

متابعين بشغف يا استاذنا والله ربنا يحفظك يارب

 

[Eng.Qassim]

25 دقائق مضت, الحلبي said:

ليس بفاكهة المنتدى

اضم صوتي لصوتك دكتور..

لا ابخس الاساتذة حقهم .. لكن استاذ محمد لاطروحاته نكهة خاصة

[Moosak]

ما شاء الله عليك يا باش مهندس ..

ما لاحقين عليك من كثر الأفكار والروائع اللي تتحفنا بها كل يوم 😅

الله يزيدك من علمه وتوفيقه ..

[ابو عبد الله العراقي]

بصراحة استاذي العزيز 

قاعدة البيانات لايمكن قراءتها ارجو اعادة تحميلها من جديد 

[ابو عبد الله العراقي]

اخي العزيز ابو جودي 

هل يمكنك اعادة تحميل قاعدة بيانات Required  من جديد ، او يمكن بصيغة اخرى لان هذه القاعدة المرفوعة لا تعمل او لا يمكن فتحها .

مع الشكر 🌹

[Eng.Qassim]

9 ساعات مضت, ابو عبد الله العراقي said:

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

لديك مشكلة في التحميل اخي @ابو عبد الله العراقي

اعمل البرنامج بنفسك وهو ليس صعبا

انظر للصورة

كل حقل مطلوب اعمل ال Tag=*

ثم انسخ الموديول  والصقة لديك

Function RequiredData(ByVal frm As Form)
On Error Resume Next

 Dim ctl As Control
 Dim err As Integer
    For Each ctl In frm.Controls
       Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup:
            If ctl.Tag = "*" Then
              If IsNull(ctl) Or ctl = "" Or ctl = Null Then
                ctl.BackColor = 15531489
                  ctl.SetFocus
                    err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function
    Exit For
              Exit Function
              Else
                ctl.BackColor = 16777215
              End If
            End If
       End Select
    Set ctl = Nothing
    Next ctl
End Function

وانظر لهذا السطر ...الذي يمر على جميع مربعات النصوص التي يكون ال Tag=*

If ctl.Tag = "*" Then

فحينما يجد المربع فارغ يعطيك تحذير ويغير لون الخلفية

[محمد القدسي]

استاذي العزيز ابي جودي

واذا كان النموذج فرعي ورقة بيانات وزر الحفظ في النموذج الرئيسي كيف يكون الكود استاذي

اذا كانت هناك حقول فارغة في سجلات ورقة البيانات

[ابو عبد الله العراقي]

On 11/6/2021 at 6:31 AM, ابو جودي said:

السلام عليكم ورحمة الله تعالى وبركاته

يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة 

يمكن ذلك من خلال الفكرة الاتية  ولكن بشرط
اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز  * فى الـ Tag الخاصة به كما بالصورة الاتية
لاننى وضعت الاكواد فى الموديول تعتمد عليها

والان الاكواد داخل الموديول 

'RequiredData
Function RequiredData(ByVal frm As Form)
On Error Resume Next

 Dim ctl As Control
 Dim err As Integer
    For Each ctl In frm.Controls
       Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup:
            'If ctl.StatusBarText = "*" Then
            If ctl.Tag = "*" Then
              If IsNull(ctl) Or ctl = "" Or ctl = Null Then
                ctl.BackColor = 15531489
                  ctl.SetFocus
                    err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function
    Exit For
              Exit Function
              Else
                ctl.BackColor = 16777215
              End If
            End If
       End Select
    Set ctl = Nothing
    Next ctl
End Function

 ويتم استدعاء الكود من خلال 

  Call RequiredData(Me)

اترككم مع الاستمتاع بالتجربـة وفى انتظار ارائكم 

 

عاشت اخوي العزيز ابو جودي 

عمل رائع

المشكلة كانت في الاصدار  

تم التحميل 

شكراً جزيلاً 

Required data (2).mdb 244 kB · 63 downloads

 

2 minutes ago, ابو عبد الله العراقي said:

عاشت ايدك اخوي العزيز ابو جودي 

 

 

[ابو عبد الله العراقي]

12 hours ago, Eng.Qassim said:

لديك مشكلة في التحميل اخي @ابو عبد الله العراقي

اعمل البرنامج بنفسك وهو ليس صعبا

انظر للصورة

كل حقل مطلوب اعمل ال Tag=*

ثم انسخ الموديول  والصقة لديك

Function RequiredData(ByVal frm As Form)
On Error Resume Next

 Dim ctl As Control
 Dim err As Integer
    For Each ctl In frm.Controls
       Select Case ctl.ControlType
         Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup:
            If ctl.Tag = "*" Then
              If IsNull(ctl) Or ctl = "" Or ctl = Null Then
                ctl.BackColor = 15531489
                  ctl.SetFocus
                    err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function
    Exit For
              Exit Function
              Else
                ctl.BackColor = 16777215
              End If
            End If
       End Select
    Set ctl = Nothing
    Next ctl
End Function

وانظر لهذا السطر ...الذي يمر على جميع مربعات النصوص التي يكون ال Tag=*

If ctl.Tag = "*" Then

فحينما يجد المربع فارغ يعطيك تحذير ويغير لون الخلفية

 

اخي الكريم 

انا عملت البرنامج هو اشتغل يتم تأشير مربع النص الفارغ لكن لا تظهر الرسالة ؟؟؟

 

fullName after.rar

[Eng.Qassim]

2 ساعات مضت, ابو عبد الله العراقي said:

يتم تأشير مربع النص الفارغ لكن لا تظهر الرسالة ؟

اعمل نموذج اخر وامسح النموذج Form1

واجعل مصدر بياناته الجدول..وسيشتغل معك باذن الله

[ابو عبد الله العراقي]

السلام عليكم 

عاشت ايدك اخوي العزيز 

تم تبديل النموذج بنموذج جديد وتمت العملية بنجاح 

🌹 شكراً جزيلاً 🌹

[ابو عبد الله العراقي]

الاخ العزيز ابو جودي 

هي يمكن تعديل كود 

RequiredData

بحيث اذا كانت جميع الحقول مملوئة بالبيانات ينتقل إلى سجل جديد ؟؟؟