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

لا يوجد أمر مباشر و انما لفعل ذلك اما تستخدم الدوال لتحصل علي ما تريد فى خلية أخري أو تستخدم ماكرو و الدوال المتاحة هي 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:

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

تم تعديل العنوان أرجو من جميع الأخوة اتباع جميع قواعد طرح المشاركات ،و منها وضوح العنوان و تعبيره عن مضمون السؤال

مثال علي اختيار رقم عشوائي مع السماح بالتكرار أو عدم السماح ( لابو حمود ) RANDOM_abuh.rar

مشكور علي الشرح الجميل و خاصة الطريقة رقم 2

راجع هذا الموضوع: حساب معدل العائد الداخلي IRR

مرفق مثال مع تحياتي GradeTitle.rar

وين الطريقتين الثانيين :)