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

استاذ محمد عمل رائع جزاك الله كل خيراً

انسخ هذه المعادلة الى الخلية G5 واسحب نزولاً =LOOKUP(MAX(Prices!$D8:$L8)+1,Prices!$D8:$L8)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

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

بسم الله الرحمن الرحيم احبتي الكرام السلام عليكم ورحمة الله وبركاته وبعد : وجدت لكم دالة تأخذ التاريخ والوقت الدولي من الانترنت ، مع شروحات للاكواد وافية كثير من الاخوة يحتاجون هذه الدالة خاصة الذين يعتمدون على جهاز واحد ، وذلك من اجل سد ثغرات احتمال التلاعب بوقت وتاريخ الجهاز من الشروط وجود خدمة الانترنت ، واعتقد في اليوم الحاضر اصبح من الضروريات التي لا يتصور الاستغناء عنها هذه الدالة جميلة جدا تجلب التاريخ والوقت الدولي مع امكانية مراعاة فارق التوقيت حول العالم الدالة : InternetTime()' التاريخ والوقت في جرينتش InternetTime(3)' في مكة المكرمة InternetTime(2)' في مصر امكانية عمل التنسيقات عليه بالضبط تماما كما نتعامل مع الدالة()Date أو ()NOW فهذا التنسيق يعطينا الوقت في مكة Format(InternetTime(3);"hh:mm:ss AM/PM") وكما تلاحظون ان الارقام التي بين الاقواس تعني فارق الزمن وهذه هي الوحدات النمطية : Function InternetTime(Optional GMTDifference As Integer) As Date '----------------------------------------------------------------------------------- 'This function returns the Greenwich Mean Time retrieved from an internet server. 'You can use the optional argument GMTDifference in order to add (or subtract) 'an hour from the GMT time. For Example if you call the function as: '=InternetTIme(2) it will return the (local) hour GMT + 2. Note that the 'GMTDifference variable is an integer number. 'Written by: Christos Samaras 'Date: 25/09/2013 'Last Updated: 20/11/2013 'e-mail: xristos.samaras@gmail.com 'site: http://www.myengineeringworld.net 'Declaring the necessary variables. Dim Request As Object Dim ServerURL As String Dim Results As String Dim NetDate As String Dim NetTime As Date Dim LocalDate As Date Dim LocalTime As Date 'Check if the time difference is within the accepted range. If GMTDifference < -12 Or GMTDifference > 14 Then Exit Function End If 'The server address. ServerURL = "http://www.timeanddate.com/worldclock/fullscreen.html?n=2" 'Build the XMLHTTP object and check if was created successfully. On Error Resume Next Set Request = CreateObject("Microsoft.XMLHTTP") If Err.Number <> 0 Then Exit Function End If On Error GoTo 0 'Create the request. Request.Open "GET", ServerURL, False, "", "" 'Send the request to the internet server. Request.Send 'Based on the status node result, proceed accordingly. If Request.readyState = 4 Then 'If the request succeed, the following line will return 'something like this: Mon, 30 Sep 2013 18:33:23 GMT. Results = Request.getResponseHeader("date") 'Use the Mid function to get something like: 30 Sep 2013 18:33:23. Results = Mid(Results, 6, Len(Results) - 9) 'Use the Left and Right function to distinguish the date and time. NetDate = Left(Results, Len(Results) - 9) '30 Sep 2013 NetTime = Right(Results, 8) '18:33:23 'Convert the date into a valid Excel date 30 Sep 2013 -> 30/9/2013. 'Required for countries that have some non-Latin characters at their alphabet (Greece, Russia, Serbia etc.). LocalDate = ConvertDate(NetDate) 'Add the hour difference to the retrieved GMT time. LocalTime = NetTime + GMTDifference / 24 'Return the local date and time. InternetTime = LocalDate + LocalTime End If 'Release the XMLHTTP object. Set Request = Nothing End Function Function ConvertDate(strDate As String) As Date '------------------------------------------------------------------------- 'This function converts the input date into a valid Excel date. 'For example the 30 Sep 2013 becomes 30/9/2013. 'Required for countries that have non-Latin characters at their alphabet. 'Written by: Christos Samaras 'Date: 25/09/2013 'e-mail: xristos.samaras@gmail.com 'site: http://www.myengineeringworld.net '------------------------------------------------------------------------- 'Declaring the necessary variables. Dim MyMonth As Integer 'Check the month and convert it to number. Select Case UCase(Mid(strDate, 4, 3)) Case "JAN": MyMonth = 1 Case "FEB": MyMonth = 2 Case "MAR": MyMonth = 3 Case "APR": MyMonth = 4 Case "MAY": MyMonth = 5 Case "JUN": MyMonth = 6 Case "JUL": MyMonth = 7 Case "AUG": MyMonth = 8 Case "SEP": MyMonth = 9 Case "OCT": MyMonth = 10 Case "NOV": MyMonth = 11 Case "DEC": MyMonth = 12 End Select 'Rebuild the date. ConvertDate = DateValue(Right(strDate, 4) & "/" & MyMonth & "/" & Left(strDate, 2)) End Function وتطبيق المقال بهذا المثال : db2.rar

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

تفضل اخي الكريم 123.rar

للتشويق ستكون فاتورتنا كالتالي:

برنامج جميل وعملي ، شكرا على هذا المجهود الرائع ، زادكم الله علما .

السلام عليم ورحمة الله وبركاته اقدم لكم برنامج شئون الطلبة للمرحلة الاعدادية فكرة عن البرنامج ؟ 1- اضافة البيانات المهمة 2- اضافة بيانات الطلبة 3- استخراج قائمة فصل محدد 4- استخراج قائمة صف كامل 5- استخراج كشف ببيانات الطلبة 6- استخراج كشف تنسيق للطلبة 7- استخراج كشف بأسماء وأكود الطلبة 8- استخراج طلب التحاق للطلبة 9- استخراج سجل الادارة 10- استخراج سجل قيد التلاميذ 11- استخراج كشف توزيع الكتب 12- استخراج كارنيهات للطلبة 13- استخراج استمارة 41 مستجدين وقائم العمل علي كنترول المرحلة الاعدادية الذي تم رفع من قبل وجارى اضافة اللغة الفرنسية واقترحات الاخ يوسف عطاء وكل هذا من فضل الله ثم من فضل اعضاء منتديات اوفيسنا الرجاء كتابة الاقتراحات والاراء ااسألكم الدعاء وجزاكم الله خير اليكم البرنامج بالمرفقات شئون الطلبة 2010-2011.rar

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

يمكن تسمية طلبك تحت عنوان مسجل الاحداث مسجل الاحداث ليس بالامر الهين اذا اردت استخدامه لكافة الحقول فهذا سيضيف بيانات تعادل اضعاف البيانات الاصلية مثال بسيط سجل احداث حسب اسم مستخدم و كلمة مرور 7.rar

Sub find_for_me() Dim Ws1, Ws2, Ws3 As Worksheet Dim lr1, lr2 As Integer m = 0 Set Ws1 = Sheets("العاملة"): Set Ws2 = Sheets("ملف 265"): Set Ws3 = Sheets("الغير العاملين") Ws3.Range("a2:h500").ClearContents lr1 = Ws1.Cells(Rows.Count, 1).End(3).Row lr2 = Ws2.Cells(Rows.Count, 1).End(3).Row Ws2.Select '================================== Ws2.Range("a2").Activate Do Until ActiveCell.Offset(1, 0) = "" On Error Resume Next Set f_r = Ws1.Cells.Find(What:=ActiveCell, After:=Ws1.Range("a1")) If f_r Is Nothing Then r = ActiveCell.Row Ws2.Range(Ws2.Cells(r, 1), Ws2.Cells(r, "H")).Copy Ws3.Cells(m + 2, 1) m = m + 1 End If ActiveCell.Offset(1, 0).Activate Loop End Sub جرب هذا الكود

شكرا اخي ابو عبدالله يعطيك العافية ماقصرت

السلام عليكم ورحمة الله وبركاتة هذا البرنامج كان احد الاعضاء قد وجده في احد المنتديات الاجنبية وهو لقاعدة بيانات وتم التعديل والاضافة والتنقيح وكانت النتيجة الاتي :: عناوين السجلات في اليوزر فورم تعمل اتوموتيكيا عند تغيرها في الشيت اضافة صورة لكل سجل و يتم اضافة الصور الي الفلدر All_Pic بالأسم الاول للسجل اضافة سجل جديد تعديل السجل الحالي حذف السجل الحالي البحث في الاعمدة التي تم تعليم التشك بوكس لها في هيدر العناوين وتظهر هذه العناوين فقط في كومبو بوكس البحث يشمل الملف علي ثلاث صفحات الصفحة الاولي لقاعدة البيانات الصفحة الثانية لقاعدة البيانات اخري مصغرة لتوضيح الية عناوين اليوزر فورم الصفحة الثالثة تقرير بالسجلات التي تم اختيارها اصل الملف قبل التعديل New Userform Example_1.rar الملف بعد التعديل قاعدة بيانات بالصور_2.rar

الاخ مهند الزيدي تم التعديل حسب طلبك الان يمكنك ان يكون المجموع ليس للعمود E فقط ولكن مثلا للعمود من B الى E أو أعمدة متفرقة حسب الحاجة ويجب تعديل المعطيان داخل الكود '========================================= First_Cel = "A1" ' عنوان اول خلية في جدول البيانات Count_Row_In_Page = 10 ' عدد الصفوف في كل صفحة Arr_Col_Total = Array(12, 5, 3) ' ارقام اعمدة المجموع بالنسبة الي الجدول وليس الأكسل '========================================= تم تعديل بعض الاخطاء في النسخة الاولي فقط كانت لا تعمل اذا كان الجدول لا بيدأ من اول عمود ادراج مجموع كل صفحة & المجموع الكلي_2.rar

السلام عليكم أقدم لكم هذا البرنامج الشامل لإدارة شئون الطلاب يقوم بما يلى إدخال بيانات الطلاب عن طريق نموذج تعديل البيانات توزيع الفصول أوتوماتيكيا حسب العدد المطلوب استخراج كشوف : المحولين من و إلى المدرسة المرضى المصروفات الأيتام كشوف 41 مستجدين أصحاب الإنذارات تحميل البرنامج تحميل الملف مضغوط رابط تحميل الملف علي سيرفر المنتدي لتوقف الرابط الاساسي شئون الطلبة - كيماس.rar

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

الأخ الغالي الحبيب أبو عبد الله أنا وإن قلت كلمات في حقك فهي أقل من ان أوفيك حقك وأنا لا أجامل ولا أبالغ في حبكم جميعاً أعضاء أوفيسنا فنحن أسرة واحدة يجمعنا منتدى واحد تحت شعار واحد (الحب في الله والعطاء بدون انتظار أجر وانتظار الأجر من الله سبحانه وتعالى ) أعمالك رائعة ولابد أن تدرس حتى يستفيد منها الجميع ... طلب أخير لعيون البراء :: اشرح لنا شرحاً مستفيضاً الكود علنا نرقى لفهم هذا العالم بشكلٍ أعمق ... أخوك أبو البراء