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

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

أسف أخي خالد لم أرى الرد

في المرة المقبلة ارفع نموذجاً عما تريد لنفرض ان البيانات عندك في A العامود ابتداءً من A1 اكتب هذا المعادلة واسحب نزولاً =IF(A1="","",CHOOSE((N(A1)<=0)+1,A1,0)) الملف مرفق كمثال sal_book.xlsx

اذا كنت تقصد رقم اللون .... فتجد في هذه المشاركة ملف PDF فيه جميع ارقام الألوان .....

الله يعطيك العافية يا ابا اشرف مجهود جميل وكرم منك مشاركة المعلومة وتقديم برامج مجانية بخصوص التقرير يوجد خطأ في تسجيل وقت الخروج انظر للصورة المرفقة للادمن

المختصر المفيد : 1. اذا كان عندك على الاقل استعلامين/جدولين ، كل واحد يعمل بطريقته وبسجلاته ، يعني قد يكون عندك استعلام عادي به معايير ، واستعلام آخر به مجاميع ، واستعلام جدولي ثالث .... ، او بدل ما يكون الاستعلام جاهز ، ممكن مباشرة نكتب SQL الاستعلام في استعلام التوحيد ، مثل: 2. الشرط الوحيد هو ان يكون عدد الحقول نفسه لجميع الاستعلامات اللي تريد توحدها 🙂 3. ودمج الاستعلامات يكون عن طريق الامر Union ، والذي به لا تحصل على سجلات متكررة ، بينما الامر Union All ، يعطيك كل السجلات. 4. استعلام التوحيد الذي عملناه من الخطوة 3 ، يُعتبر استعلام عادي ، والذي يمكن ان تعمل استعلام جديد وتستعمل استعلام التوحيد كمصدر لبيانات الاستعلام الجديد ، للعلم ، استعلام التوحيد بطيء بالمقارنه مع بقية انواع الاستعلامات 🙂 جعفر

تفضل اخي الكريم Dim excelFilePath As String excelFilePath = CurrentProject.Path & "\" & "employee.xlsx" ' حذف الجدول القديم DoCmd.DeleteObject acTable, "employee" ' استيراد الجدول الجديد DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel16, "employee", excelFilePath, True ملاحظة : acSpreadsheetTypeExcel16 يتغير حسب اصدار الاوفيس لديك سيظهر معك الان كجدول مرتبط قم بعمل استعلام الحاق للجدول الاساسي لاضافة البيانات اليه تحياتي

فورم عدم تكرار المسلسل والاسم ورقم التليفون الفيديو

السلام عليكم أحيانا يكو ن اكثر من مستخدم للبرنامج وأنت كمسؤول يهمك معرفة من عمل على البرنامج حسب الوقت لذلك فانك تحتاج لمعرفة تسجيل الدخول والخروج اقتطعت هذا الامر من احد برامجي متمنيا لكم الفائدة وأنتم تعلمون انني لا ابخل عليكم بأي معلومة تسجيل الدخول والخروج.accdb

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

السلام عليكم 🙂 اذا تسمحي اخوي ابو خليل ، واخوي محمد ابوعبدالله 🙂 مشاركتي لا تؤدي العمل بضغطة زر ، وانما تقدر تستفيد منها لتوزيع الغرف لاحقا ايضا 🙂 الاختيار ليس تلقائي ، ولكنه يسهل العمل كثيرا 🙂 ومن تجربتي مع الحجاج ، بعض الاوقات في مجموعة تحب ان تكون مع مجموعة اخرى في الباص ، فطريقتي سوف تسهل عليك 🙂 العمل كله بيكون في الجدول tbl_Groups ، والعمل بالمجموعات ، لذا : 1 و 2. استعلامات الحاقية ، فقط لاخذ بيانات الجدولين tbl_Tsjeel والجدول tblSub_Tsjeel الى الجدول tbl_Groups . 4. نموذج العمل هو frm_Main تختار من قائمة "في انتظار التوزيع" (وفي الواقع الاختيار عن طريق userid) ، العدد الذي تريده ، وفي الاسفل بتشوف عدد اختياراتك ، ومجموع الاشخاص اللذين اخترتهم ، تختار الى اي باص تريد ان تلحقهم ، باختيار رقم الباص ، ثم النقر على الزر الاول (السهم من القائمة الى الباصات) ، وتلقائيا تشوف النتائج ، واذا اردت ارجاع اي مجموعة ، فالاختيار يكون من قائمة الباص ، وتنقر على الزر بالاسفل (السهم من الباصات الى القائمة) ، وتلقائيا تشوف النتيجة 🙂 . هي لعبة اكثر منها عمل 🙂 جعفر 1158.haj.mdb.zip

حسب فهمي لطلبك جرب المرفق حسابات 12020.xlsm تحياتي

السلام عليكم راجع الملف المرفق لعل فيه ما تريد... أرجو أن يفي الغرض المطلوب... بن علية حاجي Test_3.rar

السلام عليكم تعريف الوحدات النمطية : هي دالة او مجموعة من الدوال مكتوبة بلغة VBA تؤدي غرضاً معيناً او تعيد قيماً محددة بناءً على قيماً مدخلة.ويتم استدعاء الوحدة النمطية في اي موقع في قاعدة البيانات سواءً في الاستعلامات او النماذج او في اشرطة الادوات. الغرض من الدالة : اختصار الوقت والمساحة في قاعدة البيانات مثلاً ربما يكون لدينا كود او مجموعة من الكودات المتشابهة في مواقع مختلفة من قاعدة البيانات فبدلاً من كتابتها في كل مرة نكتبها مرة واحدة في وحدة نمطية ونستدعيها في الموقع الذي نحتاجها . --------------------------------------------------------------------------------------------------------------------------- انشاء الوحدة النمطية بكون بالدخول الى محرر فيجيوال بيزيك: الكود التالي يمثل الدالة الاجرائية وهي ابسط انواع الدوال: Function Function_Name( ) Statement End Function شرح الكود :يجب ان تبدأ الدالة بهذه الكلمة للتعريف بانها دالة وهناك كلمات اخرى للتعريف بنوع الدالة لكن هذا النوع الشائع. (اسم الدالة) Function_Name ويجب مراعاة مايلي عند اختيار اسم الدالة : - اختيار الاسم باللغة الانجليزية - اختيار اسم يدل على وظيفة الدالة - اختصار الاسم قدر الامكان ويفضل ان تكون كلمة واحدة. - في حال استخدام عدة كلمات يجب ان لا تحتوي على فراغ يما بينها ولذلك يتم الفصل بينها بواسطة الشرطة السفلية. - تجنب استخدام الكلمات المحجوزة واذا لزم الامر اضف حرفاً الى بداية او نهاية الكلمة . ----------------------------------------------------------------------------------------------------------------------------------------- - مجموعة الكودات الاجرائية التي نحتاجها (Statement ) - التصريح عن نهاية الدالة (End Function) وتستخدم الدالة الاجرائية في تنفيذ الاوامر مثل فتح واغلاق النماذج , التنقل بين السجلات , التحكم في خصائص النماذج وعناصر التحكم , تشغيل جمل ال SQL , اظهار الرسائل المختلفة ... الخ ويتم استدعاء هذه الدالة كالتالي بالكود: Call Function_Name ( اسم الدالة) هذه بعض التلميحات المنقولة حول الدوال ارجو ان يكون فيها الفائدة هذا نموذج لوحدة نمطية لاخفاء شاشة الاكسس عند الفتح ونموذج رسالة ترحيب test.rar رسالة ترحيب.rar

كشوف الملاحظة 20.3.rar ملف التنسيق 2019-12-01.rar

ارسلنا الرد بنفس الاقتراح في نفس الوقت

لماذا لا نجعل للدخول سجل بالوقت والتاريخ وأيضا للخروج وقت وتاريخ أيضا ؟؟؟

وعليكم السلام اخى عبداللطيف مجهود جميل بارك الله فيك اخى واستاذى خالد خالد بناء على ملاحظتك القيمه جزاك الله خيرا حاولت فيها بالحصول على اخر وقت دخول للمستخدم فى نموذج Main =DLast("Enter";"Time_Enter&Exit";"Users= [wUsers] ") وقمت باضافه حقل وقت الدخول فاستعلام التحديث ووضع له المعيار ويحدث الوقت شغال بس هل الفكره صحيحه كده تسجيل الدخول والخروج1.accdb

الف شكرا ما قصرت وبيض الله وجهك يا استاذنا الغالي ❤️

نعم انا متابع مجهود احوي محمد ابوعبدالله ، ولكني اردت المشاركة بطريقة اخرى للحل 🙂 جعفر

السلام عليكم 🙂 هنا كانت نفس المشكلة جعفر

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به استاذنا الفاضل @أحمد الفلاحجى وله الشكر تفضل اخي الكريم الكود التالي If IsNull(txtcategorie) Then MsgBox "la case est vide", vbCritical Me.txtcategorie.SetFocus Else Dim db As DAO.Database Dim Rs As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Categories.*FROM Categories;") Rs.AddNew Rs("IdCategorie") = DMax("[IdCategorie]", "Categories") + 1 Rs("LibCategorie") = Me.txtcategorie Rs.Update Rs.Close End If testInsert.accdb تحياتي

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

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

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

من جد وجد ومن زرع حصد الف مبارك استاذنا واحونا احمد

السلام عليكم بالشروط الجديدة التي ذكرتها تعقدت المعادلة بعض الشيء (وهي معادلة صفيف أي يجب تأكيدها بواسطة Ctrl+Shift+Enter)... تم تعديل المعادلة الثانية التي لم يُستعمل فيه جداول مساعدة... واعذرني على التأخير في الرد لأني كنت خارج البيت... بن علية حاجي If formula (3).xlsm

الف مبروك على الانضمام الى الفريق بالتوفيق

الف مبروك للاستاد احمد بدره اتمنى لك مزيدا من العطاء والتألق تحياتي

ليس هذا ما اردت النقاش حوله

ممكن يضيف جقل لتسجيل تاريخ الخروج

اخي ابو اشرف الاجراء الصحيح من وجهه نظري يكون تسجيل الخروج عند اغلاق البرنامج مع الامر DoCmd.Quit

على افتراض أن مستخدم من المستخدمين لم يسجل خروج في نفس اليوم .... كيف يمكن لمدير الدائرة يعرف متى تم الخروج وفي أي تاريخ ؟؟؟؟

ألف مبروك والى الأمام دائما ترقية مستحقة أعانك الله على هذه المسؤلية

ماهي المشكلة اخي على ؟

هل جربت دخول مستخدم مثلا الساعة الحادية عشر ليلا ثم خرج الساعة الواحدة صباحا .....

جرب هذه المعادلة =SUMPRODUCT(($C$2:$C$100<>"")*($B$2:$B$100<>""))

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

Sub txtonly() Dim a, m, x, i a = Cells(2, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1) With CreateObject("vbscript.regexp") .Global = True .MultiLine = False .Pattern = "(\*+)|(\.)|(\&)|(\^)(\%)|(\$)|(\#)|(\@)|(\!)|(\d+)" For i = 1 To UBound(a) a(i, 1) = Trim(.Replace(a(i, 1), "")) Next End With [b2].Resize(UBound(a)) = a End Sub

دالة NZ وهي اختصاراً لكلمتي : NULL Zero ومهمتها أن يتم التخلص من مشكلة وجود القيمة Null في بعض العمليات مما يعطي خطأ .. Nz(DSum("Qty";"tabl2";"barcode=" & [barcode]);0) السلام عليكم انظر للمرفق اخي الكريم اتمنى ان يكون المطلوب Qty in table - Qty on form.rar

وعليكم السلام-موضوعك ليس بالسهل او الهين لأ تستعجل عليه فهو من الموضوعات الصعبة وانت لا تعرف مدى انشغال الأساتذة فدائما وابدا التمس العذر لهم

تفضل لك ما طلبت-بمجرد الضغط على ايقونة طباعة سيتم عمل نسخة من هذه الصفحة عل ملف Pdf اسمه Fawzy على نفس مسار ملف الإكسيل ويمكنك عمل الطباعة منه وستجده كما تريد ان شاء الله وقمت بعمل تجربة لك وهذا هو ملف Pdf المستخرج للطباعة ت . ص1.xls Fawzy.pdf

اتفضل الملف ت . ص.xls

اخي الكريم اهلا وسهلا جرب المرفق او انسخ الماكرو وضعه في ملفك لعله ما تريد Sub imrimer_tous() Dim sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If sh.Name <> "رئيسة" Then GoTo 1 sh.Range("a1:h15").PrintOut 1: Next sh Application.ScreenUpdating = True End Sub طباعة جميع الشواهد.xlsm

والآن الى الكنز المخزون في صفحة كود الاكسس ، والذي يحتوي على جميع اوامر الاكسس ، و VBA ، و..... افتح صفحة الكود: . إما تضغط على الايقونه الموضحة بالدائرة الحمراء في الصورة اعلاه ، او تضغط على الزر F2 في لوحة المقاتيح ، وستظهر لك هذه الشاشة: . في الشاشة التاليه: 1. اختر اي الاوامر تريد ، VBA او اكسس او ... ، فسترى انواع الاوامر المتوفرة لها في النافذة 2 ، انا اخترت VBA ، 2. ثم اختار نوع الامر الذي تريده ، انا مثلا اردت جميع اوامر التاريخ والوقت ، فسترى جميع اوامر التاريخ والوقت في النافذة 3 ، 3. اختار الامر الذي تريده وانقر عليه ، انا مثلا اخترت الامر DateAdd ، فسترى في الاسفل (4) طريقة كتابة الامر : . وتستطيع كتابة اي امر تريد في خانة البحث (Recordset مثلا) ، وستحصل على جميع الاوامر التابعة له وإخواننا الصعايدة على راسنا جعفر

اهلا بك ابو عبدالله عايزك تفهم ان موضوعك موضوع مفتوح نوعا ما ! او للاجابة يحتاج وقت وشرح ولابد من التطرق للاساسيات علشان نكمل ! وبرضه يا اشرح شي بشكل علمي لانه سيكون مرجع لكل من يمر هنا ! لذلك مثل هذه الاشياء خذها من مصادرها الصحيحة والموثوقة افضل مثل : كتب - موقع ميكروسوفت ! انصحك ان تاخذ كتاب في الاساسيات وبتسلسل المواضيع بدون القفز من فصل لاخر ! الشي الذي ممكن اضيفه هنا هو : عايزك تتخيل ان هذا البريمج (الاكسس) به قاعدة بيانات مصغرة - اداة تصميم وتطوير - بيئة لكتابة اكواد ! كلها هذا ونحن نعرف ان كل منها موجود كمنتج مستقل من شركات اخرى ! بينما هذه كلها موجودة في ملف واحد ! وملف ايه ؟ ملف بيانات ! بل كل وحدة عبارة عن كائن داخل هذا الملف ! بمعنى انتي الوحدة النمطية اللي نكتب فيك الاكواد ماخذه شكل مصغر من عمل ادوات التطوير المستقلة مثل الترجمة وتتبع الاخطاء وغيرها وتحويل الكود الى لغة الكمبيوتر ! وهية مع هذا كله مازالت كائن في ملف الاكسس ! فمش عارف هل ننظر للموضوع استخفاف بعقولنا ام انه ابداع في هذا المنتج ؟!!!!! وهنا انا حجيبك على استفساراتك ولكن اتمنى ان لاتكون حلقة مفتوحة باستفسار عن جواب لاستفسار سابق وهكذا ! وصدقني ابداية مع كتاب وبتسلسل منطقي افضل بكثير من المواضيع التي تكتب بالانترنت وذلك لاسباب عدة منها انت لاتعرف مستوى كاتب الموضوع او صحة مايكتب عكس الموجود بالكتب والمعتمدة ! ** كلمة private تحدد مدى حياة المتغيرscope ! فبها يكون حي فقط في المكان الذي ولد به اي عرف به ! فمثلا ولد في وحدة نمطية عامة فانه يعرف وحي في تلك الوحدة فقط ! ولدة في وحدة فئة نموذج فانه حي ويعرف هنا فقط ! بمعنى لو ناديته منكا اخر ستجده ميت ولا يستجيب ! عكس public ** byval و byref تستخدم لتحديد نوع او اسلوب تمرير المتغيرات للاجراءت والدوال ! بالعربي : بالقيمة او المرجع ! فاذا مررت قيمة متغير من نوع قيمة فانه للرغبة او عدم الاستطاعة في تغيير قيمة المتغير الاساسية عكس بالمرجع التي يمكن تغيير قيمة المتغير من خلال الاجراء او الدالة ! كما ان الموضوع يطول حول مسالة تعريف المتغيرات نفسها بانها من نوع قيمة ام مرجع ! فهل ممكن امرر قيمة متغير معرف انه مرجع لدالة تستقبل بالقيمة ؟ !! ** رابط لل api : https://msdn.microsoft.com/en-us/library/windows/desktop/ff818516(v=vs.85).aspx http://allapi.mentalis.org/apilist/apilist.php طبعا تاكد من توافق الدالة مع اصدار الويندوز! هذا متمنيا ان حصل لو جزء من ما تريد ! كما انبه على ان الشرح لا بد ان ياتي من استاذ فهو علم بحد ذاته فليس المقصود بالاستاذ بقدر مايملك من معلومة ولكن بقدر رضا تلاميذه في ايصال المعلومة ! تحياتي

هو فيه اختلاف ولكن يتطلب الخلفية في فهم برمجة الكائنات oop اختصار object oriented programming علشان نتكلم علميا ويمكن اكون مقصر لعدم التخصصية البحتة خاصة وان هذا الموضوع شبح طلاب الحاسب الالي ! ولكن برضه بالبلدي: الوحدة النمطية العامة هي مكان لدوال والمتغيرات العامة لكل البرنامج ! ماتضعه هنا يكون معروف على مستوى البرنامج ! ممكن متغير ياخذ قيمته من اي نموذج ! او طبعا عرفنا انها مكان لمناداة ال api ! وفي نفس الوقت هي المكان التي ابرمج بلغة ال access basic ! اما وحدة الفئة : هي مكان انشئ من خلاله الكائنات ! نحن نعرف ان لكل كائن خصائص وطرق او اوامر ! هنا نستطيع ان اعرف كائنات جديدة لها خصائصها وطرقها ! لاحظ انه لكل نموذج وتقرير عند انشائه له وحدة فئة خاصة وهي صفحة كود الاحداث ! وهذه تكون وارثة جميع الخصائص والطرق من النموذج او التقرير ! هذا والحديث يطول ويحتاج وقت او تسلسل في المواضيع علشان ينفهم ! ولكن اتمنى ان افدتك ولو بالمفاتيح ! تحياتي

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

تفضل أخى ملف لترجمة الأسماء Trans Prog.rar

أخى الكريم جرب الملف المرفق لعله المطلوب وتقبل منى وافر الاحترام والتقدير 12-07-2014iii.rar