Dream_Works

تفضل ... هذي محاولة على السريع ADDING_TEXTS.zip

أرجو إرفاق قاعدة بياناتك

أرجو إرفاق ملفك

أنا باعتقادي أن الأقواس ال Square Bracket عادة ما تستخدم لتمييز الحقول ( بمعنى أن المكتوب داخل الأقواس هو حقل في جدول أو استعلام أو نموذج أو تقرير ) و تمييز أسماء الجداول و الاستعلامات و النماذج و تمييز خصائص النموذج ... و أمور أخرى ( في الحقيقة هي أحد طرق التمييز ... لأنك عادةً تستخدم طرق أخرى لها نفس الكفاءة مثل ما كتبت Emp.Name بدون أقواس ) ... أحياناً الأكسيس إذا رأي اسم أو كلمه بدون أقواس فإنه يمشيهاً و يعتبرها صح ... و لكن إذا كان الحقل يتكون من كلمتين مثلاً و بينهما مسافه ( اسم الطالب مثلاً ) فيجب وضع الأقواس لهما لأنه يبحث عن حقل اسمه [اسم] فقط لذلك باعتقادي يمكنك إزالة الأقواس حول كلمة Number لأنها كلمة واحده و بدون مسافات .... و إذا وجدت مشكلة في ذلك أرجو إرفاق الملف صراحةً أنا لستُ مطلعاً على كل الأمور في الأكسيس ... فاحتمال يكون للأقواس مميزات أخرى أنا لم أعرفها بعد !!!!! هذا أحد المواقع الجميله التي استفدت منها كثيراً في تعلم الأكسيس اقرأ فقرة The Square Brackets Operator: [] Access Lessons

أرجو أن يكون كلامي واضحاً

أختي العزيزه ... حسب فهمي المتواضع ... أعتقد أن طلبك موجود بالملف بالفعل ... فإن المكان الكلي للصورة ( المسار + الملف ) يُحفظ لكل سجل في الحقل Pic11 في جدول Sheets لقد جربته بنفسي و يمكنني اختيار الصور من أي فولدر ( دليل ) على الجهاز

أرجو أن يكون هذا المطلوب db1.zip

أشكرك أخي ابو خليل على هذه المعلومة ...

أرجو أن يكون هذا المطلوب _______.zip

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

أشكر الأخ ابو خليل على مجهوده ... حقيقةً مجهود رائع يستحق الثناء عليه و بعد إذنك سأكمل هذا المجهود البسيط الباقي بالنسبه لطلبكِ أختي سيرينا فهو موجود بالفعل في الملف ... حتى تكون كل الملفات هي الاختيار التلقائي يمكنك إضافة السطر التالي .nFilterIndex = 2 فيصبح الكود بالشكل التالي: With OFN .lpstrTitle = "Images" If Not IsNull([Pic]) Then .lpstrFile = [Pic] .flags = &H1804 ' OFN_FileMustExist + OFN_PathMustExist + OFN_HideReadOnly .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _ "All files (*.*)", "*.*") .nFilterIndex = 2 End With

بما أن نوع الحقل نصي Text يمكنك وضع المطلوب بين علامتي اقتباس "0013/163/163/1"

أخي الكريم أعتقد أن المشكلة أن المجموع يجمع القيم الغير مقربه ... يعني فيها كسور ... لذلك المجموع يظهر خاطئ ... انت عملت العملية بالجدول و لكن ليس بالاستعلام ( لأن الاستعلام به حقول محسوبة لم تعمل بها المطلوب مثل حقول الجدول ( تقريب الأرقام) ) لوضع عملية التقريب في حقول الاستعلام أرجو تجربة الآتي على كل الحقول المطلوبة: حقل Total Payment كان : Total Payment: [Rate/Hour]*[Total Working Hours] بعد التغيير Total Payment: Round([Rate/Hour]*[Total Working Hours]+0.0000000001;0) تم زيادة الرقم البسيط لأنه عملية التقريب غير مضبوطة بالأكسيس بالنسبة لرقم نصف 0.5 ( يتقرب إلى الصفر و ليس واحد ) أرجو عمل ذلك على باقي الحقول بالاستعلام ... بالتوفيق

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

هذي محاولة على السريع db1.zip

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

كودك ناقص أخوي ... أنا محتاج أكمله و بعدين أشوف الحل ... إذا عندك الكود كامل عطني إياه

أرجو إرفاق قاعدة بياناتك مع مزيد من التوضيح

أرجو أن يكون هذا المطلوب باختصار تم عمل الآتي إنشاء استعلام جديد يعتمد عليه النموذج الفرعي Table 2 ووضع الآتي لكل واحد من الحقول الأربعة المطلوبة في خانة Criteria IIf(IsNull([Forms]![Form1]![ID]);[ID];[Forms]![Form1]![ID]) إذا كان حقل النموذج فارغاً ... تظهر القيمة الافتراضيه له من الجدول ... حتي لا تُمسح النتائج بسببه معني كلامي أن كل الكود موجود على سطر واحد حتى تنطبق كل الشروط مرة واحده ( And ) العيب الوحيد في هذه الطريقة ... أن النموذج الفرعي Table 2 لا يمكن استخدامه إلا داخل النموذج Form1 ... ( أعتقد إنه ما عندك مشكلة في هالنقطة ) ... db1_2_.zip

جرب ضغطها على شكل zip Right Click بالفأرة ... Send To ... Compressed zipped Folder .... No

هل جربت تنزيل موضوعك في منتديات أخرى ... جرب تنزيله في منتديات الفريق العربي للبرمجة مثلاً .

الاستعلامات فقط ... وهي مهمه جداً كما تعلم ...

مع احترامي و تقديري و شكري للأخ Bluemind على مشاركاته ... أبدي رأيي في الحل أرجو أن يكون هذا المطلوب كلمة أكثر تبدأ بحرف الألف .... لذلك لم يكن الترتيب بالشكل المطلوب تم وضع الثلاثة استعلامات مع بعضها في ال SQL View مع وضع Union بينها يمكنك مسح جميع الاستعلامات و الاعتماد على الجديد فقط يمكنك التمييز ما بين الأنواع الثلاثة بتغيير بيانات الحقل TYpe إلى أرقام بسيطة 1 , 2 , 3 SELECT "من 1 إلى 5" AS Type , [استعلام 1].النوع, Sum([استعلام 1].الكمية) AS Sumمنالكمية, Count([استعلام 1].[NO]) AS CountمنNO FROM (SELECT rta.النوع, rta.الكمية, rta.[NO] FROM rta WHERE (((rta.الكمية) Between 0 And 5))) AS [استعلام 1] GROUP BY "من 1 إلى 5" , [استعلام 1].النوع Union SELECT "من 6 إلى 10" as Type , [استعلام 2].النوع, Sum([استعلام 2].الكمية) AS Sumمنالكمية, Count([استعلام 2].[NO]) AS CountمنNO FROM (SELECT rta.النوع, rta.الكمية, rta.[NO] FROM rta WHERE (((rta.الكمية) Between 6 And 10))) AS [استعلام 2] GROUP BY "من 6 إلى 10" , [استعلام 2].النوع UNION SELECT "أكثر من 10" as Type , [استعلام 3].النوع, Sum([استعلام 3].الكمية) AS Sumمنالكمية, Count([استعلام 3].[NO]) AS CountمنNO FROM (SELECT rta.النوع, rta.الكمية, rta.[NO] FROM rta WHERE (((rta.الكمية) Between 6 And 10))) AS [استعلام 3] GROUP BY " أكثر من 10" , [استعلام 3].النوع; d2.zip

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

أرجو أن يكون هذا هو الحل المطلوب تم وضع الكود التالي في الحدث OnClick للحقل ID في نموذج Table 2 If Not Me.NewRecord Then DoCmd.OpenForm "Table1", WhereCondition:="ID = " & Me.ID If Not Me.NewRecord هذا الجزء للتأكد من أن المستخدم لم يضغط على سجل جديد في نموذج Table 2 - به كلمة New DoCmd.OpenForm "Table1", WhereCondition:="ID = " & Me.ID هذا الجزء مخصص لفتح النموذج المطلوب Table 1 مع فلترة البيانات و إظهار السجل المطلوب فقط db1.zip