ابو جودي قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 السلام عليكم ورحمة الله تعالى وبركاته يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة يمكن ذلك من خلال الفكرة الاتية ولكن بشرط اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز * فى الـ 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 6
jjafferr قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 وعليكم السلام 🙂 في اعدادات الاكسس ، قم بإختيار status bar (في الدائرة الحمراء) . فلما تأتي للنموذج ، تجد ان القيمة موجودة هنا (السهم الاحمر) 🙂 . لذلك ، استخدم Tag بدلا عن Status Bar Text ، لأن الاكسس قد يستعمل هذه الخاصية ، وتختفي علامة * ويتم استبدالها بقيمة اخرى🙂 جعفر 2
ابو جودي قام بنشر نوفمبر 6, 2021 الكاتب قام بنشر نوفمبر 6, 2021 6 دقائق مضت, jjafferr said: لذلك ، استخدم Tag بدلا عن Status Bar Text ، لأن الاكسس قد يستعمل هذه الخاصية ، وتختفي علامة * ويتم استبدالها بقيمة اخرى🙂 أستاذي الجليل ومعلمي القدير و والدى الحبيب الأستاذ @jjafferr تحية طيبة مباركة أولا : اشكر حضرتك على توضيح المعلومة والتصحيح واخصكم بالشكر لبالغ كرمكم انكم حاولتم إرشادي في رسالة خاصة على اعتبار اللقب مثلا الذى أهدتني إياه إدارة المنتديات وكان بالغ كرم من سيادتكم ان توجيهي قد يقلل من شأني أو يزعجني. سيدى الجليل والله كونى طالب علم وانهل من ربوع وبحور علمك هو اعلى وسام و تقدير قد احصل عليه يوما وبالنسبة لي تلك اعلى المراتب ولا أتمنى غيرها اقسم بالله لو قابلتكم الان لقبلت ارجلكم قبل اياديكم وهذا اقل حقوكم على أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخرة.. اللهم آمين. ــــــــــــــــــــــــــــــــــــ الان بخصوص تلك الجزئية هي جديدة على بكل صراحة فلم اتعمق او أحاول في اعدادات الاكسس ولكن غيرت الاعدادات ولم يحصل شيء المشكلة التي وضعتني فيها حضرتك الان أنى كنت انوى استخدام التاج في روتين عام اخر لإضافة البيانات من النموذج الى الجدول طبعا ممكن حذ يسأل طيب ليه التاج في ادراج البيانات لان أحيانا نضع مربعات نص مخفية مثلا لإجراء معين ولا نريد الحاق القيم منها الى حقول الجدول وبالكود الموجود في الروتين سوف تحدث مشكلة لا تقلقل سوف افكر في حل ما وليكن عمل التاج من نصفين وفصل كل نص وتبعا للقيم يتم عمل الكود من خلال الروتين وطبعا لابد من الفصل من بين الحقول الاجبارية والتي قد لا تكون كلها اجبارية وبين الحقول التي نريد تعبئة البيانات منها والتي كذلك قد لا تكون كل البيانات من كل الحقول اعرف انا انسان معقد واهتم كثيرا بتفاصيل دقيقة وصغيرة قد تخنق أحيانا 2
kanory قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 12 دقائق مضت, ابا جودى said: اعرف انا انسان معقد واهتم كثيرا بتفاصيل دقيقة وصغيرة قد تخنق أحيانا بل انت انسان عسل وسهل وانا شخصيا اعتبرك فاكهة المنتدي .... ما شاء الله عليك ..... بارك الله فيك وفي تواضعك الجم .... أسأل الله تعالى لك وللجميع التوفيق ,,,,, 1
ابو جودي قام بنشر نوفمبر 6, 2021 الكاتب قام بنشر نوفمبر 6, 2021 3 دقائق مضت, kanory said: بل انت انسان عسل وسهل وانا شخصيا اعتبرك فاكهة المنتدي .... الله يسعدك استأذى الجليل فاكهة المنتدى مرة واحدة الله يرضى عنك ويرضيك خد بالك اللى يبالغ كثير ينسى الاكواد انت حر صدقنى انا خايف ع الاكواد .. اقصد عليك 1
jjafferr قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 منذ ساعه, ابا جودى said: وليكن عمل التاج من نصفين وفصل كل نص نعم تقدر تستفيد من هذه الطريقة 🙂 48 دقائق مضت, kanory said: فاكهة المنتدي قام حظك ابو جودي 🙂 جعفر 2
ابو جودي قام بنشر نوفمبر 6, 2021 الكاتب قام بنشر نوفمبر 6, 2021 تنويه هام ـــــــــــــــــــــ تم تعديل المرفق والكود والشرح بناء على تعليمات وتوجيهات استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr الله لا يحرمنا منكم استاذى الجليل
abouelhassan قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 جزاك الله عنا خيرا يارب شكر من القلب اخيك ياحترام
Eng.Qassim قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 شكرا استاذ @ابا جودى ملاحظة: لقد وضعت تاك لجميع الحقول (حتى الغير مطلوبة) حتى لا تقول لايوجد متابعين 😄 1
ابو جودي قام بنشر نوفمبر 6, 2021 الكاتب قام بنشر نوفمبر 6, 2021 (معدل) منذ ساعه, Eng.Qassim said: شكرا استاذ @ابا جودى ملاحظة: لقد وضعت تاك لجميع الحقول (حتى الغير مطلوبة) حتى لا تقول لايوجد متابعين 😄 معلش يا باش مهندس موضوع الصلاحيات متشعب والتعديل عليه مش بيكون ببساطه وعلشان الاسئله عنه كثيرة كنت حابب نتشارك الافكار ونتطبق عملى خطوة بعد خطوة اولا علشان الموضوع يتفهم ثانيا علشان كل واحد يكون على درايه ايه اللى حصل علشان اللى حابب يعدل ويطوره مستقبلا تم تعديل نوفمبر 6, 2021 بواسطه ابا جودى 2
الحلبي قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 (معدل) السلام عليكم دائما احضر متاخرا الحقيقة ان الباشمهندس / محمد عصام ليس بفاكهة المنتدى فقط بل اخف دم قابلته ويلعب فى الاكسس كما يريد ولذلك هو مروض اكسس هذا المرفق جميل جدا استاذ / محمد ووفر عليا انا شخصيا اكواد كثيرة كانت مليئة فى البرنامج جعله الله فى ميزان حسناتك وربى يعطيك الصحة والعافية دائما تم تعديل نوفمبر 6, 2021 بواسطه الحلبي
abouelhassan قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 متابعين بشغف يا استاذنا والله ربنا يحفظك يارب
Eng.Qassim قام بنشر نوفمبر 6, 2021 قام بنشر نوفمبر 6, 2021 25 دقائق مضت, الحلبي said: ليس بفاكهة المنتدى اضم صوتي لصوتك دكتور.. لا ابخس الاساتذة حقهم .. لكن استاذ محمد لاطروحاته نكهة خاصة
Moosak قام بنشر نوفمبر 7, 2021 قام بنشر نوفمبر 7, 2021 ما شاء الله عليك يا باش مهندس .. ما لاحقين عليك من كثر الأفكار والروائع اللي تتحفنا بها كل يوم 😅 الله يزيدك من علمه وتوفيقه ..
ابو عبد الله العراقي قام بنشر يونيو 13, 2022 قام بنشر يونيو 13, 2022 بصراحة استاذي العزيز قاعدة البيانات لايمكن قراءتها ارجو اعادة تحميلها من جديد
ابو عبد الله العراقي قام بنشر يونيو 14, 2022 قام بنشر يونيو 14, 2022 اخي العزيز ابو جودي هل يمكنك اعادة تحميل قاعدة بيانات Required من جديد ، او يمكن بصيغة اخرى لان هذه القاعدة المرفوعة لا تعمل او لا يمكن فتحها . مع الشكر 🌹
Eng.Qassim قام بنشر يونيو 14, 2022 قام بنشر يونيو 14, 2022 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 فحينما يجد المربع فارغ يعطيك تحذير ويغير لون الخلفية
محمد القدسي قام بنشر يونيو 14, 2022 قام بنشر يونيو 14, 2022 استاذي العزيز ابي جودي واذا كان النموذج فرعي ورقة بيانات وزر الحفظ في النموذج الرئيسي كيف يكون الكود استاذي اذا كانت هناك حقول فارغة في سجلات ورقة البيانات
ابو عبد الله العراقي قام بنشر يونيو 15, 2022 قام بنشر يونيو 15, 2022 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: عاشت ايدك اخوي العزيز ابو جودي
ابو عبد الله العراقي قام بنشر يونيو 15, 2022 قام بنشر يونيو 15, 2022 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 قام بنشر يونيو 15, 2022 قام بنشر يونيو 15, 2022 2 ساعات مضت, ابو عبد الله العراقي said: يتم تأشير مربع النص الفارغ لكن لا تظهر الرسالة ؟ اعمل نموذج اخر وامسح النموذج Form1 واجعل مصدر بياناته الجدول..وسيشتغل معك باذن الله
ابو عبد الله العراقي قام بنشر يونيو 16, 2022 قام بنشر يونيو 16, 2022 السلام عليكم عاشت ايدك اخوي العزيز تم تبديل النموذج بنموذج جديد وتمت العملية بنجاح 🌹 شكراً جزيلاً 🌹
ابو عبد الله العراقي قام بنشر يونيو 18, 2022 قام بنشر يونيو 18, 2022 الاخ العزيز ابو جودي هي يمكن تعديل كود RequiredData بحيث اذا كانت جميع الحقول مملوئة بالبيانات ينتقل إلى سجل جديد ؟؟؟
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان