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

تم التعديل Option Explicit Dim lr% Dim How_many Dim Sh As Worksheet Dim i%, k%, x '+++++++++++++++++++++++++++++++ Sub Begining() Set Sh = Sheets("Media") lr = Sh.Cells(Rows.Count, 2).End(3).Row If Val(Sh.Cells(1, "k")) < 1 _ Or Sh.Cells(1, "k") > lr - 1 Then How_many = 10 Else How_many = Int(Sh.Cells(1, "k")) End If Sh.Cells(1, "k") = How_many End Sub '+++++++++++++++++++++++++++++++ Private Sub cmd_reset_Click() Me.ListBox1.Clear UserForm_Initialize End Sub '++++++++++++++++++++++++++++++++++++ Private Sub Cmd_Show_Click() Begining Dim t: t = 1 If lr < How_many + 1 Then Exit Sub x = lr - How_many + 1 With Me.ListBox1 .Clear .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 2) .List(.ListCount - 1, 2) = Sh.Cells(1, 3) For k = x To lr .AddItem .List(.ListCount - 1, 0) = t t = t + 1 For i = 1 To .ColumnCount - 1 .List(.ListCount - 1, i) = _ Sh.Cells(k, i + 1) Next i Next k End With Me.Cmd_Show.Caption = _ "Laste " & How_many End Sub '+++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Begining With Me.ListBox1 .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 2) .List(.ListCount - 1, 2) = Sh.Cells(1, 3) .List(.ListCount - 1, 4) = "" For k = 2 To lr .AddItem .List(.ListCount - 1, 0) = k - 1 For i = 1 To .ColumnCount - 2 .List(.ListCount - 1, i) = _ Sh.Cells(k, i + 1) Next i Next k End With Me.Cmd_Show.Caption = _ "All Are Showing" End Sub الملف مرفق Ali_listbox.xlsm

اذا لم تكتب نوع المتغير ، فتلقائيا يأخذه الاكسس على انه Variant ، لذا ، مافي داعي تكتب انه Variant 🙂 وبتوسع لما كتبه اخي احمد : Function m(x, y) As Double If Len(x & "") = 0 Then MsgBox "Please enter a value for X" ElseIf Len(y & "") = 0 Then MsgBox "Please enter a value for Y" Else m = CDbl(x) + CDbl(y) End If End Function جعفر

تفضل الباسورد1234 test00.xlsm

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

حدد التاريخ اليعجبك من والى وضع الشرط الذي تريدة ان شاء الله يكون ذا فائدة Database1.rar

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

اتفضل اخى لعله يفى بالغرض Sheet0.xlsx

تفضل بالمثال المرفق سوف تجد عدة خيارات خاصة فيما يخص طلبك حول التحكم في النموذج أضغط على الآزرار form1 form2 form3 و لاحظ ما يحدث، بالإضافة الى أمثلة أخرى ممتازة في مجالات أخرى تجدها في نفس المثال ResizeFormExample v2.6.zip الموقع لكي تستفيد من الشرح أضغط هنا

مشكور جدا جداجدا لقد افدتني .............................................

وعليكم السلام 🙂 انا عندي هذه المسطرة العائمة ، ما لها علاقة بالاكسس ، ولكن يمكن الاستفادة منها ، مثلا : عرض هذا الحقل حوالي 5.889 سنتيمتر او المسافة بين السهمين حوالي 5.650 سنتيمتر جعفر ImRuler.zip

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

بسم الله الرحمن الرحيم فى البداية لا اعلم ان كان قد تطرق احد الى هذا الموضوع الاتى شرحة من قبل ام لا وعلى كل لا ضرر فى توضيحة من جديد طبعا الحل دا هتلجأ لى بعد ما تنفذ منك كل سبل تصغير حجم قاعدة البيانات او ممكن تستخدمة عند انشاء برنامجك من البداية الموضوع ببساطة هو تحويل قاعدة بياناتاك من Access الى Sql تحويل الخلفية فقط ( الجداول ) اما النماذج فيتم انشائها فى اكسس عادى طريقة العمل المتطلبات ------------------ 1 - Microsoft SQL Server 2008 R2 RTM - Management Studio Express لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=22985 2 - سيكوال سيرفير 2008 R2 لينك التحميل https://www.microsoft.com/en-us/download/details.aspx?id=30438 3- اوفيس اصدار 2007 فما فوق -------------------------------- شرح بسيط بالبلدى كدا احنا هنعمل سيرفير محلى وننشئ عليه قاعدة بيانات وبدل ما نصمم عليها الجداول من اول وجديد هنصدرها من الاكسس ببيانتها بكل ما تحتوى بس كدا هههههههههه طريقة العمل اول هنسطب السيرفر المحلى ( سيكوال سيرفير 2008 R2 ) طريقة تسطيب هتلاقوها فى الفيديو دا ثانيا تثبيت Microsoft SQL Server 2008 R2 RTM - Management Studio Express وهتلاقو طريقة التثبيت فى الفيديو دا نخش بقى على المهم بعد التثبيت هنفتح Management Studio Express هتلاقوه فاتح الشاشة دى هتكتب فى اسم السيرفير .\SQLEXPRESS وبعدين connect هتطلعلك الشاشة دى كليك يمين واختار داتابيز جديدة زى الصورة بالظبط هتظهرلك شاشة التالية هنكتب فيها اسم قاعدة بيانات اللى انت عاوزها وبعدين OK بعد كدا هتظهرلك قاعدة بايناتاك ضمن قواعد البيانات زى اللى فى الشاشة التالية لو مظهرتش كليك يمين ورفريش هتظهر معاك على طول --------------------------------------------------- كدا احنا انشأنا قاعدة البيانات على السيرفير ولكن بدون جداول فاضل بقى نظهر قاعدة البيانات للاكسس علشان يقدر يشوفها على السيرفير المحل تابع معايا اولا من قائمة استارت اختار بحث او ابحث عن البرنامج الاتى odbc data sources افتحه هيظهرلك الشاشة دى اختار Add بعد كدا هتظهرلك دى اختار Sql Server وبعدين Finsh هتظهرلك الشاشة دى طبعا هتكتب اسم قاعدة البيانات اللى انت عاوزها ونفسها فى حقل الوصف واسم السيرفير دا .\SQLEXPRESS وبعد كدا Next هتظهرلك الشاشة دى اختار منها Next هتظهر الشاشة دى علم على اللى فى الصورة واختار منها قاعدة بياناتك اللى انت انشأتها بعد كدا هتظهر اخر شاشة دى اختار منها Finsh هتظهرلك شاشة تاكيد اختار منها OK وممكن تعمل منها تيست لقاعدة البيانات تشوفها متصلة ولا لا بعد كدا هتلاقى قاعدة بياناتك ظاهرة فى كما فى الشاشة التالية --------------------------------------------- كدا احنا وصلنا لنص المهمة ظهرنا قاعدة البيانات للاكسس فاضل بس اصدر ليها الجداول بتاعتى هتفتح الاكسس وكليك يمين على الجدول نختار الاتى بعد كدا بعد كدا امسح الجدول طبعا قبل ما تمسح خد نسخة من قاعدة البيانات علشان مترجعش تصوتلى تقولى البرنامج باظ هههههههههه بعد كدا من بيانات خارجية فى الاكسس اختار التالى بعد كدا الاتباط بمصر البيانات علشان يعمل لينك للجدول بين السيكوال والاكسس بعد كدا اختار قاعدة البيانات بتاعتنا بعد كدا هتلاقى الجداول اللى صدرناها ظاهرة فى الاول مسبوقة بكلمة dbo_ اختاره واضغط اوكيه بعد كدا هياكد معاك حقول الجدول اللى هيا مفتاح اساسى اختار المفتاح الاساسى فقط هتلاقى الجدول ظهر عندك فى قاعدة البيانات الخاصة بك بهذا الشكل فقط اعد تسميته كما كان والجدول ظاهر بكل بياناته وبكدا يبقى قاعدة البيانات اتحول من اكسس الى سيكوال وسهل جدا تعمل لها باك اب من خلال سيكوال شكرا لكم

ممناز استاذ ابراهيم لكن كي لا تكون النتيجة بشكل تاريخ بوجود علامة "/" مثلاً jun 02 يجب ادراح السطر في المربع الأحمر من الصورة

السلام عليكم ورحمة الله استخدم هذا الكود بعد تحويل تنسيق العمود "E" الى "Text" Sub ConcaText() Dim LR As Long, i As Long LR = Range("G" & Rows.Count).End(3).Row i = 3 Do While i <= LR Range("E" & i).Value = Range("H" & i).Value & " / " & Range("G" & i).Value i = i + 1 Loop End Sub

رائع تسلم يديك بارك الله فى استاذ عبدالله بارك الله فيك

وعليكم السلام ورحمة الله وبركاته الملف وبه الكود headr.xlsm

السلام عليكم ورحمة الله وبركاته أولا- لو تكرمت ترفق صورة من الـ Query الموجود خلف النموذج لتتضح المشكلة بالضبط ثانيا- علي حد علمي ومن واقع تجربة: هذه المشكلة ربما تحدث بسبب: 1- عدم قراءة المفتاح الأساسي للجدول المرتبط بقاعدة بيانات السرفر: حاول عرض الجدول من الأكسس في طريقة عرض التصميم وانظر هل له مفتاح أساسي أم لا؟ 2- وجود معايير فلترة كثيرة تحوي جملة Like داخل الـ query وهذه لا يتعامل معها السرفر بشكل صحيح! 3- لا يوجد للمستخدم الحالي صلاحيات علي الجدول المرتبط دخل الـ SQL server أو لا يوجد له صلاحيات علي قاعدة البيانات عموما. هذا والله أعلم بانتظار صورة الـ Query المرفق بالنموذج لاستبيان العلة 🙂

ارجو ان ان يكون هذا المطلوب قم بانشاء ملف في c:\nadjib و افتح الملف المرفق و قم بتمكين وحدات الماكرو و المكتوبة nadjib11 سيقوم بانشاء ملفات و كل ملف باسم الشخص المراد كما في المثال و كل شخص بملفه الخاص RD4.xlsm

Data==>Data Validation==>Input Massage

وعليكم السلام ورحمه الله وبركاته تفضل بالنسبة لطلبك الاول Sub Export_PDF() Dim SH As Worksheet, R As Range, File_name As String Set SH = ThisWorkbook.Worksheets("Sheet1") File_name = "Filename" Set R = SH.Range("A1:H20") R.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & File_name End Sub

أهلا بك في المنتدى ..... اخي الكريم لو ارفقت مثال لما تريد لوجدت المساعدة من اعضاء المنتدى أهلا بك مرة اخرى في المنتدى

جرب المرفق التالي واعلمني بالنتيجة kan_mosnad.accdb

بارك الله بك استاذ صالح، لقد اغنيت رصيدي المعرفي.

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا أود في هذا المنشور التطرق لموضوع فهرسة الآيات القرآنية وأرجو من الإخوة الفضلاء إثراءه بخبراتهم في ذلك لينتفع بها غيرهم تنبيه: المقصود فهرسة الآيات المكتوبة بالرسم العثماني، المدرجة ببرنامج مجمع الملك فهد للنشر الحاسوبي، وليس المدرجة ببرنامج مجمع الملك فهد للنشر المكتبي الذي أُصدر مؤخرًا أنا شخصيا أتبع الطريقة التالية من خلال نافذة وضع علامة لإدخال الفهرس أكتب العبارة التالية (انظر الصورة المرفقة).ا الرقم الأول (002) يوافق ترتيب السورة في المصحف الرقم الثاني (135) يوافق رقم الآية في السورة الآية: نستبدلها بعد وضع علامة الإدخال بجزء الآية المراد ظهوره في الفهرس هذه الطريقة جيدة لكن يعيبها أنك ستضطر لنقل الآيات ورقمها وصفحاتها لجدول يدويا ثم تنسقه، وهذا جد متعب (على حسب علمي)ا في انتظار تفاعلكم

الدرس الأول: موضوع البحث أو المشروع عزيزي المتعلم، ابتداءً وقبل كل شيء أرحب بك لمتابعة هذه السلسلة من الدروس التعليمية المتعلقة بكيفية عمل بحث علمي أو مشروع تخرج، والتي ارجو من الله أن تكون فيها الفائدة لك. وقبل البدء في الدرس الأول، من المهم في البداية ان تعرف أننا سواءً كنا نتحدث عن بحث علمي سينشر في مجلة علمية أو مشروع تخرج بكالوريوس أو ماجستير أو حتى دكتوراة، فالفكرة هي ذاتها انما الفرق غالبا في حجم الموضوع والزمن المتاح لعمله، أم الجوهر والطريقة فهو نفس الشيء. ونحن هنا في دروسنا سنستخدم مصطلح مشروع أو بحث أو دراسة بشكل تبادلي وهي تعني ذات الشيء بالنسبة لنا. أول شيء يواجه المتعلم أو الباحث في عمل البحث أو الدراسة هو اختيار الموضوع وابتكار عنوان له. للوهلة الأولى قد تظن عزيزي أن هذه العملية بسيطة ولا تحتاج لجهد كبير، ولكن وسرعان ما تكتشف ان الأمر ليس بالبساطة التي تظنها، فهناك أصول وقواعد وطرق تساعدك لاختيارك موضوع البحث الخاص بك ووضع عنوان مناسب له. من أولى الأشياء التي يجب أن تعرفها عزيزي المتعلم، أن عنوان بحثك يجب أن يكون لافتا وجذابا ومشجعا للقارئ على الاستمرار بالقراءة، ولكن ليس كإعلانات البضائع التي أحيانا كثيرة تجذب الزبون ولكن تكون البضاعة سيئة، بمعنى أن العنوان يجب أن يكون صادقا ويعبر بدقة عن محتوى البحث بدون أي تضليل. حسناً، دعونا الان نقوم بتدريب عملي من أجل ابتكار عنوان بحث يراعى فيه شروط العنوان والتي ستتضح لنا من خلال المثال الآتي: أولا لاختيار موضوع البحث بشكل عام نحاول أن نواجه الأنظار إلى الظواهر الموجودة في المجتمع مثلا: · الآن يوجد فيروس الكورونا الذي شكل أزمة عالمية سلمنا الله واياكم منه. · قد يوجد تسرب من المدارس في المجتمع المحيط بنا. · قد يوجد حالات طلاق كثيرة. · قد يوجد ادمان على وسائل التواصل الاجتماعي أو الألعاب الإلكترونية. وهكذا فالظواهر كثيرة من حولنا، وقد يكون اهتمامنا بموضوع درسناه أو سمعنا عنه أو قرأناه في الأنترنت أو أحد المجلات أو موضوع مقترح من الأستاذ الذي يعلمك. بعد تحديد الموضوع يأتي سؤال مهم وهو: ماذا نريد أن نعرف عن هذا الموضوع؟ مثلاً: موضوع التسرب من المدارس هل نريد أن نعرف أسبابه أو أثاره أو دور المعلمين به أو دور الإدارة المدرسية أو مثلا هل له علاقة بالفيسبوك، وهكذا نبدأ نفكر ماذا نريد أن ندرس. عزيزي المتعلم، هذه الكلمات التي تتوصل لها من خلال التفكير المنطقي تسمى الكلمات المفتاحية وهي التي ستوصلك لعنوان بحثك. الكلمات التي وصلنا لها هي: الكلمة الأساسية التي لا غنى عنها هي الموضوع نفسه: التسرب من المدراس الكلمات الأخرى هي: أسباب، أثار، دور المعلمين، دور الإدارة المدرسية، الفيسبوك الآن يأتي دور البحث في الانترنت عن عناوين تربط هذه الكلمات ببعضها فنذهب إلى scholar.google.com وهو باحث جوجل الخاص بالأبحاث مثال1: نبدأ مثلا بوضع: التسرب من المدارس الفيسبوك والنتيجة أننا لا نحصل على شيء لأن الكلمات هذه لا علاقة لها ببعض. مثال 2: نجرب مرة أخرى بوضع: التسرب من المدارس أسباب ونلاحظ بعض النتائج التي منها: 1. أسباب التسرب الدراسي لدى طلبة المدارس المتوسطة والإعدادية من وجهة نظر المرشدين والمرشدات في محافظة الديوانية 2. التسرب المدرسي وعلاقته بالمحيط الاجتماعي في الطور الثالث من التعليم الأساسي مثال 3: نجرب مرة أخرى بوضع: التسرب من المدارس الإدارة المدرسية 1. دور الإدارة المدرسية في مواجهة التسرب في المدارس الحكومية بمحافظة خان يونس: دراسة ميدانية 2. دور الإدارة المدرسية في تفعيل الشراكة بين المدرسة والمجتمع المحلي للحد من ظاهرة التسرب لدى طلبة مدارس ويمكنك عزيزي الدارس تجربة المفاتيح الأخرى ويمكن وضع أكثر من مفتاح معا. دعنا نرجع للمثال 2: أنظر للعنوان الأول أسباب التسرب الدراسي لدى طلبة المدارس المتوسطة والإعدادية من وجهة نظر المرشدين والمرشدات في محافظة الديوانية لاحظ العنوان هو أسباب التسرب من المدارس، ولكن أي مدارس ومن وجهة نظر من وأين وربما أيضا متى. أي أن العنوان يتضمن تحديدا لنوع المدرسة ومكانها وربما زمن الدراسة مثلا كأن نقول في زمن انتشار وباء الكورونا وأيضا تحديد من هم الأشخاص الذين سنسألهم بهذا الخصوص فنحن ممكن أن نسأل المدير أو المعلم أو ولي الأمر أو حتى الطالب نفسه وقد نسأل أكثر من جهة. فمثلا ممكن وضع العنوان: (أسباب التسرب من المدارس الثانوية في محافظة الديوانية وقت الكورونا من وجهة نظر مدراء المدارس والمشرفين التربويين) أو: أسباب التسرب من المدارس الابتدائية في محافظ الديوانية خلال الأعوام 2015 وحتى 2020 من وجهة نظر أولياء الأمور. إن هذه التحديدات في النهاية هي التي ستوجه الباحث في دراسته وهي التي ستحدد المجهود والزمن الذي يلزم لإجراء هذه الدراسة. وقد نبتكر عنوان من النظر للمثالين 2، 3 معا فنقول مثلا: دور الإدارة المدرسية في الحد من التسرب من مدارس محافظة الديوانية الأساسية في زمن الكورونا من وجهة نظر أولياء الأمور والمشرفين التربويين. وهكذا تلاحظ عزيزي الدارس أنك تستطيع ابتكار العنوان الذي يروق لك باستخدام هذه الطريقة العملية وعليك ملاحظة بعض الشروط أو لنقل الأسس في العنوان ومنها: · أن يكون محددا ومتضمنا أهم العناصر. يعني لا نقول مثلا: أسباب التسرب من المدارس، فهذا العنوان بحر كبير لا نستطيع الإبحار به لذا يجب التحديد كما في الأمثلة أعلاه. · أن يسير إلى موضوع الدراسة بشكل محدد. لاحظ كل العناوين التي تم طرحها بالأعلى تسير لموضوع الدراسة وهو التسرب من المدارس، فمثلا من الخطأ أن يكون عنوان البحث (أسباب عدم حب الطلاب للمدرسة في المرحلة الأساسية من وجهة نظر المعلمين في مدينة القدس)، ثم نأتي في داخل البحث ونبحث عن أسباب التسرب فهنا يكون العنوان مضلل ولا يسير إلى موضوع الدراسة. · أن يتضمن الكلمات المفتاحية التي تشير إلى مجال البحث ومتغيراته. كما لاحظنا في الأمثلة: من وجهة نظر، في منطقة كذا، في وقت كذا، فهذه كلها تحدد مجال البحث ومتغيراته. · أن تكون لغة العنوان لغة مهنية وواضحة. مثلا لو قنا أسباب التسرب من وجهة نظر المعلمين في القدس من مدارس الحكومة. هنا سيحصل تشويش ولبس في المعنى. · أن يكون في حدود 15 كلمة كحد أقصى. وهذه القاعدة عليها بعض الخلاف ووجهات النظر ولكني شخصيا أنصح بحصر عدد الكلمات ما أمكن بين 10 الى 12 كلمة وخصوصا إذا كان البحث باللغة الإنجليزية. الوظيفة: أكتب موضوع بحث وعنوان بحث لهذا الموضوع. وإن أحببت الشرح ممكن.

السلام عليكم هذا هو المثال و قد استخدمت الكود التالي لعرض الصفوف المحددة على شكل رسائل مع تعديل خاصية متعدد التحديد لمربع القائمة إلى عادي On Error Resume Next Dim i If Me.list_facture.ItemsSelected.Count = 0 Then MsgBox "لم يتم تحديد أي عنصر" Exit Sub End If For Each i In Me.list_facture.ItemsSelected MsgBox Me.list_facture.ItemData(i) Next i تحديد متعدد.mdb

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

مشكور اخي هل تشرح كيف غملت التقرير حتى نستفيد اكثر وجزاكم الله خيرا

وعليكم السلام هل هذا ما تريد ؟ Aziz.rar

جرب هذه الملف ويمكن التعديل عليه ليتناسب مع ملفك Option Explicit Dim lr% Const How_many = 10 Dim Sh As Worksheet Dim i%, k%, x '+++++++++++++++++++++++++++++++ Sub Begining() Set Sh = Sheets("Sheet1") lr = Sh.Cells(Rows.Count, 1).End(3).Row End Sub '++++++++++++++++++++++++++++++++++++ Private Sub CommandButton1_Click() Begining Dim t: t = 1 If lr < How_many + 1 Then Exit Sub x = lr - How_many + 1 With Me.ListBox1 .Clear .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 1) .List(.ListCount - 1, 2) = Sh.Cells(1, 2) .List(.ListCount - 1, 3) = Sh.Cells(1, 3) For k = x To lr .AddItem .List(.ListCount - 1, 0) = t t = t + 1 For i = 1 To .ColumnCount - 1 .List(.ListCount - 1, i) = _ Sh.Cells(k, i) Next i Next k End With End Sub '+++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Begining With Me.ListBox1 .AddItem .List(.ListCount - 1, 0) = "Count" .List(.ListCount - 1, 1) = Sh.Cells(1, 1) .List(.ListCount - 1, 2) = Sh.Cells(1, 2) .List(.ListCount - 1, 3) = Sh.Cells(1, 3) For k = 2 To lr .AddItem .List(.ListCount - 1, 0) = k - 1 For i = 1 To .ColumnCount - 1 .List(.ListCount - 1, i) = _ Sh.Cells(k, i) Next i Next k End With Me.CommandButton1.Caption = _ "Laste " & How_many End Sub Laste_10.xlsm

وهذا الشيء لوكانت البيانات اقل من 10 Private Sub UserForm_Initialize() Dim lr1, lr Dim lr2 Dim i, k ListBox1.ColumnCount = 3 lr = Cells(Rows.Count, 2).End(3).Row If lr < 9 Then MsgBox "البيانات اقل من10": Exit Sub lr1 = Cells(Rows.Count, 2).End(3).Row - 10 lr2 = Cells(Rows.Count, 2).End(3).Row k = 0 For i = lr1 To lr2 ListBox1.AddItem ListBox1.List(k, 0) = Cells(i, 1).Value ListBox1.List(k, 1) = Cells(i, 2).Value ListBox1.List(k, 2) = Cells(i, 3).Value k = k + 1 Next i End Sub

هو تعليمة SQL يتيح لنا دمج حقلين أو أكثر من جدولين مختلفين بشرط تماثل حقول الجدولين ( بمعنى أن يتم دمج النص للنص والرقم للرقم .. وهكذا أنواعه : استعلام توحيد لجميع القيم ( مع التكرار ) ويستخدم العبارة UNION ALL صيغة كوده : SELECT ID, F_Name,System FROM TAB UNION ALL SELECT ID, F_Name,System FROM TAC;" استعلام توحيد للقيم بدون تكرار ( يستبعد القيم المكررة ) ويستخدم العبارة UNION صيغة كوده : SELECT ID, F_Name,System FROM TAB UNION SELECT ID, F_Name,System FROM TAC;"

السلام عليكم ورحمة الله وبركاته 📜برنامج المخزون والفواتير الشامل الإصدار الرابع 2020 البرنامج هو تحديث للاصدارات السابقة من نفس البرنامج اولا وقبل كل شيئ اعتذر عن التأخير فى اطلاق هذا الاصدار نظرا لانشغالي الدائم وظروف خارجه عن الارادة. كما هو معروف عن برنامج المخزون و الفواتير الشامل: واجهة تطبيقية كاملة علي الاكسيل يصلح لكافة اغراض المبيعات و المشتريات وذمم عملاء وموردين و حساب المصروفات مع ميزانية عامه توضح الربح و الخساره. البرنامج مليئ بافكار جديده فى طريقة ادخال الاصناف داخل الفواتير و استدعائها و التعديل عليها.بالاضافه الي طرق جديده فى تصميم الفاتورة كما يتميز البرنامج بكثرة التقارير وسهولة الحصول عليها فى اى وقت يعمل علي جميع اصدارات الاكسيل بنواتين 32 أو 64 بت ويفضل دائما الاصدارات الاحدث من الاكسيل اوفيس 2019 و 365 البرنامج مجاني بنسبة 100 % للاستخدام الشخصي ولا يوجد به تاريخ انتهاء. وتستطيع استخدامه بامان تام.ويمنع بيع البرنامج او اي ربح تجاري بدون الرجوع الي المالك الاصلي.و الله الشاهد علي ذلك. تم تصميم البرنامج بمواصفات خاصه ويعمل للشركات الصغيره الي متوسطة الحجم او للمشاريع الخاصه .وهو فى الاصل برنامج تجارى ولكنى اقدمه هنا للمنتدى وللأخوة الاعضاء بصورة مجانية. تم اطلاق الاصدار الاول من هذا البرنامج عام 2012.وكل ما يلزم هو وجود نسخة اكسيل علي جهازك.وسيفي بالغرض تماما. هذا هو اخر اصدار للبرنامج علي اكسيل و الاصدار الخامس و لمزيد من التحسينات الكبيره سوف يتم تطويره إن شاء الله بلغة برمجه اخري وقاعده بيانات اخري. الدخول الاول:اسم المستخدم "مدير" و الباسورد 123 تم ارفاق نسختين من البرنامج نسخة الاستخدام المباشر كمستخدم ويمكنك استخدامها فى عملك مباشرة. نسخة اخري للتعلم مفتوحة المصدر وتوجد بها جميع الاكواد لجميع الشاشات داخل البرنامج للتعلم او التعديل عليها كما هو الغرض الرئيسي من هذا الصرح العظيم. يمكنك الرجوع الي الاصدارات السابقة حيث يوجد شرح كامل لكيفية استخدام البرنامج لاول مرة. توجد الروابط للاصدارات السابقة و الشرح اسفل هذا الموضوع . 📑الجديد في هذا الاصدار (2020)SIS Ver.4: شاشة تصميم الفواتير و هي من الشاشات الجديدة وبها الكثير من الاكواد الجديده فى الاكسيل (علي حسب علمي) حيث تمكنك من وضع اللوجو الخاص بالمؤسسه او الشركة الخاصه بك كما يمكنك ايضا وضع بياناتك اسفل الفاتورة كرقم التليقون و العنوان و ...... التحكم الكامل في بعض القيم و ظهورها داخل الفاتورة كرصيد العميل. شاشة اختيار عملة الدولة ووضع الضريبه او القيمه المضافه تمكنك هذه الشاشه من اختيار العمله علي حسب الدوله التي تعمل فيها. كما تمكنك من ضبط قيمة الضريبه او القيمه المضافه لفواتيرك شاشة ضبط صلاحيات المستخدمين بعد اضافة مستخدم جديد للبرنامج تستطيع ضبط صلاحيات المستخدم من الوصول الي جميع شاشات البرنامج شاشة حذف البيانات الغير مستخدمة بكل سهولة تستطيع حذف العملاء و الموردين او الاصناف الغير مستخدمة داخل البرنامج. شاشة الحركة المالية السريعة تستطيع ادخال سند صرف موردين او سند عميل بضغطة زر واحده. شاشة الفواتير الكثير من التحسينات تم ادارجها داخل شاشة الفواتير فاتورة المشتريات . انت من يقوم بوضع رقم الفاتورة الخاصه من المورد.بدلا من وضعها اتوماتيكيا كالاصدار السابق. اضافة خصم اجمالي علي الفاتورة. يتم تحديد الخصم كنسبه مئويه او خصم مبلغ مقطوع. اضافة الضريبه علي الفاتورة ويمكن تحديد قيمتها يدويا او تثبيتها من خلال شاشة البيانات الجديده وضبط الضريبه او القيمه المضافه علي حسب الدولة. مبيعات نقدي: فى حالة اختيار هذا النوع من الفواتير يتم ادراج سند قبض مباشره الي حساب العميل مع حفظ الفاتورة لانها مبيعات نقدية. ظهور رصيد العميل الحالي داخل الفاتورة. و التحكم في ظهوره من خلال شاشة تصميم الفاتورة. زر لسداد كامل الفاتورة مباشرة وادراج سند قبض او سند صرف داخل حساب العميل/المورد سند بالمبلغ المدفوع داخل الفاتورة وتسوية حساب العميل او المورد. شاشة الحركات المالية ادراج الكثير من الحركات المالية داخل سند الصرف. شاشة جديده لحساب رواتب وجميع الحسابات للموظفين العاملين فى المؤسسة او الشركة يوجد الكثير من الاضافات و التحسينات علي كل الشاشات والتقارير داخل البرنامج . تستطيع اكتشاف المزيد و المزيد اثناء استخدام البرنامج. التعامل مع رصيد اول المده (كميات الاصناف- حسابات العملاء/الموردين) تم الاستغناء عن شاشة اكواد البيانات والجرد فى هذا الاصدار وكانت تستخدم لوضع رصيد اول المده للاصناف. وعوضا عن ذلك ولحساب المخزون بطريقه منظمه يجب ان يتم وضع كميات اول المده لجميع الاصناف من خلال فاتورة مشتريات باسعار شراء محدده حتي يتم ادراجها وحسابها بطريقه دقيقه.وايضا فى حالة رصيد سابق للعملاء والموردين يجب ان يتم ادخاله من خلال شاشة الحركات الماليه( حركة ماليه رصيد اول مده او ترحيل لحساب عميل/مورد) طباعة الباركود لا تزال غير مفعله ايضا فى هذا الاصدار. 👁️‍🗨️شرح كيفية استخدام البرنامج وادخال البيانات من الاصدارت السابقة:(برجاء مراجعة الروابط التالية) شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) استخدام البرنامج لاول مره من الاصدار الثالث شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) 🏷️تحميل البرنامج: النسخة الاولي SIS 4.566EO : هى نسخة المستخدم النهائي مجانيه 100 % لاعضاء المنتدي الكرام وليس لها تاريخ انتهاء وكما ذكر سابقا هي للاستخدام الشخصي فقط. 💳SIS 4.566EO.rar النسخة الثانيه SIS 4 Learning : هي نسخة للمطورين و الباحثين عن التعلم وهي نسخة مفتوحة المصدر تحتوي علي جميع اكواد الشاشات داخل البرنامج. 🧼SIS4(Learning).rar إن شاء الله سوف اقوم بالرد علي استفسارات اعضائنا الكرام عندما يتوفر لي الوقت و اعتذر مقدما عن اي تاخير نظرا لانشغالي الدائم. اخيرا أحب انا أشكر جميع مشرفي و اعضاء هذا الصرح العظيم. واتمني من الله ان يكون هذا العمل خالصا لوجه الله سبحانه و تعالي و انا اكون قد قدمت تجربه جيده لهذا النوع من البرامج علي الاكسيل وان ينفع به جميع اعضاء المنتدي الكرام

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

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

أخي الكريم إليك الكود فيه حل للمشكلة Sub Store_ActiveCell_In_Variable_Go_Back_At_The_End() Dim c As Range Set c = ActiveCell 'Your Macro Application.Goto Range("K35") Application.Wait Now + TimeValue("00:00:03") Application.Goto c End Sub

السلام عليكم ورحمة الله الفاضل / أبو محمد عباس جرب الكود التالي Sub AL_KHALEDI() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("بيانات الطلبة حسب الحروف") Intersect(.Range("B5").Resize(9999, 11 * 28), .UsedRange).ClearContents For Each C In Range(Sheets("بيانات الطلبة").[B4], Sheets("بيانات الطلبة").Cells(Rows.Count, 2).End(xlUp)) T = Mid(Trim(C), 1, 1) If T = "ج" Then T = "ح" Else If T = "ح" Then T = "ج" M = Application.Match(T, [{"A","ب","ت","ث","ج","ح","خ","د","ذ","ر","ز","س","ش","ص","ض","ط","ظ","ع","غ","ف","ق","ك","ل","م","ن","ه","و","ي"}]) If Not IsError(M) Then Lc = (M * 11) - 11 + 3 Lr = Application.Max(5, .Cells(Rows.Count, Lc).End(xlUp).Row + 1) .Cells(Lr, Lc - 1).Value = Lr - 4 .Cells(Lr, Lc).Resize(1, 8).Value = C.Resize(1, 8).Value Else: Er = Er + 1: End If Next End With MsgBox "تم بحمد الله" & IIf(Er > 0, vbCr & Application.Rept("=", 30) & vbCr & "عدد الاسماء الخطا غير المرحلة" & vbCr & Er, "") Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub في امان الله