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

تفضل سيدي الفاضل 🙂 - لا يوجد تعديل على التقارير ، فهي حسب تصميمك ، - النموذج frm_Do_Report_604 يقوم بإضافة السجلات المطلوبة الى الجداول المؤقته الثلاث ، والتي يبدأ اسمها بـ tbl_tmp_rpt ، والكود في النموذج حلو وسهل الفهم 🙂 ، - اعتمد في اخذ البيانات من الاستعلامات qry_604 و qry_tblPME ، لذلك فانت حر التصرف في عمل المعايير التي تريدها ، واذا اردت تغيير اسماء الحقول ، فيجب تغييرها في استعلامات الإلحاق والجداول المؤقتة 🙂 - عملي ليس له علاقة بالكود الموجود سابقا في التقارير . في الواقع ، الآن البرنامج صار عادي وسهل التعامل معاه 🙂 آه وقبل ان انسى: جعفر 1135.3.Consumable Material.accdb.zip

السلام عليكم هذه طريقة للحصول على الوقت و التاريخ الحاليين للأنترنت حسب توقيت غرينتش نستخدم هذه الوحدة النمطية: Function GetUCTTimeDate() As String Dim UTCDateTime As String Dim arrDT() As String Dim http As Object Dim UTCDate As String Dim UTCTime As String Const NetTime As String = "https://www.time.gov/" On Error Resume Next Set http = CreateObject("Microsoft.XMLHTTP") On Error GoTo 0 http.Open "GET", NetTime & Now(), False, "", "" http.send UTCDateTime = http.getResponseHeader("Date") UTCDate = Mid(UTCDateTime, InStr(UTCDateTime, ",") + 2) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) UTCTime = Mid(UTCDate, InStrRev(UTCDate, " ") + 1) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) GetUCTTimeDate = UTCDate & " " & UTCTime End Function و نقوم باستدعاء الناتج هكذا MsgBox GetUCTTimeDate()

وعليكم السلام 🙂 نعم ، هذا الكود سيخبرك عدد السجلات msgbox Dcount("*","اسم الاستعلام") جعفر

بس إجابة ساحقة ماحقه .. ولم نوفك حقك حبيبى جعفر

بل كل الشكر والتقدير والعرفان لكل اساتذتى الافاضل الذين لم يبخلوا بوقتهم وجهدهم وعلمهم قدر استطاعتهم وكل الشكر والتقديـر اليكم استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr والله مهما وصفت لن تكفى الكلمات للتعبيـر عن مدى التعب والضرر الذى قد يتسبب به اقل خطأ لى او لأصدقائى بالعمل ومهما قدمت لكم من شكر ما حييت لن اوفيكم حقكم وقدركم وستقف الكلمات عاجزة بكل معانيها امام ما تقدمونه استاذى الجليل يعلم الله حجم الكرب الذى جعلكم الله سببا فى تفريجه اسأل الله تعالى ان يرزقكم البركة فى العمر والعلم والاهل والولد واعلى درجات الخلد فى الجنة ان شاء الله مع من تحبون شكـراً ساحر الأكسس ..

شكرا ابا جودي 🙂 يا جماعة الحقوا عليّ اريد شِبّه او بخور عن العين 🙂 حصلت على شهادتين من اجابة واحدة 🙂 جعفر

الشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr والشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و اخى الحبيب استاذ @AlwaZeeR والشكــر كل الشكر والتقدير لكم استاذى الجليل ومعلمى القدير و اخى الحبيب استاذ @essam rabea

في الكثير من مواضيعي في الكود ، استخدم متغير اسمه mySQL مثلا ، حتى اعمل استعلام عن طريق الكود ، هكذا مثلا ، فلاحظ آخر سطر استعمله ، السبب اللي استعمل فيه هذا المتغير بهذه الطريقة ، حتى يكون لكل جزء من الكود السطر الخاص به (سهل التعامل مع كل سطر بطريقة منفصلة) ، وفي النهاية يتم جمعهم في الكود للخروج بالمتغير بصورته النهائية : mySQL = "SELECT TOP " & A & " sort_seq, Desc, IDPME, DueDate, SelectTo604, 1 AS Countr, iPage" mySQL = mySQL & " FROM ( " mySQL = mySQL & "SELECT 0 as sort_seq, Desc, IDPME, DueDate, SelectTo604, 1 AS Countr, iPage" mySQL = mySQL & " From tblPME" mySQL = mySQL & " WHERE SelectTo604 = True" mySQL = mySQL & " union" mySQL = mySQL & " Select id, null, null, null, null, 1 AS Countr, null" mySQL = mySQL & " From tblPME" mySQL = mySQL & " ) AS X" Debug.Print mySQL آخر سطر معناه ، اكتب لي نتيجة المتغير mySQL ، والنتيجة ستكون بالبيانات ، فمثلا نتيجة هذه الاسطر اعلاه هي: SELECT TOP 33 sort_seq, Desc, IDPME, DueDate, SelectTo604, 1 AS Countr, iPage FROM ( SELECT 0 as sort_seq, Desc, IDPME, DueDate, SelectTo604, 1 AS Countr, iPage From tblPME WHERE SelectTo604 = True union Select id, null, null, null, null, 1 AS Countr, null From tblPME ) AS X نفس الشيء ممكن نعمله في الكود اعلاه ، ممكن نضيف السطر الاخير هنا ايضا : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [detach]='منتدب'" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID myCriteria = myCriteria & " Or [ID]=12" debug.print myCriteria ولما يعطيك الطريقة الصحيحة ، تقدر تنسخها الى امر Dlookup ، في الاستعلام 🙂 آه ، وين تنكتب هذه العيارة ، هنا : اولا الجواب الاوسع ، انه ما ممكن ، وخصوصا انك لما تشوف شرح يفتقد لمثال واقعي علشان تفهمه وتطبق عليه ، لذلك ، تابع الاجابات ، ومنها تفهم اكثر ، بطرق مقطعة ، ولكن تثبت في الدماغ 🙂 اما للشروحات ، فهناك الكثير منها في المنتدى ، واخونا صالح قام بهذا العمل الجبار : جعفر

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

ما ممكن كتابة هذه الاسطر في استعلام ، لذلك ، يمكن ان تعملها وحدة نمطية ، ثم تناديها من الاستعلام 🙂 جعفر

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

وعليكم السلام ورحمة الله وبركاتة أخي الكريم كان لك نفس الطلب في موضوع سابق لكن الفرق كنت تريده في التقرير وقد قمت بالرد عليك وتحقيق طلبك عن طريق كود vba وشاركني استاذي @jjafferr بوضع نفس الحل ولكن عن طريق الاستعلام الان لتحقيق طلبك الجديد ارجع للموضوع السابق وبالتحديد مشاركة الاستاذ جعفر قم بفتح ملف اكسل ثم اذهب على مصدر البيانات ثم اختر قاعدة البيانات حسب الصورة ستظهر لك نافذة اختر منها الاستعلام نتائج الاستعلام اصبحت بملف الاكسل قم بتغير مسميات رؤوس الاعمدة حسب ما تراه مناسب لك وحفظ الاستعلام وإذا لم ترد تغيير مسمسيات رؤوس الاعمدة بالاكسل قم بتغيرها من الاستعلام وستظهر بالاكسل نفس المسميات ::بالتوفيق::

أ.ashraf_ali هل هذا ما تقصدة ام فهمت خطأ بالتوفيق Test (1).zip

جرب هذا الملف Sharikat.xlsm

ممكن تستخدم الكود التالى Sub my_fill() cmb_Fill.Clear For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row cmb_Fill.AddItem (Cells(i, "A")) Next i End Sub و المجال مفتوح و قابل للتعديل مرفق ملف Fill_01.xls

تفضل استاذ حميد ولحسن عمل الكمبوبوكس يمكنك إضافة هذا الكود Private Sub ComboBox1_DropButtonClick() lrw = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row ComboBox1.List = Sheets(2).Range("D1:D" & lrw).Value End Sub تعبئة القوائم المنسدلة1.xlsm

السلام عليكم ايش رأيك في هذه الطريقة: سحب أكثر من حقل من سجل واحد في الجدول ، وهذا الرابط فيه المثال http://www.officena.net/ib/index.php?showtopic=61152&p=394338 جعفر

السلام عليكم ورحمة الله وبركاتة في مووضوع سابق طرحته بالمنتدى حذرت من موضوع اخفاء الجداول المرتبطه لما يسببه من مشاكل وأخطاء تحذير من إستخدام كود إخفاء الجداول المرتبطة فأخذت افكرفي ايجاد طريقة لحماية كائنات قاعدة البيانات كافة من وصول المستخدم ومن ضمنها عدم وصول المستخدم لكلمة سر قاعدة البيانات الخلفية والتي تكون مخزنة بالجدول MsysObjects فلم أجد افضل من طريقة وضع كلمة سر لقاعدة البيانات بشرط أن تكون بصيغة accdb أو accde هنا لن يتمكن المستخدم من تفعيل الشفت ببرنامج خارجي ولن يتمكن من الوصول الى الكائنات وهذا كان سبب طرحي لموضوع هل لديك تجربه لكسر كلمة سر قاعدة بيانات ؟ وقد اكد استاذنا @jjafferr صعوبة الحصول على الرقم السري لمثل هذا النوع من قواعد البيانات فقررت وضع كلمة السر لقواعد البيانات !!!!!!! لكن ماهو الحل مع المستخدم ؟ هل سنقوم بتسليمه كلمة السر ليستخدم قاعدة البيانات اذا كأننا لمن نصنع شئ ففكرت بإيجاد وسيط نقوم بتسليمه كلمة السر ويكون هو الوسيط بين المستخدم والبرنامج ( الواجهة ) اذا الوسيط سنضعه جنب البرنامج ونأمره بفتح البرنامج للمستخدم اذا اراد استخدامه بدون أن يفصح له عن كلمة السر بالمرفق يوجد ملفين ملف قاعدة البيانات الاساس Start محمي بكلمة سر والاخر الوسيط الذي سنقوم بمن خلاله فتح البرنامج StartDatabes. بعد تمرير كلمة السر اليه والملفين تم تحويلهما الى صيغة accde بعد تنزيل المرفق اجعل الملفيين في مجلد واحد وشغل الملف StartDatabes ملاحظة من المحتمل ان تظهر لديك رسالة في بدأ التشغيل لا يمكن قراءة مشروع Vba هنا اعتقد يجب أن يكون الوندوز لديك محدث بأخر تحديث ويجب أن تكون حزمة Microsoft .NET Framework محدثة بأخر اصدار حسب لغة الوندوز ونوعه عندك او كما يوجد لدي انا عندي الحزمة Microsoft .NET Framework 4.5.1 windos 10 office10 أخر تحديث ارجو التجربه ونتمنى الاستفاده للجميع Free.rar -------------------------------------- ملاحظات جعفر 14-7-2021 : بعد ان تم حذف الملف الاصل ، اصبح من الصعب على بعض الاعضاء متابعة الموضوع ، لذا ، وبعد إذن الاخ @kaser906 فعملت ملفاته مرة اخرى وارفقتها هنا: 1. الملف Locked.zip ، وهو الملف النهائي والذي سيتم تسليمه للزبون ، وهو الملف الذي يجب ان يجربه الاعضاء ، وفيه ملفين بصيغة accde ، 2. الملف Locked_Open_Source.zip ، يحتوي على ملفات مفتوحة المصدر ، بصيغة accdb ، والتي حولناها الى ملفي رقم 1 علاه ، 3. الملف Open_Source.zip ،يحتوي على نفس ملفي رقم 2 اعلاه بصيغة accdb ، ولكن بدون تجهيزهم لتحويلهم لصيغة accde . Locked.zip Locked_Open_Source.zip Open_Source.zip

- موديول إخفاء إطار الأكسس - التوسيط - التصغير بجوار الساعة - تغيير الأيقونة - استدعاء بيانات ورسائل من جدول تم وضع التذكيـــر الاتى برأس الموديول لسهولة التعامل مع الأكودا واستدعائها 'icon path >>---> CurrentProject.Path &"\"&"\File Library\Fav Ico\Myicon.ico" 'Hide Access >>---> CallStartForm() 'CenterObjects >>---> Call CenterFrm(Me) 'Minimize To Systray >>---> Call AppMini() 'To Quit Application >>---> Call AppQuit() 'To Close Any Forms >>---> Call AppCloseFrm() 'Application Name >>---> Call AppName() 'Designer Name >>---> Call DesName() 'Designer Phone >>---> Call DesPhone() 'Designer Email >>---> Call DesEmail() 'call Any Message From Table '>>>>> StrMyCriteria = "MyCriteria ='xxxx'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle '>>>>> Change "xxx" By Criteria From Table >> UsystblUsefulData << By Criteria From Field [MyCriteria] '>>>>> Example MyCriteria >>---->> msgDesData '>>>>> StrMyCriteria = "MyCriteria ='msgDesData'" '>>>>> MyMesg (txtOfMesg), vbOKOnly, strMsgTitle هذا المرفق الاول بدون عمل اختصار للبرنامج Utilities Hide Ico Minimze To SysTray.zip --------------------------------------------------------------- هذا المرفق للإضافة إختصار أليا الى سطح المكتب وتحكم كامل فى كل ما يخص الاختصار من الجدول UsystblUsefulData اسم الاختصار الوصف مفتاح الاختصار من الكيبور لفتح التطبيق وفى حالة عدم وجود اى بيانات بالجدول تخص الاختصار او عدم وجود ايقونة فى المسار المخصص يتم استخدام البيانات الاساسية والايقونة الاساسية Utilities Hide Ico Minimze To SysTray V.02.zip

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

هل يوجد برنامج تسكين طلاب على قاعات الإختبار

عليكم السلام، جرب المرفق ووافني بالنتيجة. الضغط على الفرعى (1).accdb

بالفعل هو المطلوب بارغم أني كنت أتوقع أن الحل سيكون كود أكثر تعقيداً ألا أن ملفك كان به أبسط الأكواد الذي نتعامل معها بشكل يومي يبدو أن الأمر كان يتطلب مني صفاء الذهن .. حول التعامل مع المشكلة أكرر شكري لك أخي كاسر @kaser906 .. جزاك الله خير .. وجعل الله هذا في ميزان حسناتك

اللهم صلى على سيدنا محمد وعلى آل سيدنا محمد كما صليت على سيدنا ابراهيم وعلى آل سيدنا ابراهيم وبارك اللهم على سيدنا محمد وعلى آل سيدنا محمد كما باركت على سيدنا ابراهيم وعلى آل سيدنا ابراهيم فى العالمين انك حميد مجيد

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

تفضل لك ما طلبت استاذ ياسر وتم تنفيذ المطلوب على ملفك : اسم المستخدم : yasser كلمة المرور : 123456 FILE TEST.xlsm

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

الاخ الفاضل/ @محمد ابو عبدالله انا متاسف لك فعلا النموذج يعمل جيدا ـ جزاكم الله خير استاذ / محمد بارك الله فيك وجعله في ميزان حسناتكم ومادام حضرتك "محب الله ورسوله " فاللهم حبب الله فيكم ورحمكم في الدنيا والاخره بعيدا عن الدعاء لكم - لى طلب اخر ان سمحت لكم ظروفكم ووقتكم هل يمكن ان نضع مربع فارغ في النموذج الفرعى وعند الضغط على خانة الاختيار R1 في الرئيسي يتلون المربع في النموذج الفرعى باللون الاحمر ويكتب بداخله اتوماتيكيا "غير متعاقد" واذا ضغطنا على R1 مرة اخري يتلون المربع الفارغ الى اللون الابيض وتتحول الجملة الى " متعاقد" داخل المربع المنشأ ارجو ان لا اكون قد اثقلت عليك وحسب وقتك بارك الله فيك

اولا انا معمتلش حاجة قبل كدة فى Spare Parts Movment ثانيا نموذج frm_subItems بيتفتح من خلال نموذج frm_Items مش لوحده

أ.mohamed elalfy عسى أن يكون المطلوب new mohamed TEST(1).zip

شاكر جدا لمجهوداتكم وجزاك الله خيرا استاذ Ali Mohamed Ali

حياك الله 🙂 الرابط التالي فيه طريقتي لعمل اكثر من معيار وبسهولة ولكن يجب ان تقرأ الموضوع من بدايته ، حتى تستفيد بالاستفادة الكاملة 🙂 العلامات لها علاقة بنوع الحقل ، نص او رقم او تاريخ ، و السيد جمال @Elsayed Bn Gemy شرح هذا الموضوع في الرابط 🙂 جعفر

أن نعترف بفضل شخص ما علينا يعبر عن صدق مشاعرنا لذلك لم أخجل في التعبير عن امتناني لكم . سادتي واساتذتي المحترمين الاستاذ (علي محمد )والاستاذ(هادي محمد ) لاهتمامكم المفرط بالموضوع وماتقدمون لاعضاء المنتدى من خدمات تجعلنا عاجزين عن تقديم عبارات الشكر والتقدير............. نسأل الله المولى العلي القدير ان يحفظكم ويمد في اعماركم ويزيدكم من علمه امين رب العالمين ...........

انت عامل شرطين الشرط الاول الاستعلام المركب والثاني "N3" وهو قام بشرط "N3" هذا والله اعلم

السلام عليكم ورحمة الله حل باستعمال الدالتين INDEX و MATCH (بالفرنسية EQUIV) في الملف المرفق... بن علية حاجي Etude.xlsx

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

وعليكم السلام 🙂 وبدون انزال المرفق ، رجاء جرب هذا التعديل: =Nz(DSum("[mone]";"table1";"[client]='" & [x2] & "' and [id]<>" & [id]);0) جعفر

السلام عليكم 🙂 الطريقة التي توصلت لها : 1. التقرير الرئيسي له جدول خاص به ، به رقم صفحات التقرير (سيتم عمل هذا تلقائيا) ، 2. التقرير الفرعي رقم 1 ، والتقرير الفرعي رقم 2 ، لكل تقرير فرعي مصدر بيانات خاص به (سيتم عمل هذا تلقائيا) ، ويحتوي على حقل رقم الصفحة ، 3. بيت القصيد ، ربط التقرير الرئيسي بالتقارير الفرعية عن طريق رقم الصفحة . يجب ان اقوم بتنظيف البرنامج ، واعادة عمله على اساس ما قلته اعلاه ، وللعلم فبعض بيانات التقارير الفرعية قد تم ادخالها يدويا حتى احصل على النتيجة 🙂 التقرير الذي يعمل حسب هذه الخطة هو Report2 🙂 ولا تحاول تعمل تغيير في بيانات الجداول الاصل ، فلن تتغير النتيجة في التقرير ، في هذه النسخة اخي ابا جودي ، اعتذر عن التأخير ، بس هذا كان تحدي 🙂 ورجاء ، اذا عندك اي ملاحظة او تغيير ، وبدون اي احراج ، رجاء تخبرنا عنه ، لأن العمل تقريبا انتهى 🙂 بكرة الصباح ان شاء الله اعمل البرنامج بصورته النهائية 🙂 جعفر 1135.2.Consumable Material Check List (40).accdb.zip

استاذي الفاضل ممكن ملف آخر بصيغة اوفيس 2003

كفاك تشويقا أبا جعفر أبشر أبا جودى سيأتيك مطوِّع الأوفيس بالحلول العتيه .. للتقارير الفرعيه

ولقيت الحل ، بالاكسس 🙂 بس محتاج شوي علشان اعرضه ان شاء الله 🙂 جعفر

انظر عدلت في استعلامك شوي .... K_1.rar

بكرة الصباح ان شاء الله اكمل فيه 🙂 جعفر

اخي ابو عيد سبق وان جربت هذه الطريقة اولا تفتح الواتس من جوالك وتتركه مفتوح عند البدء بتطبيق الكود ثانيا تسجيل الدخول على واتس الويب https://web.whatsapp.com/ عبر المتصفح وتقراء الباركود من جوالك "واتس ويب" لاعتماد دخول الواتس من نفس الجهاز وتسجيل الاسماء او الارقام في القائمة اذا سجلت اسماء ضروري تسجل نفس الاسم المسجل في جوالك يقوم الكود بفتح رابط الواتس عبر المتصفح والبحث عن الاسم او الرقم ويرجع ينسخ الرسالة ويحطها بمربع كتابة الرسائل وينقر ارسال وهكذا يكرر العملية اذا سجلت اكثر من اسم

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

اخي الكريم @ابو العلاء هل هذا الشيت يقوم بارسال الرسائل الي الواتس اب فقط ام الي الجوال كرساله نصيه ؟؟؟؟

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : myCriteria = "[detach]='موظف'" myCriteria = myCriteria & " Or [iDate]=#29-05-2015#" myCriteria = myCriteria & " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria = myCriteria & " Or [EmployeeID]=" & Me.EmployeeID 'myCriteria = myCriteria & " Or [ID]=12" a = DLookup("[myID]", "tbl_Employees", myCriteria) او myCriteria_1 = "[detach]='موظف'" myCriteria_2 = " Or [iDate]=#29-05-2015#" myCriteria_3 = " Or [Payment_Month]=#" & Me.txtMonth & "#" myCriteria_4 = " Or [EmployeeID]=" & Me.EmployeeID myCriteria_5 = " Or [ID]=12" myCriteria = myCriteria_1 & myCriteria_2 & myCriteria_3 & myCriteria_4 & myCriteria_5 a = DLookup("[myID]", "tbl_Employees", myCriteria) والشرح 'في الاسطر، ممكن استعمال والخلط بين 'Or او And 'كما يمكن استعمال اي سطر، و عدم استعمال اسطر اخرى، اي يمكن الخلط في استعمال الاسطر 'للمتغيرات الثابته 'نص myWhere = "[detach]='موظف'" myWhere = myWhere & " Or [ID]=12" 'رقم myWhere = myWhere & " Or [iDate]=#29-05-2015#" 'تاريخ 'للمتغيرات myWhere = myWhere & " Or [Employee_Name]='" & Me.Employee_Name & "'" 'نص myWhere = myWhere & " Or [EmployeeID]=" & Me.EmployeeID 'رقم myWhere = myWhere & " Or [Payment_Month]=#" & Me.txtMonth & "#" 'تاريخ a = DLookup("[myID]", "tbl_Employees", myWhere) جعفر

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