اذهب الي المحتوي
أوفيسنا

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

  1. ياسر خليل أبو البراء

    ياسر خليل أبو البراء

    المشرفين السابقين


    • نقاط

      4

    • Posts

      13,165


  2. بن علية حاجي

    بن علية حاجي

    الخبراء


    • نقاط

      3

    • Posts

      4,330


  3. ياسر فاروق

    ياسر فاروق

    03 عضو مميز


    • نقاط

      2

    • Posts

      168


  4. ليلى الهلالي

    ليلى الهلالي

    03 عضو مميز


    • نقاط

      2

    • Posts

      217


Popular Content

Showing content with the highest reputation on 10 يول, 2017 in all areas

  1. السلام عليكم أخي الفاضل aboud424 أولاً: شرط التكرار: قمت بعمل شرط التكرار الذي طلبته ولست أدري إن كان كما تريده. وسيكون التنبيه بتغير لونه للأحمر المموج. ثانياً: الترحيل: لقد قمت بالتعديل على كود ترحيل أخذته من أحد أعضاء هذا المنتدى الرائع وجعلته يتوافق مع ما تريد. ما لاحظته أنه توجد بعض المواد الغير مخفية والتي باللون الأحمر ولكن لا يوجد لها خانة إما في الورقة الأولى أو في الورقة الثانية مثلا: الزبيب موجود في الورقة الأولى وليس له مكان في الورقة الثانية وفي الورقة الثانية نفس الشيء مع بعض المواد الأخرى. أرجو أن أكون قد وُفقت في الإجابة على طلبك. هذا ما لدي وما أعرفه من بحر الإكسل. وقد يفيدك الأخوة في هذا المنتدى بحلول أفضل. نقل بيانات2.rar
    2 points
  2. السلام عليكم جرب الكود التالي في حدث ورقة العمل عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 5 And Target.Column = 4 Then Dim lr As Long, x As Long lr = Cells(Rows.Count, Target.Column).End(xlUp).Row x = Application.WorksheetFunction.CountIf(Range("D6:D" & lr), Target.Value) If x > 50 Then MsgBox "The Number " & Target.Value & " Exceeds 50", vbExclamation End If End Sub
    2 points
  3. الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى 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
    1 point
  4. السلام عليكم ورحمة الله اكتب هذا الكود فى حدث الزر "جمع" Private Sub CommandButton1_Click() Dim i As Long, p As Long p = 0 For i = 28 To 59 If Me.Controls("TextBox" & i).Value = "" Then Exit Sub p = p + Val(Me.Controls("TextBox" & i).Value) Me.TextBox60.Value = p Next Exit Sub End Sub
    1 point
  5. لم أعدل شىء بخصائص الجدول عدل خصائص الجدول كما أشرت اليك سابقا ثم جرب ووافنا بالنتائج
    1 point
  6. السلام عليكم ورحمة الله ما دام تقول البرنامج مجاني ففي العادة يوضع له 123 ككلمة سرية للدخول إلى البرنامج وحسب اعتقادي فإن محرر الأكواد غير محمي... والله أعلم بن علية حاجي
    1 point
  7. الاستاذ العزيز: ياسر خليل أبو البراء شكرا على مجهودك
    1 point
  8. هل المطلوب كود يوضع في موديول عادي أم في حدث ورقة العمل؟ والمدخلات ستكون فقط أرقام من 1 إلى 10 ...ولا يجوز لأية مدخلات أخرى أن توجد ..أم ماذا؟
    1 point
  9. السلام عليكم وحمة الله أخي الكريم فايز، التعديل كان في المعادلات التالية (نختار المعادلات في الصف 14): معادلة الفصل الأول: كانت: =IF('تسيير الغيابات'!$E$2="الثاني";"";IF(AND(OFFSET($A14;;MATCH(CA$11;$8:$8;0)-1)="غ";$E14='تسيير الغيابات'!$E$3);MAX($BZ14:BZ14)+1;"")) أصبحت: =IF('تسيير الغيابات'!$E$2="الثاني";"";IF(AND(OFFSET($A14;;MATCH(CA$11;$8:$8;0))="غ";$E14='تسيير الغيابات'!$E$3);MAX($BZ14:BZ14)+1;"")) حيث تم مسح 1- من بعد جزئية الدالة MATCH (لتحديد رقم عمود التحريري لمادة القرآن الكريم في الفصل الأول) معادلة الفصل الثاني: كانت: =IF('تسيير الغيابات'!$E$2="الأول";"";IF(AND(OFFSET($A14;;MATCH(CA$11;$8:$8;0))="غ";$E14='تسيير الغيابات'!$E$3);MAX($BZ14:CA14)+1;"")) أصبحت: =IF('تسيير الغيابات'!$E$2="الأول";"";IF(AND(OFFSET($A14;;MATCH(CA$11;$8:$8;0)+3)="غ";$E14='تسيير الغيابات'!$E$3);MAX($BZ14:CA14)+1;"")) حيث تم إضافة 3+ من بعد جزئية الدالة MATCH (لتحديد رقم عمود التحريري لمادة القرآن الكريم في الفصل الثاني) بن علية حاجي
    1 point
  10. السلام عليكم ورحمة الله أخي الكريم فايز، ذهب فهمي للمطلوب بعيدا ولم أفهمه إلا اليوم بعد مراجعة الملاحظات التي كتبتها والتعديل كان بسيطا جدا... ومعذرة على التأخر في الفهم و الرد... بن علية حاجي الصف الرابع والخامس.rar
    1 point
  11. الاستاذ العزيز: ياسر خليل أبو البراء تسلم على ما تفضلت به من اهتمام ومجهود للشرح
    1 point
  12. بارك الله فيك أخي محمد المثال قريب من المطلوب ولكن اريد ان يكون بدلاً من الاختيار من القائمة أن يكون مربع بحث بالاسم ولكم خالص الشكر والتقدير حبيبنا
    1 point
  13. أستاذى الفاضل / ياسر خليل مرورك الكريم شرف ليا تم اصلاح الخطأ مرفق الملف بارك الله فيك Expenses 2017.rar
    1 point
  14. يا ابن الإسلام هلا وضحت وفسرت وأطنبت في الحديث .. بالمثال يتضح المقال .. قم بإرفاق ملف معبر عن المطلوب وستجد استجابة أسرع إن شاء الله بالمناسبة هي الصورة دي صورة أبو تريكة لاعب كرة التنس المشهور :) ولا صورتك تحياتي
    1 point
  15. عليك بالمداومة على الصدقة فى السر وكثرة مناجاة رب العباد واسأل الله العظيم رب العرش العظيم أن يجازيكم ويجازيه خير الجزاء فى الدنيا والأخرة وأن يجعل عملك الصالح سببا فى دخولكم الجنة اللهم امين والمسلمين أجمعين. اللهم أمين.
    1 point
  16. تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar
    1 point
  17. اخى الكريم هذا كود من المنتدى جربة ممكن يفيدك Book1.rar
    1 point
×
×
  • اضف...

Important Information