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

آميييييييييييييييييين اللهم اجمعنا فيها و جميع الأخوة يارب العالمين :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

أعتقد أن السكوت علامة الرضا :) و يبدو أن الأخوة موافقين علي هذا الرأي :) أثناء تصفح الكود استوقفني سطر فيه ، وجدته جديد علي فارجو شرحه NullID = Nz(Me.id) = "" علما بان NullID من نوع Boolean و ماذا تعني ال 2 = فارجو التوضيح مع تحياتي

لا أعرف حل مباشر للموضوع فاختلاف التنسيقات عموما لكل برامج الاوفيس ، مشكلة لم موجودة فى أكثر من برنامج فى الاوفيس و ليس الاكسس فقط ، و أعتقد أن هذا سببه دائما الاهتمام بالاصدار الاحدث و عدم الاهتمام بتشجيع النسخ القديمة ما أراه هو احد حلين ، اما ان تعتمد فى تشغيل البرنامج علي الاكسس Runtime للاصدار الاحدث . ( لم أجرب هذا الحل علي اصدارات حديثة ) و لكنه نظريا ممكن أو أن تقوم بمضاعفة التقارير تقرير لكل اصدار و تنسقه بما يناسبه و تقوم باختيار التقرير الذي سيفتح بناء علي الاصدار العامل للاكسس و يوجد مثال لابو هاجر بخصوص استنتاج الاصدار ، فاذا ناسبك هذا الحل نرفق لك المثال أيضا ما هي الاصدرات المختلفة ، فلو كانت 2000 و اكس بي ، فيمكنك أن تعمل بتنسيق 2000 علي كلاهما ، و لم تحدث معي مشاكل تنسيق فيهما عند كون الملف بتنسيق 2000 أما اذا كان 97 داخل كطرف فى الموضوع ، فانصحك باستبداله ، حتي و لو كان هناك صعوبة شوية فى الموضوع أو ان كن لابد ، فلتوحد الاصدار القديم ، و يمكنك تحميل أكثر من اصدار علي الجهاز الواحد أيضا أحيانا يكون سبب مشاكل التنسيق ليس اختلاف اصدار الاوفيس و لكن اختلاف اصدار الويندوز و الخطوط ، و هذا رهن بالتجربة ، فجرب .

الاداة المفرفقة مع المثال الاصلي لا تحتاج الي رقم تسجيل ساعيد ارفاق المثال Gifaanim_officena.rar

مثال علي رسالة تأكيد قبل التعديل و التخيير بين التنفيذ و التراجع updateconfirm.zip

هذا المثال لاختبار وجود قيم فى جميع مربعات النص CheckAlltextBoxs.zip

أهلا بك أخي الكريم بالنسبة لادراج الملفات ، يرجي كراجعة الموضوع المثبت بالنسبة للوين رار هو أفضل كثيرا من الوين زيب و يمكنك تنزيله من هنا http://www.rarlabs.com/download.htm

و عليكم السلام و رحمة الله وبركاته قم بتسجيل الاداة المرفقة ثم شغل المثال للتسجيل Tools Activex controls register و تحدد مسار الاداة و لاختيار صورة تفتح صندوق الادوات ثم تختار الاداة animation gif control ثم تدرجها فى النموذج ثم بعد ذلك تنقر عليها بالزر الايمن و تختار animation gif control proeperties ثم تختار مسار الصورة ملاحظة : تم تعديل الملف الرفق فى مشاركة لاحقة