نجوم المشاركات

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

تنويه حتى لا يفهم الموضوع بشكل مغايير اولا بشأن الموضوع الاساسي ليس لدي اضافة على رد اساتذتنا الكرام بالنسبة لمشاركتي السابقة فهي دعابه مع اخي جعفر وبيننا اكثر من ذلك هنا وفي الخاص وايضا لبيان حركات الاعراب لجمع المذكر السالم فهمنا للغتنا واهتمامنا بها يسهل علينا فهم كتابنا الكريم وتدبر معانيه قال تعالى: (كتاب أنزلناه إليك مبارك ليدبروا آياته وليتذكر أولوا الألباب) صدق الله العظيم عن أنس بن مالك رضي الله عنه قال: قال رسول الله ﷺ ( لا يستقيم إيمان عبد حتى يستقيم قلبه، ولا يستقيم قلبه حتى يستقيم لسانه ) رواه أحمد والله الموفق

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

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

ادرج في الجدول ترقيم تلقائي واجعله مفتاح للجدول وفي التقرير افرز حسب هذا الحقل

اول شئ فى الجدول لازم تجعل التنسيق هكذا فى النموذج تأكد من انه ايضا مثل هذا التنسيق اما اذا اردت تنسيق الاستعلام جرب كل هذا واخبرني بالنتيجه

انت محتاج ترك مسافة بين كلمتين في كودك ، وتعديل كلمة كندا (بالانجليزي يا مرسي 😁) جرب هذا الكود ، واخبرنا بالنتيجة في اسفل صفحة الكود : Private Sub Form_Open(Cancel As Integer) debug.print LanguageName & " (" & CountryName & ")" If LanguageName & " (" & CountryName & ")" <> "English (Canada)" Then MsgBox "يرجى تغير اللغه لــ English(Canda)" End If End Sub جعفر

اخى الفاضل @محمد عبدالسلام السامعي الاستاذ محمد طاهر وضح لك اكثر من مره لن يستطيع احد مساعدتك لعدم التعدى ع حقوق الاخرين وقمت بعرض الموضوع بالمنتدى المفتوح وتم توضيح نفس الشىء لك بانه لن يستطيع احد مساعدتك بهذا لعدم التعدى ع حقوق الاخرين ومازلت تسال كيف نفسرها لك بانه حتى لو استطعنا فلن نقدر على تقديم المساعده لمثل هذه الحالات فتوجه للمبرمج لحفظ الحقوق بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خيرا وفيك بارك الله اخى @athal1 كفيت ووفيت ببساطه معلمنا وشيخنا الجليل جزاك الله خيرا 💐

تفضل اخي الفاضل Book2-M-H.xlsm

سوف اعطيك طريقة فريدة .. ستذكرني كلما استخدمتها قم بتقسيم قاعدة البيانات القاعدة الخلفية التي تشتمل على الجداول : 1- قم باخذ نسخ منها بعدد المستخدين 2- قم بتسمية كل نسخة بما يدل على المستخدم ( يجب ان تختلف تسمياتها لاننا لاحقا سوف نضمها في مجلد واحد ) 3- اربط الواجهة مع جداول المستخدم الاول ثم سلمها له 4- اربط الواجهة مع جداول المستخدم الثاني ثم سلمها له 5 - وهكذا مع بقية المستخدمين 6- قبل ارسالها للمستخدم نضع نسخة منها بجانب الواجهة التي تخصك الآن اصبح عندك برنامج يشتمل على قاعدة الواجهات وبجوارها القواعد الخلفية الخاصة بكل مستخدم الآن قم بربط الجداول التي تشتمل على البيانات الخاصة بكل مستخدم من كل قاعدة بيانات ستلاحظ ان اكسس يقبلها ولكنه يعدل في اسماء الجداول المتشابهة بزيادة رقم يمكنك ايضا بعد الربط تغيير اسماء الجداول المرتبطة بما يدل على المستخدم . نأتي للزبدة : كل ما ستقوم به مستقبلا هو انك تستقبل قاعدة بيانات المستخدم وتلصقها في مجلد البرنامج ثم توافق على الاستبدال في برنامجك تعمل استعلاما للجداول المرتبطة المتشابهة لجمع البيانات .. وسيكون هو مصدر بيانات النموذج والتقرير بهذه الطريقة لن نحتاج الى فتح قواعد البيانات الواردة ولا الى جلب واستيراد ولا الى نسخ ولصق

Rng_1.Copy sh.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

نصيحة: حاول الابتعاد عن عناصر activex قدر المستطاع ، لانها وكما حصل لك ، تختلف من 32بت و 64بت ، ومن اصدار الى آخر ، وتسجيل المكتبة في الوندوز ، وووو جعفر

السلام عليكم الاستاذ الفاضل ابو خليل اشكرك كثيرا على هذا الحل الطيب الجميل بارك الله فيك وجزاك خيرا

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

وعليكم السلام ورحمه الله وبركاته اتبع الصور بالتوفيق

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

شكرا جزيلا اخي عمر ضاحي .. فعلا ظهرت الخانات العشرية .. تحياتي

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

Option Explicit Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Visible = True End Sub

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

قالت العرب : من قال لا اعلم فقد افتى الصورة اعلاه من جهازي للاصدار 2021 وجربت ايضا على الاصدار 2019 والاصدار 2016 على اجهزتي الاخرى واعتقد انها موجود لديك بناء على وثائق شركة مايكروسوفت التي تشير الى ان هذا الاجراء موجود من اصدار 2007 و 2010 و 2013 و 2016 و 2019 و 2021 و ايضا 365 تحياتي

بعض اجرارات الماكروا تحتاج الى اظهارها ومنها اجراء setvalue شاهد الصورة المرفقة

انظر يا حلو .... جرب الملف واعلمنا ..... all-by-yesno.accdb والطرق كثيره .... انت ماذا تريد بالضبط .... هل المقصد تصدير التقرير ام ماذا ؟؟؟؟؟؟

السلام عليكم 🙂 مع اعتذاري للشباب ، فلم القي نظرة على مرفقاتكم 🙂 احفظ هذه الدالة باسم mod_Regional_Settings_info : Option Compare Database Option Explicit ' This code was originally written by Dev Ashish. ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' ' Code Courtesy of ' Dev Ashish ' Public Const LOCALE_ILANGUAGE = &H1 ' language id Public Const LOCALE_SLANGUAGE = &H2 ' localized name of language Public Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language Public Const LOCALE_SABBREVLANGNAME = &H3 ' abbreviated language name Public Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Public Const LOCALE_ICOUNTRY = &H5 ' country code Public Const LOCALE_SCOUNTRY = &H6 ' localized name of country Public Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country Public Const LOCALE_SABBREVCTRYNAME = &H7 ' abbreviated country name Public Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country Public Const LOCALE_IDEFAULTLANGUAGE = &H9 ' default language id Public Const LOCALE_IDEFAULTCOUNTRY = &HA ' default country code Public Const LOCALE_IDEFAULTCODEPAGE = &HB ' default code page Public Const LOCALE_SLIST = &HC ' list item separator Public Const LOCALE_IMEASURE = &HD ' 0 = metric, 1 = US Public Const LOCALE_SDECIMAL = &HE ' decimal separator Public Const LOCALE_STHOUSAND = &HF ' thousand separator Public Const LOCALE_SGROUPING = &H10 ' digit grouping Public Const LOCALE_IDIGITS = &H11 ' number of fractional digits Public Const LOCALE_ILZERO = &H12 ' leading zeros for decimal Public Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9 Public Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Public Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Public Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Public Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Public Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Public Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits Public Const LOCALE_ICURRENCY = &H1B ' positive currency mode Public Const LOCALE_INEGCURR = &H1C ' negative currency mode Public Const LOCALE_SDATE = &H1D ' date separator Public Const LOCALE_STIME = &H1E ' time separator Public Const LOCALE_SSHORTDATE = &H1F ' short date format string Public Const LOCALE_SLONGDATE = &H20 ' long date format string Public Const LOCALE_STIMEFORMAT = &H1003 ' time format string Public Const LOCALE_IDATE = &H21 ' short date format ordering Public Const LOCALE_ILDATE = &H22 ' long date format ordering Public Const LOCALE_ITIME = &H23 ' time format specifier Public Const LOCALE_ICENTURY = &H24 ' century format specifier Public Const LOCALE_ITLZERO = &H25 ' leading zeros in time field Public Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field Public Const LOCALE_IMONLZERO = &H27 ' leading zeros in month field Public Const LOCALE_S1159 = &H28 ' AM designator Public Const LOCALE_S2359 = &H29 ' PM designator Public Const LOCALE_SDAYNAME1 = &H2A ' long name for Monday Public Const LOCALE_SDAYNAME2 = &H2B ' long name for Tuesday Public Const LOCALE_SDAYNAME3 = &H2C ' long name for Wednesday Public Const LOCALE_SDAYNAME4 = &H2D ' long name for Thursday Public Const LOCALE_SDAYNAME5 = &H2E ' long name for Friday Public Const LOCALE_SDAYNAME6 = &H2F ' long name for Saturday Public Const LOCALE_SDAYNAME7 = &H30 ' long name for Sunday Public Const LOCALE_SABBREVDAYNAME1 = &H31 ' abbreviated name for Monday Public Const LOCALE_SABBREVDAYNAME2 = &H32 ' abbreviated name for Tuesday Public Const LOCALE_SABBREVDAYNAME3 = &H33 ' abbreviated name for Wednesday Public Const LOCALE_SABBREVDAYNAME4 = &H34 ' abbreviated name for Thursday Public Const LOCALE_SABBREVDAYNAME5 = &H35 ' abbreviated name for Friday Public Const LOCALE_SABBREVDAYNAME6 = &H36 ' abbreviated name for Saturday Public Const LOCALE_SABBREVDAYNAME7 = &H37 ' abbreviated name for Sunday Public Const LOCALE_SMONTHNAME1 = &H38 ' long name for January Public Const LOCALE_SMONTHNAME2 = &H39 ' long name for February Public Const LOCALE_SMONTHNAME3 = &H3A ' long name for March Public Const LOCALE_SMONTHNAME4 = &H3B ' long name for April Public Const LOCALE_SMONTHNAME5 = &H3C ' long name for May Public Const LOCALE_SMONTHNAME6 = &H3D ' long name for June Public Const LOCALE_SMONTHNAME7 = &H3E ' long name for July Public Const LOCALE_SMONTHNAME8 = &H3F ' long name for August Public Const LOCALE_SMONTHNAME9 = &H40 ' long name for September Public Const LOCALE_SMONTHNAME10 = &H41 ' long name for October Public Const LOCALE_SMONTHNAME11 = &H42 ' long name for November Public Const LOCALE_SMONTHNAME12 = &H43 ' long name for December Public Const LOCALE_SABBREVMONTHNAME1 = &H44 ' abbreviated name for January Public Const LOCALE_SABBREVMONTHNAME2 = &H45 ' abbreviated name for February Public Const LOCALE_SABBREVMONTHNAME3 = &H46 ' abbreviated name for March Public Const LOCALE_SABBREVMONTHNAME4 = &H47 ' abbreviated name for April Public Const LOCALE_SABBREVMONTHNAME5 = &H48 ' abbreviated name for May Public Const LOCALE_SABBREVMONTHNAME6 = &H49 ' abbreviated name for June Public Const LOCALE_SABBREVMONTHNAME7 = &H4A ' abbreviated name for July Public Const LOCALE_SABBREVMONTHNAME8 = &H4B ' abbreviated name for August Public Const LOCALE_SABBREVMONTHNAME9 = &H4C ' abbreviated name for September Public Const LOCALE_SABBREVMONTHNAME10 = &H4D ' abbreviated name for October Public Const LOCALE_SABBREVMONTHNAME11 = &H4E ' abbreviated name for November Public Const LOCALE_SABBREVMONTHNAME12 = &H4F ' abbreviated name for December Public Const LOCALE_SABBREVMONTHNAME13 = &H100F Public Const LOCALE_SYSTEM_DEFAULT& = &H800 Public Const LOCALE_USER_DEFAULT& = &H400 Const cMAXLEN = 255 Private Declare PtrSafe Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long '''' Function CountryName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCOUNTRY, strLCData, lngData) If lngX <> 0 Then CountryName = Left$(strLCData, lngX - 1) End If End Function '''' Function fLocaleInfo(lngLCType As Long) As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _ strLCData, lngData) If lngX <> 0 Then fLocaleInfo = Left$(strLCData, lngX - 1) End If End Function Function fLOCALE_IMEASURE() As String ' 0 = metric, 1 = US Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, _ strLCData, lngData) If lngX <> 0 Then fLOCALE_IMEASURE = Left$(strLCData, lngX - 1) End If End Function Function fListseparator() As String ' 'to use it 'cmb.AddItem fld.Name & fListseparator & iField_Caption ' Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLIST, strLCData, lngData) If lngX <> 0 Then fListseparator = Left$(strLCData, lngX - 1) End If End Function '''' Function LanguageName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SENGLANGUAGE, strLCData, lngData) If lngX <> 0 Then LanguageName = Left$(strLCData, lngX - 1) End If End Function '''' Function LocalizedLanguageName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLANGUAGE, strLCData, lngData) If lngX <> 0 Then LocalizedLanguageName = Left$(strLCData, lngX - 1) End If End Function . وتناديه هكذا: if LanguageName & " (" & CountryName & ")" <> LocalizedLanguageName then msgbox "PC Language is : " & LocalizedLanguageName end if . جعفر

تفضل أخي رعد 🙂 هذا الكود عند فتح التقرير : If Forms!emp!d1 = False Then Me.sname.Visible = False: Me.sname.Width = 0 If Forms!emp!d2 = False Then Me.grade.Visible = False: Me.grade.Width = 0 If Forms!emp!d3 = False Then Me.idcard.Visible = False: Me.idcard.Width = 0 If Forms!emp!d4 = False Then Me.cart1.Visible = False: Me.cart1.Width = 0 If Forms!emp!d5 = False Then Me.cart2.Visible = False: Me.cart2.Width = 0 If Forms!emp!d6 = False Then Me.cart3.Visible = False: Me.cart3.Width = 0 If Forms!emp!d7 = False Then Me.passport.Visible = False: Me.passport.Width = 0 If Forms!emp!d8 = False Then Me.blod.Visible = False: Me.blod.Width = 0 all-by-yesno.rar

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

هل هذا ما تريد ؟ لفتح الصوره خارج الاكسيس Dim ImgPath As String ImgPath = CurrentProject.Path & "\IMG\" & txtEmpID & ".jpg" Application.FollowHyperlink ImgPath ايضا لجعل الصوره تتغير تلقائيا عند التنقل من موظف الى اخر فى حدث فى الحال Private Sub Form_Current() Me.CImg.Picture = CurrentProject.Path & "\IMG\" & Me.txtEmpID & ".jpg" End Sub اتمنى ان يكون هذا ما تبحث عنه Test.rar

:: بسم الله الرحمن الرحيم :: ** السلام عليكم ورحمة الله وبركاته ** .. أما قبل .. فالصورة التالية تحكي لكم الفكرة باختصار : .. أما بعد : .. فإليكم الطريقة كما هداني إليها رب العالمين 🙂 : أولا :: تقوم بتصميم جدولك وإضافة حقول نعم/لا بالطريقة العادية ثانيا :: تصمم استعلام يكون مصدره جميع حقول جدولنا الجميل 🙂 ثالثا :: تضيف حقول جديدة في الاستعلام ( حقل مقابل كل حقل من نوع (نعم/لا) في الجدول ) نسميه بنفس اسم العقل مع إضافة رقم2 لتفنيده عن الحقل الأصلي وتضيف له هذه الدالة : .. NewFeildName: IIf([TrueOrFalseFeild]=-1;ChrW(10004);ChrW(10008)) وتقوم بتغيير اسم الحقل لكل واحد من حقول الجدول ملاحظة : ChrW(10004) تعطيك الرمز ✔ و ChrW(10008) تعطيك الرمز ✘ لتكون التيجة النهائية هكذا : وعند حفظ الاستعلام وعرضه يظهر لنا هكذا : رابعا :: تقوم بإنشاء نموذج جديد مبني على الاستعلام الظريف وتنسقه بالطريقة التي تحبها .. وتنتبه أنك ستدرج الحقول الجديدة التي أنشأناها في الاستعلام بدلا عن الحقول الأصلية .. ستكون الحقول البديلة عبارة عن حقول نصية عادية غير قابلة للتعديل ( لأنها حقول محسوبة ) .. لذلك سيسهل عليك تنسيقها باللون والشكل الذي تحبه تماما كما تنسق أي حقل نصي آخر 🙂 خامسا :: فقط بقي علينا أن نظيف أمر تغيير قيمة حقول (نعم/لا) الأصلية عند النقر على الحقول البديلة .. ولعمل ذلك نضع الأمر (الكود) البسيط التالي في حدث عند النقر على لكل خانة ( IsActive كمثال ) : Private Sub IsActive2_Click() IsActive = Not IsActive x.SetFocus End Sub وتكرر نفس العملية لكل واحد مع تغيير أسماء الحقول .. لاحظ أنني أضفت هذي للكود ( x.SetFocus ) في النهاية ، وهي باختصار حركة تجميلية .. حيث قمت بإضافة مربع نص (غير منظم) للنموذج وسميته x وجعلت لونه ولون حدوده نفس لون خلفية النموذج ، وجعلت حجمه صغيييييييييييييييير جدا 🙂 يعني الطول x العرض بمقدار = 0.01 تقريبا ..( الهدف أنه ما يظهر للمستخدم) وبعدها خليت الأمر ينقل التركيز لهذا المربع الصغير .. فكانت النتيجة كما شاهدتم سيداتي وسادتي 😊 ونكون بذلك قد انتهينا من عمل مربعات صح أو خطأ كبيرة وجميلة وتنفتح لها النفس 😉👌 وبعدها ينفتح لكم باب الخيال الواسع للإبداع والزيادة كما تشتهي أنفسكم وتلذ أعينكم 😊 ولا تنسونا من صالح دعواتكم وزكواتكم وهداياكم 😅 :: وختامها رابط المثال للتحميل (مجاناً) 😁 :: صح أو خطأ.accdb

بتاتا البته لن ننزلق بعون الله حقوق الاخرين محفوظة قانونا وشرعا

نعم وهو الملف الوسيط سيتكفل بهذه المهمة تم التعديل المطلوب ولتسهيل الأمر على مسؤول القاعدة اذا اراد مثلا اظهار الكائنات للتعديل أو الإطلاع تمت اضافة زر أمر لاظهار الكا ئنات وشريط الادوات بدل ما يقوم بألغاء كلمة السر ثم اعادة تفعيل الشفت وفتح القاعدة من جديد فقط نقرة زر كل شي يكون أمامه طبعا زر الأمر لازم يكون مخفي عن المستخدم ونقوم بإيجاد طريقة لاظهاره للمسؤول بالنسبةلي بما اني استخدم نظام صلاحيات مستخدمين أضع هذا الكود عند فتح النموذج لاظهار زر الأمر وتفعيله If MyUser.username() = "Kaser906" Then Me![cmd47].Enabled = True Me![cmd47].Visible = True End If الملف بالمرفقات ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم FreeKaser906.rar

السلام عليكم ورحمة الله تعالى وبركاته اولا لم اجد استخدام الرموز الدولية الموحدة Unicode لا فى منتديات عربية ولا اجنبية ولا ادرى ان سبقنى اليها احد من قبل فى ستخدامها داخل الاكسس ولكنه توفيق من الله بالنسبة لى وسوف اشرح طريقة التوصل الى التعامل الصريح بـعلامة ( √ ) أو علامة ( x ) فى قواعد البيانات -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- -------------- واخيـــــــــــــ( المرفق )ـــــــــــــــرا ( √ ) أو ( x )علامة.mdb

السلام عليكم المسألة كانت تحدي ، وقبلت التحدي انا غيرت اسماء النموذج الرئيسي والفرعي الى اسماء frm_Search و sfrm_Search. الآن يمكنك البحث عن اي جزء من الكلمة ، واذا اردت البحث عن كلمة اخرى في السجل ، فما عليك الا ان تضع (مسافة او / او *) بين الكلمات ، فسيعتبرها البرنامج على انها كلمة اخرى يجب البحث عنها: . والكود: Option Compare Database Dim mySQL As String Dim mySQL1 As String Private Sub Form_Load() mySQL = "Select * From [المستندات]" Me.n2 = "" If Len(Me.n2 & "") = 0 Then Me.sfrm_Search.Form.RecordSource = mySQL End If End Sub Private Sub n2_Change() 'do the initial subform Record Source mySQL1 = "Select * From [المستندات]" mySQL = mySQL1 & " Where" 'now we want to split the search code into smaller bits, 'if seperate by / \ * or space, then change this seperator to | (a unique letter), 'this way we will have more than ONE word to search for Dim x() As String Dim A As String A = Me.n2.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") 'the words are split and ready x = Split(A, "|") If UBound(x) = 0 Then 'Still one word, search for it mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'it is ONE word and a seperate by / \ * or space, 'so lets make a Where statement for each seperate word For i = LBound(x) To UBound(x) If i = 0 Then 'its a word and a seperator, the NEXT word is NOT added yet mySQL = mySQL & " [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" Else 'its multiple words, add the AND command between each word mySQL = mySQL & " AND [كلمات ارشادية]" mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If 'if the Search field is Empty, use the initial mySQL1 Me.n2.SetFocus If Len(Me.n2.Text & "") = 0 Then mySQL = mySQL1 End If 'Debug.Print mySQL Me.sfrm_Search.Form.RecordSource = mySQL End Sub . ملاحظة مهمة: اذا كان برنامجك على الشبكة ، فلا تضع الكود على "حدث التغيير" (معناه ، كلما اضفت/حذفت حرف ، فارجع الى الجدول وخذ البيانات منه) ، لأنه سيجعل البرنامج جدا بطئ ، وانما استخدم زر البحث. جعفر 309.Search_as_you_Type_jj.mdb.zip 309.Search_as_you_Type_jj.mdb.zip

ستجد نسخه مماثله مجانية وهناك نسخه مدفوعه بالتوفيق https://www.yazsys.com/Sale.aspx