omani

تفضل انظر هنا /index.php?showtopic=215090&view=findpost&p=1070910 وحاول ان ستتخدم خاصية البحث لاحقا تحياتي

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

بتعديل بسيط في العلاقات .. وأيضا في مصدر بيانات النموذج . تفضلي المثال بعد التعديل اتمنى ان يكون المطلوب . ملاحظة : يجب استخدام خاصية ضغط واصلاح قاعدة البيانات من قائمة ادوات (يفضل ان تقومين بها قبل اغلاق قاعدة البيانات على الأقل مرة اسبوعياً) باستخدام الخاصية…

إبداااااااااااااااااااع وشرح أكثر من رائع سلمت اناملك يا فضاء الأسماء .. المفروض اسميك namespaces king فأنت كذلك . 1+ ,ولو فيه زيادة كنت عطيتك ..

أرفع المثال اخي الكريم تحياتي

هل لك ان ترفع لي مثال لأرى مايمكن تعديله . تحياتي

لا اعلم ماذا تخزن في هذه المتغيرات العالية ولكن حاول ان تستبدل string ب double Public MyIndx_A(100 to 999) As Double Public MyIndx_B(10000 to 99999) As Double Public MyIndx_C(1000000 to 9999999) As Double Public MyIndx_D(1000000000 to 99999999999) As Double تح…

تفضل مثالك بعد التعديل انظر الاستعلام تحياتي رصد الدرجات.rar

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

ابداااااااااااااااااااع كعادة طارحة الموضوع تقبلي مروري تحياتي

جرب هذا Dim rs As Recordset Dim db As Database Set db = CurrentDb Set rs = db.OpenRecordset("select * from z where z.zname like '" & combo277.Value & "'") MsgBox "تم العثور على " & rs.RecordCount & " سجل " تحياتي

ضع هذا الكود في زر الادخال في مثالك . مع ملاحظة تغيير الحقل userId في الجدول t_Dt بحيث تجعله يقبل التعدد . لانه في هذه الحالة سوف يعطيك خطأ لوجود بيانات مكررة . DoCmd.RunSQL ("INSERT INTO t_Dt ( UserId, Date1 )SELECT t_Nm.UserId,Date() AS d FROM t_Nm;") أو ان …

تم ارسال حل الجزء الاول من اللغز الثاني وجاري كتابة الجزء الثاني من اللغز الثاني تحياتي

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

تصحيح استاذتي العزيزة الاكواد وضعها أخونا الاستاذ MoHaMMaD Pro تحياتي

الدالة صحيحه ولكن عليك ان تجعلها في متغير مثلا d = Day(DateSerial(Year(Now()), Month(Now()) + 1, 0)) MsgBox d أو MsgBox Day(DateSerial(Year(Now()), Month(Now()) + 1, 0)) تحياتي

هذه نسخه عادية بدون Startup Form تحياتي new - Copy.rar

بالضغط على مفتاح شيفت عند فتح قاعدة البيانات .. تحياتي

تعمل بدون اي مشاكل .. تأكدي من الاكسيس عندك .. يفضل اعادة تثبيت الاوفيس كامل . تحياتي

تفضلي هذا مثال متكامل لما تريدين .. فقط كل ماعليك هو انشاء التقارير .. تحياتي new - Copy.rar