ابو البشر

اذا صيغتها محولة الى mde او accede بمكن استيراد الجداول فقط

لا يمكن الا بمعرفة كلمة مرور القاعدة نفسها

عند تحويل القاعدة الى صيغة made او accede لا يمكن تعديل او الاستيراد نماذج او تقارير او وحدات نمطية فيها ... لانها اصبحت محمية

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

هل جربت المرفق

جرب المرفق .... اذا ناسبك ... طبق نفس تنسيق النموذج ...... ابو البشر.accdb

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

هل تحتاج ظهور التاسك مع برنامجك ... اذا كان لا ... ضع كود لاخفاء التاسك

عند حدث عداد الوقت ضع هذا الحدث واعطي العداد 1000 For Each ctl In Me.Form.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl) Then For Each ctl1 In Me.Form.Controls ctl.BackColor = vbRed Next ctl1 Else ctl.BackColor = vbYellow End If End If Next ctl

توضح اكثر .... هل تريد تلوين كل الحقول عند توفر شرط معين ..... اذا كانت الاجابة نعم فعليك بكتابة ذلك بالكود

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

وعليكم السلام ورحمة الله وبركاته جزاك الله خيرا اخي @ابوبسمله جاري التطبيق ....

تفضل ...................... Invoice.rar

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

تفضل ..... اكمل تقرير للاستعلام .... Dtabase.accdb

هل هذا طلبك ....

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

ارفق لنا شكل النموذج بارك الله فيك لنتمكن من فهم طريقة العمل في النموذج ؟؟؟

طيب اخي الكريم ..... تم حل مشكلتين لديك وهي : - البحث في حقلين - مشكل الرمز * بقية مشكلة الحماية والاستيراد من ملف الاكسل ... ( افرد لها موضوعين مستقلين ) بارك الله فيك .................... استخدم الكود التالي :::::::: If IsNull(Me.searchtext) Or Me.searchtext = "*" Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub End If a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True Me.RecordSource = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area], [Coverage Area] & "" "" & [GOV] AS D FROM [On air 4G info sites] WHERE ((([Coverage Area] & "" "" & [GOV]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));"

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

اهلا بك اخي الكريم :::: هي ليست ثغرة بقدر ما انت تقول للبرنامج اعرض الكل هذا هو معني * اما بالنسبة لطلبك جرب استبدال الكود يالتالي ..... If IsNull(Me.searchtext) Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub End If a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True sq1 = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area] FROM [On air 4G info sites] WHERE ((([On air 4G info sites].[GOV]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));" Me.RecordSource = sq1 لماذا لا تجعلها في صفحة واحدة وعن طريق شيك بكس تحدد حقل البحث ....

لا انصحك بحفظها في القاعدة لانها تتسبب في تضخم القاعدة وربما تلفها ....

طيب ادخل الرقم السري .... وجرب ... Book Info.accdb

الرقم 123

طيب شوف كده ............ Book Info.accdb