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

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

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

في المرة المقبلة ارفع نموذجاً عما تريد لنفرض ان البيانات عندك في 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

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

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

أستاذ Mansoor727 أين الضغط على الإعجاب ؟ 💙

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

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

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

فكرة جميلة وتؤدي العرض ويمكن عملها بدون الحاجة الى حقل الوقت في الاستعلام DLast("[id]";"Time_Enter&Exit";"[users] = '" & [Forms]![login]![Username] & " ' ") تسجيل الدخول والخروج.accdb

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

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

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

استاد احمدبدره بارك الله فيك وفي علمك ورزقك تحياتي

وعليكم السلام ورحمة الله وبركاته لانك تريد استيراد جدول employee وهو موجود اساساً اذا كنت تريد استيراد البيانات فقط قم بعمل ربط لملف اكسيل ثم قم بعمل استعلام الحاق اما اذا كنت تريد حذف الجدول القديم واستيراد الجدول الجديد نفذ الامر التالي DoCmd.DeleteObject acTable, "employee" تحياتي

جرب على 2007 المكتبة 2019-2020 14-12-2019-جرب على 2007.accdb

استاذ @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

السلام عيكم بعد اذن الاستاذ sandanet ملفك بعد التعديل عليه من ملف الاستاذ sandane ان شاء الله يكون المطلوب q.rar

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

وعليكم السلام 🙂 الآن نظرت الى الموضوع بالكامل ، واضطررت ان اغير الامر ، لأن الامر السابق يصدر تسمية الحقول (باللغة العربية) ، بينما لما نستوردهم ، لما يعمل مقارنة اسماء الحقول بالتي موجودة في الجدول ، يرى انها مختلفة ، فتظهر رسالة تقول بأن الحقل الفلاني غير موجود في الجدول !! هذا الكود الجديد: Private Sub cmd_Delete_Records_Click() Dim strSQL As String strSQL = "DELETE [tbl_Teacher].* FROM [tbl_Teacher];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub Private Sub cmd_Export_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acExport, 8, "tbl_Teacher", ImportFileName, True End Sub Private Sub cmd_Import_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\tbl_Teacher" & ".xls" DoCmd.TransferSpreadsheet acImport, 8, "tbl_Teacher", ImportFileName, True End Sub جعفر 1153.db2.zip

مبروك استاذ خالد ..بالتوفيق 🤩🤩 جزاك الله خيراً استاذ جعفر علي متابعتك المستمرة 🌺🌺🤩🤩

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

السلام عليكم تم عمل المطلوب بالتقريب أرجو أن يفي الغرض المطلوب... تم تنفيذ أمر الطباعة في ملف PDF تجده مع ملف الإكسيل المعدل في المرفقات... بن علية حاجي خاص.pdf خاص.xlsm

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

مثالك الاخير هو الذي شرح لنا المطلوب 1. نعمل استعلاملنتائج الجدولين Customer و Denomination ، واستعلام آخر لنتائج الجدولين Customer و Deposit ، ولغرض الخطوة التالية (استعلام توحيد) ، فيجب ان تكون عدد الحقول نفسها في الاستعلامين ، وبنفس الترتيب: . ونتائجهم هي كما نريد: . ثم نحول وضع الاستعلامين الى SQL ، ثم نعمل استعلام توحيد ، وننسخ SQL الاستعلام الاول الى استعلام التوحيد ، ثم جملة Union All ثم ننسخ SQL الاستعلام الثاني: . ونتيجة الاستعلام: . الآن نعمل استعلام جديد ، ومصدره استعلام التوحيد اعلاه ، ويجب استعمال زر النموذج لتشغيل الاستعلام ، كما ان الاستعلام سيأخذ التاريخ من النموذج كذلك ، والاستعلام ينادي الوحدة النمطية Bal ، والتي سيأخذ نتائجه منها: . وكود زر فتح الاستعلام هو (لاحظ انه نريد ان نبدأ متغير الجمع B من الصفر) : Private Sub cmd_qry_Cust_Deno_Depo_Click() B = 0 DoCmd.OpenQuery "qry_Balance" End Sub . وهذه نتيجة الاستعلام: . وهذه هي الوحدة النمطية: Public B As Long Function Bal(C, D) 'C = Cash 'D = Depo C = Replace(C, "-", 0) D = Replace(D, "-", 0) B = C + B - D Bal = B End Function . الباقي الذي تريده ، يجب ان تعمله في التقرير جعفر 597.Test.accdb.zip

تفضل: 1. 2. وقم بإضافة بقية الحقول . جعفر هذا موضوع آخر !! يعني تستطيع عمل الاستعلام ، ولكن لا توجد سجلات فيه !! طبعا لن تحصل على سجلات ، لأنه لا يوجد رقم متحد بين الجداول الثلاث!! جرب التالي: في الجدول Deposit ، غيّر القيمة الاولى من 73 الى 68 ، ثم جرب الاستعلام ، فسترى سجلا واحدا . جعفر

شكرا أخي الاستاذ رمهان على هذا الشرح والان الى الجانب العملي لا تستطيع ان تنادي هذه الوحدات بالطرق التقليدية ، وكل لغة (مثل VB, VBA, C++, ...) لها طريقتها الخاصة في مناداة هذه الوحدات ، وبالنسبة الى اكسس ، فالرابط التالي يعطينا امثلة في كيفية استخدامها: http://access.mvps.org/access/index.html وملك الوحدات النمطية وبالذات للرسومات في الاكسس: http://lebans.com/ جعفر

اهلا بك ابو عبدالله عايزك تفهم ان موضوعك موضوع مفتوح نوعا ما ! او للاجابة يحتاج وقت وشرح ولابد من التطرق للاساسيات علشان نكمل ! وبرضه يا اشرح شي بشكل علمي لانه سيكون مرجع لكل من يمر هنا ! لذلك مثل هذه الاشياء خذها من مصادرها الصحيحة والموثوقة افضل مثل : كتب - موقع ميكروسوفت ! انصحك ان تاخذ كتاب في الاساسيات وبتسلسل المواضيع بدون القفز من فصل لاخر ! الشي الذي ممكن اضيفه هنا هو : عايزك تتخيل ان هذا البريمج (الاكسس) به قاعدة بيانات مصغرة - اداة تصميم وتطوير - بيئة لكتابة اكواد ! كلها هذا ونحن نعرف ان كل منها موجود كمنتج مستقل من شركات اخرى ! بينما هذه كلها موجودة في ملف واحد ! وملف ايه ؟ ملف بيانات ! بل كل وحدة عبارة عن كائن داخل هذا الملف ! بمعنى انتي الوحدة النمطية اللي نكتب فيك الاكواد ماخذه شكل مصغر من عمل ادوات التطوير المستقلة مثل الترجمة وتتبع الاخطاء وغيرها وتحويل الكود الى لغة الكمبيوتر ! وهية مع هذا كله مازالت كائن في ملف الاكسس ! فمش عارف هل ننظر للموضوع استخفاف بعقولنا ام انه ابداع في هذا المنتج ؟!!!!! وهنا انا حجيبك على استفساراتك ولكن اتمنى ان لاتكون حلقة مفتوحة باستفسار عن جواب لاستفسار سابق وهكذا ! وصدقني ابداية مع كتاب وبتسلسل منطقي افضل بكثير من المواضيع التي تكتب بالانترنت وذلك لاسباب عدة منها انت لاتعرف مستوى كاتب الموضوع او صحة مايكتب عكس الموجود بالكتب والمعتمدة ! ** كلمة 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 طبعا تاكد من توافق الدالة مع اصدار الويندوز! هذا متمنيا ان حصل لو جزء من ما تريد ! كما انبه على ان الشرح لا بد ان ياتي من استاذ فهو علم بحد ذاته فليس المقصود بالاستاذ بقدر مايملك من معلومة ولكن بقدر رضا تلاميذه في ايصال المعلومة ! تحياتي