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

تفضل هذه الفكرة Microsoft Access3.zip

وعليكم السلام 🙂 السطر المسؤول عن النقل (او اعادة التسمية مع النقل) هو Name OFN.lpstrFile As Me.Image_Path . وللنسخ استعمل : FileCopy OFN.lpstrFile , Me.Image_Path جعفر

Replace "Sales Bill" in th code with the Arabic characters Sub Test() Dim x, ws As Worksheet, sh As Worksheet, r As Long, lr As Long Set ws = Sheet5: Set sh = Sheet8 For r = 5 To ws.Cells(Rows.Count, "G").End(xlUp).Row If ws.Cells(r, 7).Value = "Sales Bill" Then ws.Cells(r, 11).Value = "Sales Bill" Else x = Application.Match(ws.Cells(r, 8).Value, sh.Columns(3), 0) If Not IsError(x) Then ws.Cells(r, 11).Value = sh.Cells(x, 4).Value End If End If Next r End Sub

السلام عليكم 🙂 كنت اتصفح الانترنت واقرأ عن مستقبل الاكسس ، فوجدت احد محترفي الاكسس عنده صفحة جديدة في اليوتيوب ، وبها رأيت انه هناك محترف آخر عمل ربط بين بيانات الاكسس المحلية ، وكود/شفرة جافا على الانترنت ، وهذه الشفرة متخصصه في عمل رسومات بيانية في صفحات الانترنت ، وهنا تفاصيل الشفرة https://www.chartjs.org/docs/latest/samples/information.html قمت بإنزال الملف واسمه Better-Access_Charts.accdb من موقع https://github.com/team-moeller/better-access-charts وهذه احد الرسومات البيانية اللي فيه: . ونتحكم بنوع الرسومات وتفاصيل المحاور وووو ، من النموذج التالي ، ثم ننقر على الزر الذي عليه السهم الاحمر ، ليعمل تغيير في نموذج الرسومات البيانية . (وهناك ملف آخر هنا https://github.com/team-moeller/better-access-pivottable جميل ان يتم الاطلاع عليه ايضا). تواصلت مع اخي الاستاذ @أبو إبراهيم الغامدي لكي ينظر في الملف وطريقة عمله ، فما شاء الله عليه امدّني بملف اسمه Web Charts.zip وهو برنامج مختصر ومبسّط للملف الآخر ، وهذه احدى صور رسومات البيانات منه: . واتمنى على اخي أبو إبراهيم ان يجعل برنامجه يقبل تغيير انواع الرسومات البيانية كما في البرنامج الآخر 🙂 ميزات الموضوع: فتح باب جديد لطريقة عمل/عرض الاكسس وربطه مع ميزات حديثة من الانترنت . عيوب الموضوع: يجب ان تعرف مكان وجود هذه الشفرات في الانترنت ، وتعرف كيفية استعمالها ، وتتعلم كيف تربطها بالاكسس ، لا تتوقع الحصول على مساعدة من منتدى الاكسس لحل مشكلتك ، فنحن لا نفهم لغة الجافا او HTML . جعفر Better-Access_Charts.accdb.zip Web Charts.zip

اذا طريقة اخي احمد لم تعطك النتيجة الصحيحة ، جرب هذا الكود: iif(len([tmmg1] & "")=0,0,[tmmg1]) + iif(len([tmmg] & "")=0,0,[tmmg]) جعفر

لاحظ المثال البسيط هذا لتفهم ما قلته ... BA_585.mdb

تفضل اخي الكريم استخدم دالة nz او اجعل قيمة افتراضية للحقل =0 المجموع: Nz([num1];0)+Nz([num2];0) New Microsoft Access قاعدة بيانات.accdb

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

وعليكم السلام 🙂 استعمل الامر Nz ، لتحويل الفراغ الى صفر ، ويتم الجمع هكذا: في المثال ، ABC هو اسم الحقل المطلوب جمعه : = Sum(Nz([ABC],0)) جعفر

وعليكم السلام اذا كنت تقصد اظهار نص مخفي بعد تمرير الماوس على نص اخر ..استعمل الكود Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text2.Visible = True End Sub

تفضل جرب اضافة اسم جديد ولاحظ .... واعلمنا بالنتيجة ..... قاعدة بيانات HR.accdb

Sub Rename_Worksheets() Dim i As Long For i = 1 To Sheets.Count If Worksheets(i).Name <> "Sheet2" And Worksheets(i).Name <> "Sheet4" Then If Worksheets(i).Range("N14").Value <> "" Then Sheets(i).Name = Worksheets(i).Range("n14").Value End If End If Next i End Sub

استاذي @Barna انا فهمت هذا الجزء حقل name & family حقل name3 حقل date_tesrih الاخ صاحب الموضوع يريد ادخالها للسجل ... والموضوع ممكن لكن لماذا يريد ادخالها طالما هي موجودة في النموذج ؟ اما عن البقية ... فانا ايضا لم افهمها ولماذا تريدها في السجل طالما انها تظهر لك في الفورم ؟

فكرة احترافية رائعة متكاملة ولا اجمل كبرنامج يومي او اسبوعي ولكن ان اراده برنامج مالي دائم فيلزم الاستغناء عن التحديث وابقاء الاموال الواردة كما هي

الحل في عدم جعل الترقيم التلقائي رقم فريد للموظف .... وانما اجعل رقم الموظف هو رقم مثلا هويته او جوازه او الرقم القومي او ترقيم خاص ببرنامجك وليس تلقائي ...

الواضح انه مجموع المبالغ المتبقية لأنه التكنيك الي وضعته انه في حال اضافة رصيد جديد يتم جمع الرصيد السابق مع الرصيد الجديد في حدث بعد التحديث

استاذي العزيز @د.كاف يار الحقل motabak جعلته حضرتك مجموع المبالغ المنصرفة وليس المتبقية اعتقد هناك حاجة لعمل حقل اخر للمبلغ المتبقي = hass - motabak

السلام عليكم أخوتي وعلى الأخص الأساتذة @مستفيد69 @ابو البشر جربوا الملف المرفق FinalcolorisingARBFinalPluse.accdb

حسبتها من عقلي بانك تطلب تقرير مالى حسب كود الوظيفة انظر الان حساب عروض وبروفات الفرق المعدل.rar

اهلا اخي الكريم .. لو وضعت لك اسما تحب ان تنادى به لكان افضل ثم انت جالس تنادي وتصوت الحقني يا فلان الحقني يا علان ,,, وهذا مخالف لقواعد المشاركة .. وتعرض موضوعك للاغلاق . على كل حال : سوف اشرح طريقة لتنفيذ العمل للمشرف العام على المشروع وليس للموظف حيث ان المشرف على هذه المنشأة يرغب في برنامج يضبط له الاموال الداخلة والخارجة بكل دقة . هذا المشروع مالي اي استلام اموال وتوزيعها لهذا يجب ان نجعل في اولويات المشروع ما يلي : 1- ضبط الاموال اليومية الواردة ( نريد تقرير عنها اسبوعي او شهري ) 2- ضبط الاموال الموزعة بكل دقة ( على مستوى الموظف والدائرة وعلى مستوى الادارة ككل ونريد تقرير اسبوعي و شهري و نصف سنوي) 3- ضبط المتبقيات من التوزيع اليومي حسب كل ادارة 4- عمل آلية منضبطة ميسرة لعملية التوزيع 5- عمل آلية لتدوير المتبقيات حسب كل دائرة 6 - تقارير نهائية شهرية تكشف النتائج ( فائض / عجز ) آمل ان يكون هذا التحليل المختصر متوافق مع رغبتك

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

انشئ نموذج واجعل نموذج ورقة البيانات (fxt1) داخل ذلك النموذج على شكل نموذج فرعي ثم اصنع الازرة التي تريدها .....

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

كيف تقول ذلك ؟!!! وما هذا اذن !!!!!!!!!!

تفضل ... كما يمكنك الإستعانة بهذا الرابط How To Create A Searchable Drop Down List In Excel? قائمة منسدلة1.xlsx

السلام عليكم 🙂 وما في كائنات مخفية 🙂 والنتيجة النهائية ، لاحظوا الحقل الاخير على اليمين Change_Delete_Insert ، فهو يخبرنا اذا قمنا بعملة تعديل او حذف او اضافة : . جعفر Access Tables Magic.accdb.zip

السلام عليكم 🙂 مايكروسوفت عملت اضافة لجداول الاكسس 2010 (وتم ابقاء هذه الميزة للنسخ التالية) ، عملت الاحداث التالية لكل حقل (حقول النص والتاريخ والرقم (ويشمل الرقم التلقائي و العملة) فقط) وهذه الاحداث (هناك تسمى Trigger) كانت ميزة في جداول SQL Server : للسجلات : حدث بعد ادخال السجل ، حدث بعد حذف السجل ، حدث قبل حذف السجل ، للحقول : حدث بعد تحديث الحقل ، حدث قبل تحديث الحقل ويمكن عمل هذه الاحداث والجدول في وضع التصميم: . او الجدول في وضع . لغة كتابة الاحداث ليست VBA وانما الماكرو المضمن ، والذي يمكنه ان ينادي دالة في وحدة نمطية هكذا (هنا ننادي الدالة fMsgbox) : . هناك طريقتين لكتابة الماكرو المضمن ، ونتيجة الكتابة النهائية هي كما نراها في الصورة التالية : - الطريقة اليدوية (وعيبها انها بطيئة ، وخصوصا اذا عندك حقول كثيرة في الجدول ، وعندك جداول كثيرة ، وعندك برامج كثيرة) 1. اذا لم يستطع الماكرو المضمن تنفيذ احد الاوامر ، فإنه يعمل جدول للاخطاء التي صادفها ، اسمه USysApplicationLog ، وتراه هنا: . او ولأنه جدول نظام ، فيكون مخفي ، الى ان تطلب من الاكسس ان يُظهر جميع جداول النظام ، فترى الجدول . لذا ومن واقع تجربة ، انصح بكتابة هذا السطر الاول (لتلافي اي اخطاء ، مما يؤدي لتوقف عمل الماكرو) ، 2. نكتب السطر كما هو ، بعد تغيير اسم الحقل الفريد/المميز في بياناته والمفرس بلا تكرار (انصح بأن يكون عندك حقل فريد ومميز في بياناته ، وانا دائما استعمل في برامجي حقل الترقيم التلقائي ، والذي نستفيد منه هنا استفادة قصوى ، فهو الدليل على محتويات السجل) ، 3. نظيف سجل جديد في الجدول الأخر ، 4. نبدأ بتعبئة الحقول بالامر SetField ، ثم اسم الحقل ، ثم قيمة الحقل ، ونستمر لعدد الحقول التي نريد اضافة بياناتها للجدول الآخر ، . - طريقة برمجية عن طريق عمل ملف XML نضع فيه الاوامر اعلاه ، ثم نستورده لقاعدة البيانات ، والملف عبارة عن ملف نصي ولكن بصيغة XML ، يجمع فيه جميع الاحداث (مرفق نسخة من الملف لقاعدة البيانات التي تم ارفاقها في مشاركتي الاولى) واليكم الجزء للحدث الذي في الصورة الاعلى . وثم نستخدم الكود التالي لإستيراد هذا الملف: من نفس برنامج الاكسس application.LoadFromText acTableDataMacro, "Table_Name", "D:\xml_File.xml" من برنامج اكسس خارجي 'Insert/Load this DataMacro in the Table Events Dim accApp As Object Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase Me.str_DB_Name 'D:\temp\myDB.accdb accApp.LoadFromText acTableDataMacro, Me.lst_Tables, xml_File accApp.CloseCurrentDatabase accApp.Quit Set accApp = Nothing . والطريقة التي عرفت بها الكود اعلاه ، هي: اعمل كود في احد هذه الاحداث او في جميعها ، وليكن بضعة اسطر حتى لا نضيع في الاكواد ، واحفظ الجدول ، ثم استخدم هذا الكود لتصدير DataMacro الذي عملناه لهذا الجدول ، هكذا : application.SaveAsText acTableDataMacro, "Table_Name", "D:\xml_File.xml" . نصائح: اختار الحقول المهمة ، ولا تستعمل جميع الحقول ، الجدول tbl_x_AuditTrail سيزداد حجمه بسرعة ، ولكن كثرة الجداول وكثرة عدد المستخدمين لا يُبطئ العمل ، في الجدول tbl_x_AuditTrail هناك حقل ChangeBy وهو اسم المستخدم عند دخوله الكمبيوتر ، وحقل ChangedOn وهو اسم الكمبيوتر الذي تم التعديل منه ، هاتان الدالتان تكونان في برنامج الواجهة ، طبعا يمكن استبدالها باسم المستخد حسب الصلاحيات ، وIP الكمبيوتر اذا كان لإسم الكمبيوتر اهمية ، الجدول tbl_x_AuditTrail لا تسمح لأحد ان يراه ، لأنه يمكن حذف وتغيير بياناه ، فيصبح عديم الفائدة ، وبما ان برنامجنا كان ذو بيانات حساسة ، فكنا نراقب من يتصفح البيانات كذلك ، بمناداة دالة عند حدث "الحالي" للنموذج ، ونستعمل "Browse" في حقل عن Change_Delete_Insert . جعفر tbl_info_DataMacro.xml.zip

المرفق يعمل زي اللوز ...... وا اسفي على @مستفيد69 بقية وحيدا وفريدا ... هههه اشكرك استاذي الفاضل @Hamdi Edlbi-khalf على جهدك وتعبك .... كتب الله اجرك ..