ابو البشر

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

عند حدث عداد الوقت ضع هذا الحدث واعطي العداد 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

طبعا وفبل كل شيئ هناك طرق اكثر احترافية في المنتدى للقيام بحماية قاعدة البيانات ولكن انظر لهذة الطريقة البسيطة ربما تفي بالقرض .... Book Info.accdb

جرب المرفق ...... Book Info.accdb

اذكر موضوع للاستاذ . @jjafferr حول هذا الامر ... ابحث عنه في المنتدى وسوف تجده

تفضل ...

السلام عليكم ورحمة الله وبركاته القلب يعتصر حزنا وانا اكتب لكم ... اغلاق منتدى شقيق ... منتديات الاكسس والوورد ....

ادخل على اول موضوع في المنتدى