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

اها ، لم التفت للشرط الاول اذن الاستعلام سيكون: . والكود سيصبح: Dim rst1 As DAO.Recordset Dim rst2 As DAO.Recordset Set rst1 = CurrentDb.OpenRecordset("Select * From tbl1") Set rst2 = CurrentDb.OpenRecordset("Select * From tbl2") rst1.MoveLast: rst1.MoveFirst RC1 = rst1.RecordCount For i = 1 To RC1 rst2.FindFirst "[degree]='" & rst1!degree & "' And [names]='" & rst1!fullnames & "'" If rst2.NoMatch = False Then rst2.Delete End If rst1.MoveNext Next i rst1.Close: Set rst1 = Nothing rst2.Close: Set rst2 = Nothing جعفر

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

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

لسلام عليكم ورحمة الله تعالى وبركاته اصدقاء الغالي لدي هدية صغيرة لكم اتمنى ان يستفيد من هذا المرفق تفعيل و تعطيل مفتاح الشفت برقم السري رقم سرى ( 2017 ) وبأمكانكم ان اغير هذا الرقم في وحدة النمطية (Shift disable mode) الحطوة اولى : اضغط على 2017 واكتب رقم 2017 وثم اقفل البرنامج بعد افتح سيعطل شفت الخطوة الثاني : اضغط على 2017 في فورم رئيسي اكتب رقم غلط او لا تكتب اي شيء اطغط على ok سيعطل شفت بعد خروج من البرنامج وبامكانم اخفاء 2017 في فورم رئيسي مع العلم هذا الرقم 2017 للفورم او نموذج رئيسي فقط للشرح بامكانكم ان اكتب اي شي مثلا (. او - او x ) وبعد مع التقدير ريباز سلام Lock shift.rar

تفضل حل مبدئي لتقريب فهم الموضوع ولعله يكون المطلوب يوجد table1 لتعريف nv وبه النص سواء male او female او فارغ والمقصود x-y او equ وهكذا لكل ارقام متغيره يوجد نموذج table2 والتي هي الحل المبدئي شوف وهات الملاحظات بالتوفيق Compair_No.rar

بتجيب الصور دي من وين ياباشا ؟ ماتجيب الملف وتريحنا!

شفت ياباشا بان ظهرت معلومة جديده وهي ان يكتفى بتعريف ال Equivocal وبالمجال فان زادت على الرقم الاعلى فهي pos وان قلت عن الادنى فهي neg وان بين فهي Equ ولا داعي لتعريف ال pos او neg لوحدهم ايه رايك

مشكوررررررررررررر جدا لهذه الهدية .... وفقك الله

تم قفل مفتاح شيفت من هنا يستطيع تحصل على القاعده‌ بيانات https://drive.google.com/open?id=0B48p_cw7wn99Z0ZCOFJRX3JfbDA تحياتي

اسف على الخطأ الغير مقصود =IIf(Format([ogr_date];"mmm")="اذار";"شباط"; Format([ogr_date];"mmm")) او =IIf(Format([ogr_date];"mmm")="اذار";"شباط")

اتفضل اخ ريباز filter.rar

أخى الكريم ضع هذا السطر بعد السطر الثالث قبل المتغيرات If MsgBox("هل ترغب فى ارسال الملف الى مالية القاهرة أم لا ?", vbYesNo, "Confirm") = vbYes Then ولا تنسى اغلاق الجملة الشرطية قبل نهاية الكود ضع End IF وتقبل منى وافر الاحترام والتقدير

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

=IIf(Format([ogr_date];"mmm")="اذار";"شباط";"اذار")

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

عفوا منك استاذي القدير " جعفر " لكن هناك راح يمسح كل الاسم اللي في جدول تابل2 وحسب فهمي لازم تنطيها الشروط كما مبينة في الصورة وشوف النتائج بعد اعطاء الشروط وشوف النتائج اذا ما ننطي الشروط هذا والله اعلم تحياتي

عفوا اخ وليد انا نزلت المرفق وشفت ان بيظهر الكمبيالة فارغة من البيانات و جدول الكمبيالة فارغة اصلا واشوف مافي علاقات بين الجداول

اليك هذا اعمل استعلام توحيد واكتب فيها select * from table1 UNION select * from table2; واعمل استعلام ابيند اي اضافة الى جدول تابل 3 اي فتح استعلام جديد في وضع تصميم سكويليتي واكتب فيها INSERT INTO table3 ( id, الصنف, سعر ) SELECT دمج.id, دمج.ماكينه, دمج.سعر FROM دمج; واليك ملفك بعد عمل فيها test.rar

جزاكم الله خيرا أستاذنا الفاضل ياسر خليل أسأل الله العظيم أن يجعله في ميزان حسناتك

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

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

وعليكم السلام أخي ابوجاسم ، ماشاءالله عليك انت في مشاركتك الـ 204 . لقد فتحت 4 مواضيع بمسميات مختلفة لنفس السؤال !!! لماذا ؟ انت تعرف انك تستطيع ان "تعدل" الموضوع (بما فيها اسم الموضوع ومكوناته) ، بعد وضعك الموضوع ، وقبل ان يضع احد رد عليك. وهذا الجزء من المنتدى ، منتدى الاكسس موجود لكي نتبادل الخبرات ، ونساعد بعض ، اما ان يساعدك احد على الخاص ، فالرجاء وضع مثل هذا الطلب في إعلانات شخصية للاعضاء بمقابل مادي بالاضافة الى انه عندك موضوع مفتوح نشط هنا: يُقفل. جعفر

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد الرجاء العلم انه بالفعل يوجد خطا في المعادلة الموجودة في عمود D و لكن المعادلة الموجودة في عمود C سليمة 99.99% لذا يمكنك العمل بها . وشكرا

السلام عليكم لم افهم الاستفسار في البدء لعدم وجود مرفق ارفقت لكم هذا وبه المطلوب تقريبا وبدون اكواد او عملية معالجة لخاصية السماح بالاضافة . جرب اولا كمستخدم وبدون معرفة الطريقه ! وبه ايضا اختصار لفكرة معالجة خاصية السماح بالاضافة بالكود وهي طبعا فكرتك وتم تعطيل الكود لتجربة الفكره اعلاه بالتوفيق myway1.rar

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

استخدم هذا DCount("OrderID", "tblorders", "[OrderDate] =#" & Format(Me.OrderDate.Value, "mm/dd/yyyy") & "#")

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

مافي شي باسم حماية مطلقة لذا حسب رأيي لا تشغل بالك كتير بهذا شي

نبدأ بـــ وميظهرش اي حاجه غير شاشة الدخول فقط https://drive.google.com/open?id=0B_PUvBx3OX5taTdtSDhfS0VPQlU لوجود اكواد خطاء فى محرر الاكواد تماااااااااااااااااااام تم حل مشكلة الاخطاء فى المرفق الذى ارفقته نبدأ بـــ وميظهرش اي حاجه غير شاشة الدخول فقطhttps://drive.google.com/open?id=0B_PUvBx3OX5taTdtSDhfS0VPQlU ان رضى اخونا جاسم عن النتيجه نغلق الشيفت

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

لن تكون مضطرا الى اخفاء اوراقك بعد اليوم... فهذا الكود البسيط يقيد المستخدم في استعمال اوراقك Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'تمكينها يمكن تغيير الرقم 1 الى رقم الورقة التي تريد ' كل الاوراق الاخرى مقيدة Worksheets(1).Activate End Sub تقييد المستخدم للاستعمال ورقة محددة.zip