نجوم المشاركات

وهذا حل اخر ..... المستخدم.mdb

حياك الله اخي الكريم وبالتوفيق ...

تفضل ..... Database8.rar

احد حلول فتح كل نموذج و تقرير على حسب معايير مربعات تحرير و سرد المستخدم.rar

بنفس الطريقة اخي الكريم المستخدم.rar تحياتي

السلام عليكم تم تعديل آلية الترقيات السابقة ، حيث تم اضافة شرط لعدد نقاط الاعجاب لتنفيذ الترقية الالية ، كما هو مبين أدناه الدرجة الحالية المشاركات نقاط االاعجاب عضو جديد 01 50 - 02 الأعضاء 100 10 03 عضو مميز 500 50 04 عضو فضي 1000 100 05 عضو ذهبي 1000 500 06عضو ماسي 1000 1000 عند وصول نقاط الاعجاب الي 1000 للعضو الماسي سيتم الترقية الي مجموعة أعضاء الشرف و التي تضم أيضا المكرمين من ممن لهم مساهمات خارج الموقع و ستتغير الدرجة بالترقية للأعلى بعد اول مشاركة للعضو ، و لن يتم تخفيض أي درجات حالية. و تبقي مجموعات الخبراء و فريق الموقع و فريق الموقع السابق و أعضاء الشرف دون تعديل كما سيتم قريباً بإذن الله استحداث درجة خبير مخضرم لتكون الترقية التالية لدرجة خبير و سيتم الاعلان قريبا عن موعد تطبيقها و آلية التطبيق

وعليكم السلام... على الرغم انك لم تقم برفع ملف توضيحى للمطلوب وهذا مخالف , الا انك يمكنك ذلك بضبط اللغة العربية لديك من خلال هذا الرابط مشكلة في اللغة العربية

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

لا يقتصر الامر على الاكواد بل ايضا كافة كائنات قاعدة البيانات الغير مستخدمة مثلا قد نقوم بانشاء استعلام لغرض معين ثم نستغني عنه ولم نقم بحذفة وكذلك الحال مع الوحدات النمطية او التقارير الخ وكل ماكبرت قاعدة البيانات وبمرور الوقت تزداد صعوبة تحديد هذه الكائنات الغير مستخدمة توجد برامج واضافات لاكسس تساعد في تحديد هذه الكائنات ومنها Total Access Analyzer البرنامج غير مجاني في جميع الاحوال ودائما احفظ نسخة احتياطية لعملك قبل اي تعديل او اضافة على البرنامج

حرب هذا الملف Option Explicit Sub Get_Color() Dim My_Regex As Object Dim x%, m%, La%, t% Dim arrWords, Arr() ReDim Arr(4) Arr(0) = 3: Arr(1) = 14: Arr(2) = 5: Arr(3) = 3 Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Pattern = "(\d{3})" My_Regex.Global = True With Sheets("Sheet1") La = .Cells(Rows.Count, 3).End(3).Row m = 1 With .Range("E6:E" & La) .Font.ColorIndex = 1 .ClearContents End With For t = 6 To La .Range("E" & t) = .Range("C" & t) If My_Regex.test(.Range("E" & t)) Then Set arrWords = My_Regex.Execute(.Range("E" & t)) For x = 0 To arrWords.Count - 1 Range("E" & t).Characters(m, 3) _ .Font.ColorIndex = Arr(x) m = m + 3 Next x End If m = 1 Next t End With End Sub الملف مرفق Abbadi.xlsm

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

حاضر دائما لا حرمنا منك يارب مشكور استاذى تمام ربنا يحفظ حضرتك يارب شكر وتقدير واحترام من اخيك

اتبع الخطوات في هذه الصورة ولا حاجة للكود

ماهى الطريقة لو سمحتم

وعليكم السلام بالتأكيد لا يمكن عمل كل هذا , لأن هذا يؤدى الى بطء وجعل الملف ثقيل جداً وأعتقد انه ليس هناك اى قيمة او فائدة فى عمل هذا !!!!!!!!!!!

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم المستخدم.rar اخي بلال طلب من فضلك حاول بقدر الامكان كتابة اسماء العناصر ( مربع نص - مربع تحرير وسرد ... الخ ) باسماء لاتينية (انجليزية) اولاً لتجنب الاخطاء فيما بعد ثانياً لتسهيل كتابة الكود او المعيار فيما بعد تحياتي

للجداول فقط ممكن ولكن القاعدة كاملة فلا يمكن !!!!

شكرا الجزيل لك مهندس الاكسل و لاستاذك و بورك فيكما. على المساعدة

تفضل أخي الكريم filterform (1).rar

تمام التمام استاذنا kanory بارك الله فيك اخى الغالى وزادك من علمه الف شكر استاذنا الفاضل

بالخدمة استاذي العزيز

بارك الله فيكم جميعاً وفى مجهوداتكم وجهودكم الوفيرة التى هى سبب فى تقدم هذا المنتدى ونجاحه وبقائه دائما هو الأفضل ومشكور جداً لكم على هذه الترقية ويارب اكون دائماً عن حسن ذنكم بى وسع الله فى رزقك استاذ محمد وبارك الله فى اولادك ورحم الله والديك

جزاك الله خيرا اخي الكريم وغفر الله لنا ولك دمت بخير تحياتي

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ New Microsoft Access قاعدة بيانات.accdb

شكر وتقدير واحترام من اخيك

بارك الله فيك وزادك الله من فضله

وعليكم السلام ورحمة الله choose numbre1 - solved.xlsx مرفق المطلوب، وبالتوفيق

وعليكم السلام -تفضل عند كتابة الكود يظهر الاسم والقسم1.xlsx

السلام عليكم ربما تكون المشكلة في 1 : صممت البرنامج على access 32 والجهاز الجديد access 64 او العكس الحل : اذا كان الملف بصيغة accdb ولم يتم تحويله الى accde فالبرنامج سيعمل بدون مشاكل ان شاء الله اما اذا كان تم تحويله فلن يعمل 2 - يوجد لديك في التصميم الاساسي عناصر في النماج والتقارير باسماء عربية والجهاز الجديد اللغة العربية فيه غير مكتملة فيه الحل : تغيير اسماء حميع العناصر من اللغة العربية الى اللاتينية ( الانحليزية ) مثال : نص1 تغييره الى text1 ... وهكذا باقي العناصر ( مربعات النص - كومبوبوكس - زر امر ... الخ ) تحياتي

=IF(D4>=3000;D4*0.2;IF(D4>=250001;D4*0.22;IF(D4>=500001;D4*0.17;""))) Book18.xlsx

الجدول بعد عمل تعديل بسيط عليه بأنه يسجل عدد حصص المدرس على الجدول ترحيل بيانات 1جدول.xlsx

الحمد لله الذي بنعمته تتم الصالحات

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

يا فندم لا .. انا عايز الملف يتنسق بحيث يكون ملف للاوردرات .. انا بكتب فيه الاوردرات المطلوبة لكل صنف وتاريخ التسليم وحالة الاوردر تام ولا لا ,,وهل هوا فى التشغيل ولا لا .. واسم اللى اعطانى الاوردر والتاريخ ... وعايز اخفى كل اوردر تام .. وافلتر الاوردرات بالصنف حتى لو كانت تامه ...وياريت لو فيه شاشة تسجيل تلقائية ..الخ الخ

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى sql برمجيا حيث سنقوم بانشاء قاعدة البيانات على السيرفر و تصدير الجداول لها باستخدام SQL scripts ملاحظة هامة : العمل سيتم على SQL 2005 وما فوق بعد البحث و التجريب وصلت الى كود يقوم بانشاء قاعدة بيانات SQL وتصدير كافة الجداول لها Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String Dim TableName As String Dim Tdf As TableDef ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=HP-PC\SQLEXPRESS" Str_Data = "Create database DB1" Str_Use = "Use DB1" ConData.Execute (Str_Data) ConData.Execute (Str_Use) For Each Tdf In CurrentDb.TableDefs If Left(Tdf.Name, 4) <> "MSys" Then If Len(Tdf.Connect) = 0 Then DoCmd.TransferDatabase acExport, "ODBC Database", "ODBC;Driver={SQL Server};Server=HP-PC\SQLEXPRESS" & _ ";Database=DB1" & ";Trusted_Connection=Yes", acTable, Tdf.Name, Tdf.Name End If End If Next الكود السابق يقوم بانشاء قاعدة بيانات باسم DB1 ويصدر كافة الجداول لها عظيم جدا و تمام التمام لكن هناك مشكلة صغيرة جدا المفاتيح الاساسية و الفهارس و العلاقات لم يتم تصديرها !!!!!! وبالتالي لن تعمل قاعدة البيانات ابدا بحثت كثيرا و حاولت تعديل الكود السابق و لكن دون جدوى لذلك كان لا بد من البحث عن طريقة اخرى لنصل للمطلوب و الطريقة هي انشاء الجداول و المفاتيح و الفهارس و العلاقات عن طريق اكواد SQL او ما يسمى SQL scripts , سيتسائل البعض كيف ذلك ؟؟ البداية : عند الانتهاء من تصميم قاعدة البيانات سنستخدم معالج التكبير لمرة واحدة فقط من اجل الحصول على الكود او ملف SQL scripts وبعد ذلك سنضيف الكود الى ملف ونستخدم ذلك الملف متى اردنا نفتح قاعدة البيانات التي نرغب بتحويلها و نضغط على ادوات قاعدة البيانات ثم نختار (خادم SQL) 1- انشاء قاعدة بيانات جديدة ( في هذا المثال اسم قاعدة البيانات test SQL 1 ) 2- نحدد اسم السيرفر و اسم قاعدة البيانات المطلوبة ( الاتصال موثوق ) ( التالي ) 3- نحدد كافة الجداول ( التالي ) 4- نحدد ( فهارس - قواعد التحقق من الصحة - افتراضيات - علاقات الجداول ) و نستخدم (مشغلات عوضا عن DRI) ( التالي ) 5- نحدد (عدم اجراء اية تغييرات للتطبيق) (انهاء) سيبدا المعالج بترحيل كافة الجداول الى السيرفر بعد الانتهاء نغلق برنامج الاكسس و نذهب الى برنامج SQL Server Management Studio (ملاحظة هذا البرنامج لادارة قواعد البيانات و يختلف عن برنامج SQL server ) نحدد السيرفر ونختار نوع المصادقة (حسابات ويندوز) ثم اتصال سيفتح البرنامج نختار Databases ثم نحدد قاعدة البيانات المطلوبة نضغط بالزر الايمن للفارة و نختار من القائمة Tasks ثم Generate Scripts تظهر نافذة جديدة نختار منها التالي ونحدد قاعدة البيانات Test SQL 1 ثم التالي تعدل الخيارات التالية: include if not exists = false script defaults = false scripts extended properties = false scripts owner = false scripts full-text indexes = true scripts indexes = true ثم التالي نحدد (tables) ثم التالي نحدد كافة الجداول ثم انهاء و نضغط انهاء مرة اخرى سيظهر لنا السكريبت الخاص بانشاء الجداول و المفاتيح و الفهارس و العلاقات ننسخ الكود بشكل كامل و نحفظه ضمن ملف نصي نسميه مثلا (Test1) نعود الى صديقنا الاكسس ننشئ نموذجا جديدا ونضع فيه حقلي نص باسم (tservername - tdatabasename) وزر امر نكتب الكود التالي في زر الامر Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String ' فتح الاتصال مع السيرفر ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.tservername ' انشاء قاعدة البيانات Str_Data = "Create database " & Me.TDataBaseName Str_Use = "Use " & Me.TDataBaseName ConData.Execute (Str_Data) ConData.Execute (Str_Use) MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbCrLf & "جاري تصدير الجداول", vbInformation + vbMsgBoxRight ' تنفيذ السكريبت ضمن قاعدة البيانات لانشاء الجداول و الفهارس و العلاقات Shell "sqlcmd.exe -S " & Me.tservername & " -d " & Me.TDataBaseName & " -i " & CurrentProject.Path & "\test1.txt", 0 MsgBox "تم انشاء الجداول بنجاح", vbInformation ' اغلاق الاتصال ConData.Close طبعا الملف test1.txt يجب ان يكون في نفس مسار قاعدة البيانات المرفق يختلف قليلا عن الشرح فهو يساعدك في اختيار السيرفر تلقائيا اعتذر على الاطالة في الشرح رابط البرنامج مع فيديو للشرح http://www.mediafire.com/file/x14w1p4qbqewd4k/SQL1.rar بانتظار التجريب و النتائج منكم اصدقائي SQL1.rar