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

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=857

اللهم هبهما النجاح و الفلاح و الصلاح و صالح الأعمال

بل الشكر لك أخي الكريم علي الملف و ملاحظة علي السريع لجميع الأخوة رجاء مراجعة صفحة "عن الموقع" فى الصفحة الرئيسية www.officena.net و صفحة قواعد المشاركة و خصوصا أن أي من الأخوة يود الانضمام الي مجموعة الأعضاء* الموصوفة فى الصفحة الرئيسية يمكنه ذلك مباشرة ، بل و يسعدنا ذلك ، علي أن يكون استخدام خاصية تحميل الملفات الي الموقع فى اطار القواعد المعلنة أي لاضافة مثال أو شرح و ليس لطرح استفسار فى صورة مثال مع تحياتي للجميع

السلام عليكم الوصلة لا تعمل ، أرجو أن تدرج الملف مباشرة ان كان لديك مع تحياتي بخصوص الموضوع نفسه لم أراجع المثال بعد ، و لكن ... لدي استفسار مبدئي بالنسبة للهدف من الاخفاء ، فيمكن الوصول اليه مع أغلب المستخدمين بالغاء اظهار اطار قاعدة البيانات بالطريقة العادية من Tools Startup فنخفي الاطار مع الغاء تفعيل أغلب وسائل اعادة اظهارها مثل القوائم و اختصارات المفاتيج ، و الغاء عمل ال Shift أيضا مع تحويل الملف الي mde و هذا يفي بالمطلوب مع اغلب المستخدمين ، فهل هناك ميزات فى الطريقة المطروحة حاليا بالاخفاء بالكود عن الطريقة السابقة ؟؟

اضافة بسيطة يفيد فى منع الاستيراد وضع كلمة سر علي القاعدة نفسها و لتصعيب المهمة علي بعض برامج كسر كلمة السر اجعلها طويلة و مكونة من حروفو ارقام و capital & small

و نحن فى الانتظار :d و جزاك الله خيرا

السلام عليكم الدروس السابقة تم تقسيمها الي مواضيع فى الاقسام المناظرة من أقسام خلاصة المشاركات بالنسبة للعلاقات و أسس تصميم قواعد البيانات هذه وصلة لموضوع فى الفريق العربي قام بشرحها الأخ internet master باسلوب ممتاز ( و لو أنه له وجهات نظر مخالفة لمحبي الأكسيس قد أشار اليها فيه :( ) و لكن الدروس ممتازة آمل أن تكون أوضح بالنسبة لك من شرحي http://www.arabteam2000-forum.com/index.ph...showtopic=35237 و مرفق ملف به كامل الموضوع : مرفق ملف بمحتويات الموضوع InternetMaster.rar

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

من المعروف أن ترك الخلية خالية فى ورقة العمل فى الاكسيل ، يناظر كتابة صفر فيها أي لا يوجد فرق فى العمليات الحسابية فى ورقة العمل بين ترك الخلية خالية الوفاض ، و بين كتابة صفر فيها عند اجراء العمليات الحسابية مباشرة فى ورقة العمل بدون دوال أو كود . و أحيانا يكون مطلوبا فى الاكسيل تجاهل قيمة الخلايا الخالية و/أو التي بها أصفار عند ضرب مجموعة خلايا أو اجراء أي عمليات حسابية و لا يخفي عليكم فائدة معادلة ال IF في ذلك ، و لكنها في بعض الاستخدامات تكون مرهقة لكثرة الحاجة الي كتابتها لذا أضفت فى الملف المرفق دالتين ، nz لتجاهل قيمة الخلايا الخالية فقط و استبدالها بواحد و nz0 لتجاهل كل من الخلايا الخالية و التي بها أصفر ، و استبدالهما بواحد صحيح فى معادلة الضرب و أضاف الاخ احمد شرف ـ، ما يناظرهما من معادلات ال if فى ورقة العمل بالطريقة التقليدية و أتصور أن الدالتين NZ و NZ0 الموجودتان فى الملف المرفق ، لهما استخدامات كثيرة علي الرغم من بساطتهما Function nz0(mycell) If mycell = "" Or mycell = 0 Then mycell = 1 End If nz0 = mycell End Function Function nz(mycell) If mycell = "" Then mycell = 1 End If nz = mycell End Function NZ.rar

اعتقد انه لا يمكن اخفاء المعادلات من الشريط لخلايا غير محمية علي ما أعرف ، و لكن ربما تقصد اخفاء الشريط نفسه Tools options view formula bar

افتح الملفان اختار وضع اظهار الكودALT+F11 اسحب الماكرو من هاذ الوضع بين المفان او قم بتصدير الموديول من الاول ثم استورده الي الثاني او استخدم النسخ و اللصق للكود بينهما

أيضا من ماذا تنتج كلمة DRH فى الاكسيس اصلا هل من تنسيق الرقم أم تضيفها الي المعادلة اذا كانت الثانية فعليك بتغييرها قبل النشر

للنزول الي سطر جديد اضغط CTR+ENTER أو من تبويب Other Enter Key Behaviour New Line و بالنسبة لمربع النص ، توجد خاصية Can Grow من تبويب Format و لكن أعتقد أنها فعالة فى التقارير و ليس فى نماذج الادخال و يمكن الاستعاضة عنها بتفعيل خاصية Scroll Bar = Vertival من تبويب Format

اعتقد أن هذه الادوات غير مضمنة فى نسخة الاكس بي الانجليزية

اللهم اهده و ايانا الي الصراط المستقيم و اجعله علما ينتفع به

صراحة حاولت فى الكود لعمل ربط مع ملف النص مثلما فعلنا مع الجداول ، و اعادة التوجيه و لكن لم أنجح فى اتمامه و سارفق محاولتي ، ليجد أحد الاخوة الخطأ فى الكود و ساحاول فيه لاحقا باذن الله ، و آمل أن ينظر فيه أحد الاخوة الذين لهم خبرة بالكود و الفكرة فى عمل حذف للرابط لجدول اسمه M مربوط بالفعل اولا الي ملف نص موجود فى c:\m ثم حذف الرابط ، و اعادة توجيهه بالكود الي ملف النص فى مفس المجلد و لكن اسمه بتاريخ اليوم Link_DATE.rar

السلام عليكم أقصد File Page Setup ثم أخر Tab المسماة Sheets ستجد منطقة الطباعة محددة باسماء الخلايا مثلا E1:E27 و هي تمثل الصفحة الاولي و عدل خلية النهاية برقم الخلية المطلوبة ---------- و لمعرفة الخلية التي تمثل نهاية الصفحة فاظهر الشيت فى وضع ال page break view من قلئمة view لتعرف رقم الخلية التي تمثل نهاية الصفحة التي تريد ثم عدلها

افتح fiile set print area آخر tab و عدل معادلة منطقة الطباعة بتعديل آخر رقم للخلية

أضف الروتين و الدالة التاليين الي موديول فى الملف ثم علم علي الخلايا المطلوب تعديلها ثم شغل الماكرو سيتم ازالة الاصفار التي فى اليسار ايا كان عددها Sub remove0() For i = 1 To Selection.Rows.Count ActiveCell.Offset(i - 1, 0).Value = rem0(ActiveCell.Offset(i - 1, 0).Value) Next i End Sub Function rem0(myval) mycount = 0 For j = 1 To Len(myval) If Mid(myval, j, 1) = "0" Then mycount = mycount + 1 Next rem0 = Right(myval, Len(myval) - mycount) End Function

مثال آخر و لكن التنبيه بعد تجاوز الاربعة تكرارات Private Sub Worksheet_Change(ByVal Target As Range) Dim Mymat(20) As Double For i = 1 To 20 Mymat(i) = Range("a1").Offset(i - 1, 0).Value Next Dim mcounter As Integer For i = 1 To 20 mcounter = 0 For j = 1 To 20 If Mymat(i) = Mymat(j) And i <> j And (Not Mymat(i) = 0 Or Not Mymat(j) = 0) Then mcounter = mcounter + 1 If mcounter > 3 Then MsgBox "The Value (" & Mymat(i) & ") is duplicated for more than 4 times in the range A1:A20" Exit Sub End If End If Next j Next i End Sub

السلام عليكم تم اضافة المثال الي نفس الرابط السابق مع تحياتي

السلام عليكم مما سبق يتضح أنك لا تريد العد و انما وضع واحد أو صفر عند عدم تحقق الشرط و عليه لنفرض أن لديك حقل باسم ff و المطلوب وضع صفر او واحد فى حالتي عدم وجود بيانات ووجود بيانات تكون المعادلة كالتالي ( مثل معادلتك التي ذكرت ) حيث mm هنا تناظر عبارة "بيانات غير مدرجة" TOTAL : IIf(IsNull([FF]);0;1) و الحالة الثانية كون القيمة فى الحقل المسمي ff مناظرة لقيمة mm TOTAL2: IIf([FF] Like "mm";1;0)

السلام عليكم تم نقل الموضوع الي قسم الوورد يرجي المتابعة هناك http://www.officena.net/ib/index.php?showt...t=0entry11574

أخي الكريم جرب استخدام المثال كما هو أولا أي أنشيء مثلا قاعدتين ق1 و ق2 و فى كل منها جدول واحد اسمه mmm به سجل واحد و ضع فى الاولي رقم 1000 و الثانية 2000 لتميز بينهما ثم عد الي ملف المثال السابق نشره و اكتب اسم الجدول mmm فى F_List و امسح باقي الحقول به ثم قم بعمل ربط يدوي لاول مرة فقط للجدول mmm مع ق1 ستجد القيمة الموجودة فى الجدول المرتبط هي 1000 و انظر الي قيمة الجدول المرتبط ثم غير الربط من النموذج الي ق2 و انظر القيمة الموجودة فى الجدول المرتبط ، هل تغيرت الي 2000 جرب التبديل عدة مرات ثم أخبرنا هي الموضوع يعمل أم لا ؟؟

جرب هذا الكود Dim fs, s Set fs = CreateObject("Scripting.FileSystemObject") s = fs.GetSpecialFolder(1) MsgBox s