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

Dim MyStr As String MyStr = Nz(Me.Text0.Text, "") If MyStr = "" Then Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض;" Else Me.ن_ف_العرض.Form.RecordSource = "SELECT ج_العرض.* FROM ج_العرض" & " WHERE (((ج_العرض.رقم_الارض)=[text0]));" End If تفضل ضعه في حدث بعد التحديث لحقل البحث [Text0] واحذف الحدث عند التغيير في نفس الحقل يعمل البحث بعد الضغط على مفتاح الادخال Enter جرب ووافني بالنتيجة :: تحياتي

كتاب برمجي اكسل باللغة الانجلزية رائع يتكون من 499 صفحة لا تندم بعد تحميله تحميــــــــــــــــل http://droppdf.com/files/VLLRT/excel-vba-24-hour-trainer-2nd-edition.pdf

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

جرب الملف التالى abo_abary_الشيت.rar

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

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

أساتذتي و إخواني الكرام تحياتي هل هناك دالة أو كود يظهر لي في خلية ما آخر تعديل قمت بعله لخلية محددة لكم مني كل الشكر و التقدير

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير جميعا وتقبل الله منا ومنكم الطاعات بداية (فى مثل شعبى لدينا بالصعيد المصرى يقول - لا تبيع بزمتين - ويعنى بالعربى لا تبع لهذا بسعر ولهذا بسعر آخر ) ودون الخوض فى نزاع الأسعار لو باع بزمة واحدة لارتاح وأراحنا معه ثانيا - اذا كان لدينا معيار الجنس لا اختلاف فيه وهو (اما ذكر أو أنثا ) والحمد لله . فلن نحتج الى تعديل بنسبة الى هذا المعيار والآن بقى معيار العمر والذى سيتغير حسب السلع (ولكن قبل أن أخربط هل العمر مرتبط بالجنس أيضا بمعنى: ذكر أقل من 20 = 3 ج أو أنثى أقل من 20 = 5 ج . أم أن ما دون ال 20 لا اعتبار للجنس فيه ... أرجو التوضيح) ولحين التوضيح المطلوب اقتراحى هو: جعل جدول مستقل به كود السلعة ومعيار العمر المتغير أى أقل من ...... (مثال: سمك أقل من 10 - خضار أقل من 20 وهكذا) وسنقوم باستجلاب معيار العمر بالـ DlookUp والآن سيصير التعديل البسيط المقترح هكذا : ( نسيت سأقوم بالتعديل على الكود المختزل لأستاذنا جعفر ) dim age as integer age = Dlookup("age","Foods","Food =" & Forms!Form!Control) One_Line = IIf(a <= age, b, _ IIf(s = "male", m, f)) طبعا اسم الجدول المقترح والحقول بداخله لحضرتك مطلق الحرية فى اختياره ولكن هذا مجرد اقتراح ويمكن تطبيق نفس الفكرة مع كود استاذنا alwazeer هكذا : dim age as integer age = Dlookup("age","Foods","Food =" & Forms!Form!Control) Select Case Forms!cust!age Case Is >= age ' ' ' اكمل الكود آسف لم أرى المشاركتين الآخيرتين قبل ردى السابق أستاذنا محمدنجار لم تحسب لنا فاتورة أستاذنا alwazeer (لا تخف لا يوجد بيننا أحد من مصلحة الضرائب ) حدد لنا الأسعار وفقا لفاتورة أستاذنا الوزيرى (أرجو أن تكون ترجمة الأسم صحيحة) هذا ردنا على استفسارى السابق وسترتب عليه معرفة الألية الصيححة فى العمل وفق الله الجميع لما يحب ويرضا بساط الوقت ينسحب معكم سريعا أستودعكم الله (غدا نلتقى إن شاء الله)

الكابتال او الأسمول مجرد كتابة من لوحة المفاتيح لا تفرق أما بالنسبة للمتغيرات M -S-N فتعبر عن أول سطر يتم الترحيل له

دعني اسال انا وانت تجيب: - هل جربت الكود الذي وضعته لك؟ وافني بالنتيجة - لكل نوع طعام ثلاثة اسعار سوف توزع على معايير : ذكر، أنثى هذه فهمناها معيارين يا ابيض يا اسود :) - الآن دور العمر: كم معيار؟ *** ذهبت انا وزوجتي وابني وبنتي الى المطعم الخاص بك انا ذكر، وزوجتي أنثى، وابني ذكر عمره 10 اعوام، وابنتي انثى عمرها سبعة اعوام طلبنا سمك الهامر: كيف تحسب الأسعار؟؟؟ وما قيمة الفاتورة التي سندفعها؟ اذا كان الجدول sprt فيه ثلاثة اسعار فقط؟؟؟ السعر الاول: 20 والسعر الثاني 30 والسعر الثالث 40 *** احسب قيمة فاتورتي وسوف نصل الى حل :: تحياتي

Sub Result1() LR = Cells(Rows.Count, 4).End(xlUp).Row For R = 6 To LR For c = 5 To 10 For F = 22 To 27 x = "" If Cells(R, c) < 5 Then x = x & Cells(4, c) Cells(R, F) = x Else Cells(R, F) = "" End If c = c + 1 Next Next Next Call Result2 End Sub Sub Result2() LR = Cells(Rows.Count, 4).End(xlUp).Row For R = 6 To LR CA = WorksheetFunction.CountA(Range("V" & R & ":Y" & R)) If CA = 0 Then Cells(R, "M") = "ناجح" ElseIf CA > 3 Then Cells(R, "M") = "راسب" ElseIf CA = 1 Then Cells(R, "M") = "مكمل بدرس" ElseIf CA = 2 Then Cells(R, "M") = "مكمل بدرسين" ElseIf CA = 3 Then Cells(R, "M") = "مكمل بثلاث دروس" End If Next End Sub السلام عليكم ورحمة الله اكتب هذين الكودين وخصص لهما زر

اخى الكريمalyasryaamir كل عام وانتم بخير جرب المرفق التالى لعلة يفى بالغرض abo_abary_الناجحون والراسبون والمكملون.rar

اخي محمد فهم السؤال ثلثي الإجابة ،،، دائماً ما أكررها ما فهمناه من شرحك انه في حال كان الجنس ذكر يكون السعر مثلاً 5 وفي حال كان انثى يكون السعر 4 وعندما اضفت اقل من عشرين يكون السعر 3 هنا سقط عامل الجنس وبناء على ما تقدم تحتاج الى ثلاثة حقول للاسعار فهنا يجب ان تلاحظ ان كل معيار له سعر ولو كان لديك عشرة معايير مثلاً فسوف تحتاج الى عشرة حقول اسعار :: عموماً انا طبقت لك على ثلاثة اسعار : في حال كان العمر اكبر من عشرين يعتمد السعر على الجنس واذا كان اقل يعتمد على العمر ويهمل الجنس واضف حقلاً ثالث في جدول sprt وسمه price3 اضف الكود التالي في حدث بعد التحديث لحقل food Select Case Forms!cust!age Case Is >= 20 If Forms!cust!sex = "Male" Then Me.price = DLookup("[price1]", "sprt", "fid=" & food.Column(1) & "") Else Me.price = DLookup("[price2]", "sprt", "fid=" & food.Column(1) & "") End If Case Else Me.price = DLookup("[price3]", "sprt", "fid=" & food.Column(1) & "") End Select ثم وافنا بالنتيجة ... :: تحياتي

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

السلام عليكم 1. نغير اسماء حقول الاسعار في الجدول للذكور والاناث ، ثم نضيف حقل للذين اعمارهم اقل من 20 سنة: 2. نعمل الاستعلام التالي ، والذي يرسل مجموعة من البيانات الى الوحدة النمطية Prices ، والتي تقوم بفرز الاسعار: 1. سعر النساء ، 2. سعر الرجال ، 3. سعر الاقل من 20 سنة ، 4. حقل الجنس من النموذج ، 5. حقل العمر من النموذج ، وهذه هي الوحدة النمطية التي تقوم بفرز الاسعار: Function Prices(f, m, b, s, a) 'f = female price 'm = male price 'b = below 20 years of age 's = sex 'a = age If a <= 20 Then Prices = b ElseIf s = "male" Then Prices = m ElseIf s = "female" Then Prices = f End If 'OR One_Line = IIf(a <= 20, b, _ IIf(s = "male", m, f)) End Function ولاحظ في نهاية الوحدة ، فقد جمعت/اختزلت جميع اسطر الكود الى سطر واحد ، والذي يمكننا استخدامه في الاستعلام مباشرة بدون الوحدة النمطية (سأتحدث عن هذه النقطة لاحقا)، 3. والنتيجة حسب الجنس والعمر في النموذج: لاحظ الحقل One_Line ، وهو الحقل المختزل من الوحدة النمطية ، 4. عملت هذا الاستعلام لتجعله مصدر بيانات حقل food في النموذج الفرعي ، ولا يوجد داعي لإستخدام الحقل Grouping: جعفر 400.معيار (Parameter) 2003.mdb.zip

حياك الله اخي محمد وكل عام وانت بخير الرجل: 5 المرأة: 4 الذي اقل من عشرين 3 اصبح لدينا ثلاثة اسعار وليس إثنان السعر الاول والثاني يعتمد على الجنس والسعر الثالث تحدد لمن هم اقل من عشرين بغض النظر عن جنسه هذا ما فهمته من شرحك... والسؤال هنا: هل السعر لمن اقل من عشرين له علاقة بالجنس ام لا؟؟؟

السلام عليكم أخي محمد ممكن تعطينا مثال عن كيفية استخدام السعر1 و السعر2: 1. ذكر ، عمره اكثر من xxx 2. ذكر ، عمره اقل من xxx 3. انثى ، عمرها اكثر من xxx 4. انثى ، عمرها اقل من xxx جعفر

وعليكم السلام أهلا بك يا أخي في هذا المنتدى التعليمي وأرجو أن تجد فيه حلولا لكل ما يواجهك في عالم برمجة الأوفيس أولا : الرجاء تغيير اسم ظهورك إلى اللغة العربية كما هو معمول به في هذا المنتدى ثانيا : إليك هذا الحل في الملف المرفق اضغط كلك يمين الماوس وادخل رقم الشيت book2.rar

بارك الله فيك مجهود مشكور عليه

تم اكتشاف الحطأ و تعديله طباعة ذكية salim 1.rar

باستخدام دالة select case او دالة IF في حدث بعد التحديث للكومبو في النموذج الفرعي مثال: على دالة IF If Forms!cust!age > 30 Or sex = male Then Me.price = Me.food.Column(4) If Forms!cust!age < 30 Or sex = Female Then Me.price = Me.food.Column(5) :: تحياتي

كل عام وأنتم بخير وتقبل الله منا ومنكم صالح الأعمال ، وجعلنا أعمالنا صالحة ولوجهه خالصة

أعتذر عن عدم ملاحظتي للملف المرفق حيث قد تعودت أن الملف المرفق يكون في نهاية الموضوع ، فلم ألحظ أنه موجود قبل الصورة تقبل اعتذاري

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

السلام عليكم أبو يوسف اطلعت على الملف ووجدت أن هناك العمود الأول يحتوي على دخول وخروج الطالب ..أليس من المفترض أن يكون هناك عمودين أحدهما للدخول والآخر للخروج؟ وإلا يرجى التوضيح لشكل النتائج المتوقعة وضرب مثال من داخل الملف المرفق لتجد الاستجابة بشكل أفضل تقبل تحياتي

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

السلام عليكم أخي احمد بالنسبة الى التاريخ ، رجاء قراءة الرابط التالي ، فقط تستفيد منه اما بالنسبة الى الدالة DSum والتي تُستخدم بنفس شروط الدالة Dlookup ، فالرابط التالي قد يفيدك ايضا: جعفر

تفضل اخي صالح ،،، Waz-FolderDir.rar

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

Sub ناجحين() Dim c As Range For Each c In Sheet1.Range("case") If c.Value = "ناجح" Then Z = Z + 1 lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1 Sheet2.Range(Sheet2.Cells(lstrow, "b"), Sheet2.Cells(lstrow, "ag")) = _ Sheet1.Range(Sheet1.Cells(c.Row, "b"), Sheet1.Cells(c.Row, "ag")).Value Sheet2.Cells(lstrow, "a") = Z: End If Next c End Sub المحترم استاذ ابو عبد الباري لو تكرمت نريد شرحه

من فضلك ارسال الشيت الخاص بك للعمل علية

بعد اذن الأستاذ بن علية حاجي تفضل المرفق التالى abo_abary_11.rar

احسنت اخي احمد :: تحياتي

اخى العزيز معمرالراوي كل عام وانتم بخير ارجو ان يفى الملف التالى بالغرض abo_abary_العلاوات.rar

السلام عليكم و رحمة الله و بركاته رمضان سعيد أما بعد: هذا كتاب برمجي خاص بالاكسل و الـ VBA و هو مفيد جدا و يتكون من 411 صفحة باللغة الانجلزية. التحميل http://ebook-dl.com/download/excel_vba_programming_for_dummies_john_walkenbach

الأخ الكريم أيمن ابراهيم كل عام وانتم بخير جرب الملف التالى لعلة يفى بالغرض abo_abary_الملف_1.rar

بسم الله كل عام وأنتم بخير ،،، عيدكم سعيد إن شاء الله يعتبر Power Query أحد الإضافات الحديثة في برنامج الاكسل، والذي يحصل على تحديثات دورية من مايكوروسفت لتحسين أدائه سواء بتحسين مميزات وخصائص الأدوات الحالية أو بإضافة أدوات جديدة لمن لا يعرف ما هو Power Query، فهو أداة تعمل على إتمام 3 وظائف رئيسية هي: إستيراد البيانات من العديد من مصادر البيانات كقواعد البيانات (اكسس / SQL / ...) أو من الويب أو من ملفات الاكسل والعديد من المصادر الأخرى. معالجة البيانات التي تم إستيرادها من المصادر المختلفة، وهذه من وجهة نظري تشغل أكثر من 50% من قوة الاداة. تخزين البيانات بعد المعالجة سواء في جدول اكسل / عملية ربط فقط / اضافة لل Data Model. يرجى الأخذ في الإعتبار أن إستخدام Power Query داخل الاكسل مكافئ لحدٍ ما لإستخدام Power Query في Power BI Desktop. في هذا الموضوع أضع بين أيديكم الفيديوهات التي قمت بإعدادها لشرح هذه الأداة بداية من التعرف على طريقة إضافة وتثبيت Power Query مروراً بعمليات الإستيراد والمعالجة للبيانات. أرجو أن تكون هذه الفيديوهات ذات عون لكم في التعرف على استخدام الاداة. 01 - كيفية إضافة Power Query في الإكسل 2010 و 2013 02 - مقدمة تعريفية بالوظائف الرئيسية لل Power Query وعناصر شاشة محرر الإستعلامات https://youtu.be/Kd6g1vTfQuI 03.1 - الربط والإستخلاص من ملفات الإكسل في Power Query الأمر From Excel https://youtu.be/pSOLLngRbAA 04 - إستخدام الأمر Unpivot Columns في Power Query https://youtu.be/SNqC5Wsd7IM 05 - الدمج الرأسي للإستعلامات بالأمر Append Query إستعلام الإلحاق | Power Query https://youtu.be/1t9qWAmGJPM 06. الدمج الأفقي للإستعلامات في Power Query - الأمر Merge Query https://youtu.be/Py5D-JBEmpE 07. دمج ملفات CSV أو TXT في Power Query - الأمر Combine Binaries https://youtu.be/48OeFmvajPc 101. طريقة الوصول لقائمة دوال Power Query https://youtu.be/0MtZ_XUm9k8

abo_abary_Book1.rar

الأخ الكريم الأستاذ / محمد الدسوقى عذرا لأرفاق ملف خطأ وهذا هو الملف المطلوب abo_abary_استخراج الأوائل.rar

الجزء السابع للمبدع اسلام رجب

الجزء السادس

الجزء الخامس

الجزء الرابع

الجزء الثالث

الجزء الثاني

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

اخي جعفر طبعا فكرة ادخال الدالة format في الطرفين : طرف المعيار وطرف القيمة المعلمة ! ليست جديدة عليكم ولكن قد يكون تطبيقها هو الذي جعلكم تبحثون عن فكرة وهي ابسط حقوق المبرمج ! الآن راح نشوف الاكسس لضمان تساوي التنسيق ! في ال sql Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where format([date],'dd/mm/yyyy')='" & Format(idate, "dd/mm/yyyy") & "'") هنا نلاحظ ان السر في عدم استخدام # واستبدالها ب ' لانه اصبحت المقارنة نصية ! والافضل وضع تنسيق التاريخ بهذا الشكل mmddyyyy في دالة ال dcocunt RC4 = DCount("*", "tbl_T", "format([Date],""ddmmyyyy"") =Format(idate, ""ddmmyyyy"")") بالتوفيق

والدالة لأكثر من شرط ، وبطريقة سهلة: كل نوع من انواع الحقول له طريقة معينة للتعامل معه في الكود ، وهذا يجعل كتابة كود بأكثر من شرط ، صعب نوعا ما ، لذلك ، الطريقة التي اقترحها هي في التعامل مع كل نوع بسطر مستقل (انظر للمثال في الاسفل) ، مما لا يدع مجال للخطأ في السطر ، ثم نجمع الاسطر في سطر واحد ، وهذا السطر يكون مجموع الشروط : 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) جعفر

اخى العزيز جرب المرفق تم التعديل على يوزر فورم المشتريات باضافة خانة الرصيد هل هذا هو المطلوب ؟ إدارة المحل نهائى.rar