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

مرفق وصلة تحميل الملف الذي تفضل به الاخ الكريم a_saladen Popup97.txt

أخي أحمد أعتقد أن الشرح الجميل فى حاج الي اضافة بسيطة لتوضيح مفهوم الفهارس رح لكي يشعر من يطبق الخطوات بالنتيجة التي من المفترض أن يصل اليها أي ما هو الفهرس ؟ اضافة بسيطة يمكن بدلا من فتح ال "" و الكتابة بعد المرجع استخدام خاصية جاهزة فى الاكس بي باختيار الكلمة ثم بعد اختيار xe بدلا من ان نختار field Codes نختار MarkThis Value فربما تكون اسهل للبعض فى الادخال مع الشكر و التحية

وجود ارقان حساب الاصل و حساب الاهلاك وو محساب مجمع الاهلاك في كل من جدولي المجموعات و الاصول ، يبدو أنه من أجل وجود قيمة افتراضية لرقم الحساب عند ادخال بيان فى جدول الاصل ام ان الموضوع رقم حساب رئيسي ليتم التأكد من ادراج رقم حساب ابن منه فى جدول الاصول اما ان لم يكن هذا و لا ذاك فيمكن حذفها من جدول المجموعات بالنسب لجدول الاصول ، اقترح اضافة حقل لتوضيح قيمة أو نسبة ما تم اهلاكه و جقل آخر لتوضيح هل تم االهلاك بالكامل ام لا ( من نوع نعم لا ) بالنسبة للفرع ، أعتقد أن التطبيق الاعم سيكون ترك التصميم كما هو مع تغيير الاسم الي كود المكان ، فيختلف الاستخدام حسب المستخدم فيمكن أن يكون التصنيف بالمباني أو بالادارات مثلا ، و فى النهاية هو مكان فرع أو مبني أو ادارة ، لذا اقترح تغيير الاسم الي المكان بدل الفرع ، و من يريد الفرع فليكتب فى جدول الاماكن ، فرع القاهرة ، فرع طنطا ... هذه اقتراحات فقط و أترك للأخوة المحاسبين التعقيب بمدي لزومها من عدمه بالنسبة لتعليقات الاخ ابو هادي 1-2- اتفق في حذف مسلسل جدول المجموعات ، اما جدول الاصول فاعتقد أن كود الاصل ربما لا يمثل رقم فريد أي يمكن تكراره لذا قد نحتاج المسلسل اي كمات فى مثال اشرف يمكن وجود اصلان تابعان لمجموعة رقم اثنان ، و رقمهما 2001 فسنحتاج المسلسل ، اما اذا لم تكن هذه الحالة ممكنة فلن نحتاجه 3-النسبة قد نحتاجها لو كانت ستعامل علي لأساس قيمة افتراضية فى جدول المجموعات تضاف تلقائيا الي الاصول و يمكن تغييرها 4- اتفق فى ذلك مع تحياتي

موضوع ذو صلة استخدام آخر لل array Formula http://www.officena.net/ib/index.php?showtopic=1075

هذا المثال يوضح كيفية استخراج القيمة القصوي للمبيعات لمبيعات شهر محدد سواء بكتابة رقم الشهر أو بكتابة اي تاريخ فى هذا الشهر و هو تطبيق آخر لل array forumula فكرة : أحمد شرف --- ملاحظة موضوع ذو صلة ( استخدام آخر لل array Formula ) http://www.officena.net/ib/index.php?showt...ic=625&hl=array arrayF_getfield.rar

السلام عليكم هي أكبر من أن تحمل من النت يجب أن تبحث عن الاسطوانات نفسها مع تحياتي

هذا مثال للتعامل مع الحافظة قام بتعريبه الاخ فيصل الحربي clipboard_faisal.rar

لا يوجد أمر مباشر و انما لفعل ذلك اما تستخدم الدوال لتحصل علي ما تريد فى خلية أخري أو تستخدم ماكرو و الدوال المتاحة هي Lower Upper Proper و لتجربتها ضع اي كتابة فى خلية مثلا c3 و امتاب المعادلة الاتية فى أي خلية أخري =PROPER(C3) =UPPER(C3) =LOWER(C3) للتحويل بين الانواع المختلفة من طرق الكتابة و يمكن تطبيق نفس الدوال من خلال الماكرو مثل اذا اردنا تحويل خلية واحدة أن تضع الكود التالي لتحويل الحلية الفاعلة ال uppercase Sub getupper() ActiveCell.Value = UCase(ActiveCell.Value) End Sub

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

من المفترض أن نموذج الاخ ابو هادي به الاحتياطات الكافية ، فهل أنت متأكد من الكود فى برنامجك فمبدأيا حاول مراجعة الكود فى برنامجك و هل يمكن أن تجرب النموذج الاول ايضا ؟

الكود يمثل الحد الاقصي و الخلية يتم تسجيل عدد المرات المستهلكة منه فيها

هل dao اسرع من ado لنفس العملية علي جهاز واحد ؟؟ هل كانت الاكواد متطابقة عند التجربة ؟؟ المفترض أن ADO تطوير لل DAO و أنها اصبحت الافتراضية فى الاصدارات الجديدة فاذا كانت ابطأ ، فربما ذلك بسبب ميزات أخري .؟ هذه مقدمة منقولة من كتاب باللغتين العربي و الانجليزي حول كائنات الاتصال بالبيانات ==> من هنا

من وضع تصميم الاستعلام فى حقل المعايير فى الاستعلام نستخدم المعالج لاختيار مربع النص من علي النموذج الذي يحوي حقل المعرف للسجل ( الايقون الذي يشبه العصا السحرية ) أو نكتبه مباشرة فى المعيار [Forms]![Form1]![StudentID] حيث Form1هو اسم النموذج و StudentIDهو اسم مربع النص علي النموذج و نفس الوضع بالنسبة لباقي الشروط و بالنسبة لقيمة الدرجة يمكنك استخدام علامة أكبر من أو = >=[Forms]![Form1]![grade]

يوجد عدد من البرامج install-us wize install maker inno-setup setup Facory Install Shield و أعتقد أن آخر اثنين هما الاشهر و بالنسبة للاكسس قد يكون من المناسب استخدام Microsoft Office developpers Kit اذا توفرت و لم أحصل عليها للاكس بي ، و لكن تعاملت معها مع ال 97 و كانت ممتازة

السلام عليكم أخي حسام ، ياريت بلاش حكاية دكتور دري لو سمحت :$ بالنسبة للموضوع بالنسبة للجزء اللاول من الموضوع ، من المفترض أن يعمل الكود اذا تم نقله الي نفس المكان و تأكد من تطبيق نفس الشروط من حماية بكلمة سر و اخفاء بالنسبة للثاني لتغيير عدد مرات الفتح : If aa = 9 Then MsgBox "Used for 9 times , no more use is allowed !!"

If Nz(Me!name, "") = "" Then MsgBox "you must Enter a name" Me!name.SetFocus Exit Sub End If كما فى النماذج 3 و4 فى هذا المثال

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

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

insert = إدراج

ضع الكود السابق كله فى موديول و فى الكود الخاص بزر الامر استدع الروتين الفرعي ExcelSave مثال Private Sub CommandButton1_Click() ExcelSave End Sub

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

صراحة كود أكثر من رائع (y) و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح ) حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي و قد أرفقت مثال به الاكواد السابقة فى موضوع منفصل كمثال علي التعامل مع البيانات فى الجداول من هنا

مثال به كود رائع لاسترجاع المعلومات الخاصة بالتصحيح التلقائي و سردها فى جدول ، ( أضافه الأخ أحمد الحربى ) الموضوع الاصلي من هنا و كود آخر لاسترجع البيانات الخاصة بالتصحيح التلقائي من الجدول و هو مثال جميل أيضا علي كيفية تخزين البيانات في جدول و استرجاعها مرفق المثال و به عدد 2 ماكرو و يلاحظ أنه لتشغيل ماكرو الاسترجاع تقف فى الخلية الاولي ( التي بها الكلمة قبل التصحيح ) حيث انه باختلاف النسخة العربية و الانجليزية للوورد قد يختلف مفهوم الخلية الاولي Getautocorrect.rar

Option Explicit Private Type OPENFileName lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateNaselection As String End Type Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenFileName As OPENFileName) As Long Dim OFName As OPENFileName Sub ExcelSave() Dim sFile As String sFile = ShowSave If sFile <> "" Then MsgBox "You chose this file: " + sFile ActiveWorkbook.SaveAs Filename:=sFile Else MsgBox "You pressed cancel" End If End Sub Private Function ShowSave() As String 'Set the structure size OFName.lStructSize = Len(OFName) 'Set the owner window 'OFName.hwndOwner = Selection.Hwnd 'Set the application's instance OFName.hInstance = Application.hInstance 'Set the filet OFName.lpstrFilter = "Excel Files (*.xls)" + Chr$(0) + "*.xls" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0) 'Create a buffer OFName.lpstrFile = Space$(254) 'Set the maximum number of chars OFName.nMaxFile = 255 'Create a buffer OFName.lpstrFileTitle = Space$(254) 'Set the maximum number of chars OFName.nMaxFileTitle = 255 'Set the initial directory OFName.lpstrInitialDir = "C:\" 'Set the dialog title OFName.lpstrTitle = OFName.lpstrTitle = "Save File - KPD-Team - Excel example BY www.officena.net" 'no extra flags OFName.flags = 0 'Show the 'Save File'-dialog If GetSaveFileName(OFName) Then ShowSave = Trim$(OFName.lpstrFile) Else ShowSave = "" End If End Function

يعني ما تجيش غير منك ؟؟ :o اخوكم صاحب الاضافة الأخيرة أخصائي دراسات جدوي إقتصادية :h و كمان حطط لي موزة :lol: