محمد طاهر عرفه

أخي أبو دلال يمكنك وضع الكود نفسه هنا أو رفع المثال علي أي موقع تحميل أو ارساله الي الأخ فيصل ليضعه أو أرسله لي مع تحياتي

و لماذا تريد تخزين معلومة اضافية..؟؟ فالدرجة تكفي ، و تستخدم احدي الطرق لاستنتاج التقدير سواء فى النماذج أو التقارير عموما ، فى شاشة ادخال الدرجات ، فى حدث بعد التحديث لمربع النص الذي ستدخل فيه الدرجة ، ضع الكود التالي Me.grade = GetGrade(Me.number) حيث grade هو اسم مربع النص المرتبط بحقل التقدير فى الجدول و number هو اسم مربع النص الذي ستدخل فيه الدرجة و لا تنسي نقل الكود الخاص بالدالة الي الموديول

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

مرفق بسيط لضرب الفئة فى القيمة و الحصول علي المجموع الاجمالي Product.rar

مرفق المثال بالاكسس و به 4 طرق واحدة باستخدام IIF و 3 بال VBA مع تحياتي Grades.rar

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

مثال جميل جدا شكرا لك

آميييييييييييييييييين اللهم اجمعنا فيها و جميع الأخوة يارب العالمين :fff:

مثال لما قلت ، علي جداول مثال الدورة SELECT tblcost.Value as Cost, 0 as Income, tblcost.date as [Trans-Date], "Income" AS [In-or-cost] FROM tblcost UNION ALL SELECT 0 as Cost , tblincome.Value as Income, tblincome.date as [Trans-Date], "Cost" AS [In-or-cost] FROM tblincome ORDER BY [Trans-Date];

لا أعرف طريقة لازلة الخط فقط تغيير اللون مع تحياتي

يمكنك اما جمعها فى عمود و جعل اشارة المشتروات سالبة أو عمل عمودان الاول للمشتريات يجمع المشتريات من الاول و صفر و الثاني يجمع صفر و المبيعات من الثاني للمزيد حول استعلام التوحيد ، يرجي مراجعة قسم دورة الاكسيس

فى هذا الموضوع من هنا فى قسم الاكسيل ( الدرس الرابع ) و الملف المرفق Grades.zip توجد عدة دوال لعمل ذلك و يمكنك تطبيقها علي الاكسس

الحرف ينتج عن عملية Map Network Drive فاما أن توحدها علي الاجهزة فمثلا تجعل Z للجميع أو ان تكتب المسار كاملا \\ibnmasqutPC\ImageFolder

http:/www.officena.net :lol: http://www.lacher.com/toc.htm http://www.usd.edu/trio/tut/excel/ http://www.baycongroup.com/el0.htm http://www.cpearson.com/excel.htm http://www.xl-logic.com/menu.html

أعتقد أنه من الافضل فى هذه الحالة أن تقوم بعمل استعلام توحيد يجمع بيانات الجدولين ، و بناء عليه تعد التقرير

الأخ ابن مسقط ، لا أعتقد بوجود مشاكل علي الشبكة الاخ سلطون ، هل جربت الطريقة فى مثال الاخ طارق ؟؟

للتعرف علي المجلد الذي به القاعدة يمكنك استخدام الكود التالي Function GetPath(Name As String) As String Dim i As Integer, pathtemp As String i = 1 Do While i < Len(Name) pathtemp = "" Do While Mid(Name, i, 1) <> "\" And i <= Len(Name) pathtemp = pathtemp & Mid(Name, i, 1) i = i + 1 Loop If Mid(Name, i, 1) = "\" Then GetPath = GetPath & pathtemp & "\" i = i + 1 End If Loop End Function و لاستدعاؤه فى رسالة مثلا من الكود الخاص بالنقر علي زر : Private Sub Command3_Click() MsgBox GetPath(CurrentDb.Name) End Sub

هذا الرد بناء علي اوفيس اكس بي : من قائمة Format نختار Slide Design. و من اليمين نختار Color Schemes و من الاسفل Edit Color Schemes. و نختار Custom tab. و نختار Accent and hyperlink و Accent and followed hyperlink و لكل منها علي التوالي : Change Color. ثم apply و ربما تكون الخطوات مشابهة أو مقاربة فى ال 2000 مع تحياتي

طيب :) لو لدينا قيم فى العمود a a1:a10 و جئنا فى الخلية b1 ووضعنا معادلة لضرب القيمة فى a1 * 5 و اذا أردنا أسرع طريقة لتطبيق المعادلة علي باقي العمود ؟؟ أول رد طبعا سيكون سحب الخلية b1 الي الاسفل اجابة خاااااااطئة :( أسرع طريقة هي : قف فى b1 و تحديدا فى الركن اليمين الاسفل ، و عند تحول الماوس الي حرف الزائد بدلا من السحب ، انقر نقرا مذدوجا ملاحظة ، هنا سيتوقف نسخ المعادلة الي أول خلية خالية فى A1:A10 ملحوظة 2 : المعلومة عرفتها سابقا من صاحب الموضوع :)

جرب تغيير الخواص الاتية الي القيم المناظرة امامها Enabled : no Locked : yes

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

أو بتظليل الصفحة المراد سحبها بالكامل ، و سحبها بالماوس الي المكان الجديد و لكنه هنا لن يتعامل معها كصفحة و لكن كمجموعة أسطر و لكن ستؤدي نفس الغرض

يبدو لي أن هذا الكود خاص بالاكسس و ليس الاكسيل فاذا كان فيرجي طرح الموضوع فى قسم الاكسس اما عن الدوال ، فهي واحدة فى كل ال vba في مختلف تطبيقاته trim تزيل الفراغات الموجودة قبل و بعد النص تعبيرات Like *m* Like m* Like *m عن شرط أن النص : به m يبدأ ب m و يليه أي حاجة ينتهي ب m و قبلها أي حاجة send keys تقوم بمحل الكتابة علي ازرار محددة مثلا SendKeys "%{F4}", True كانك كتبت علي لوحة المفاتيح ALT+F4 و بالنسبة لتعريف المتغيرات ، يوجد فى ارشيف قسم الاكسس شرح متميز للاخ حارث ، لاساسيات كتابة الاكواد

شكرا علي التوضيح :d لم أعرف سابقا أن NullID = (Nz(Me.id) = "") تناظر NullID = Nz(Me.id) = ""

في هذا المثال جدول اسماء الطلبة به الرقم و الاسم من النموذج يتم تحديد الطالب و قيمة المخالفة المرتكبة و بالتسجيل ، يتم حفظ السجل فى الجدول مع عمل مسلسل لكل طالب فى جقل Serial جدول المخالفات و اضافة رقم و اسم الطالب و قيمة المخالفة DmaxUnboundSQL.rar