اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

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

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

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

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

'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)


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

 

 

Required data (2).mdb

  • Like 6
رابط هذا التعليق
شارك

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

 

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

image.png.c107887f5a7dd01af8dc55d88573cf4a.png

.

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

image.png.0d1b224a1bc3b40176b901151e115d01.png

.

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

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

 

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

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

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

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

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

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

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

  • Haha 1
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

 

جعفر

  • Haha 2
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه ابا جودى
  • Like 2
رابط هذا التعليق
شارك

السلام عليكم 

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 7 months later...

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

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

مع الشكر 🌹

رابط هذا التعليق
شارك

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

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

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

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

انظر للصورة

image.png.577d52fa36b04a79fe10be0924c028e0.png

كل حقل مطلوب اعمل ال 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 الخاصة به كما بالصورة الاتية
لاننى وضعت الاكواد فى الموديول تعتمد عليها
rEQ.png.e1d9f39b89c93df6bc3a5ec66141d362.png

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

'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)


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

 

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

عمل رائع

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

تم التحميل 

شكراً جزيلاً 

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

 

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

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

 

 

رابط هذا التعليق
شارك

12 hours ago, Eng.Qassim said:

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

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

انظر للصورة

image.png.577d52fa36b04a79fe10be0924c028e0.png

كل حقل مطلوب اعمل ال 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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

RequiredData

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

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information