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

السلام عليكم و رحمة الله وبركاته ضع الدالة =SUM(N4;C5;K5)-SUM(G5;L5) ثم اسحبها للاسفل مع التحية

تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

تفضل هذا المثال و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل شكل الملف من الداخل المعلومات مشفرة بإستخدام التشفير لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول Database2.mdb

تفضل استخدم هذا الكود مع اضافة - موقع قاعدة البيانات - كلمة المرور - اسم الجدول Dim db As DAO.Database Dim rs As DAO.Recordset Dim strDbFile, strPassword, PDb As String '================ معلومات قاعدة البيانات البعيدة ======================== strDbFile = CurrentProject.Path & "\MyData1.mdb" strPassword = "123" '============================================================= Set db = DBEngine.OpenDatabase(Name:=strDbFile, Options:=False, ReadOnly:=False, Connect:=";PWD=" & strPassword) Set rs = db.OpenRecordset("table_name") rs.AddNew rs.Fields(0).Value = [TextBox1] rs.Fields("column_name").Value = [TextBox2] rs.Update rs.Close Set rs = Nothing تفضل التعديل يمكن استخدام نفس الطريقة في حال تحديث البيانات و لكن هنالك فكرة !!!!!!!! ان تقوم بإنشاء جدول ممثال في حال التحديث تذهب البيانت المحدثه للجداول الجديد بدورك تشييك و تتأكد من صحة البيانات و اذا ما فيه اخطاء يصير ترحل التحديث لجميع الجداول الأساسية بذا تضمن ان البيانات في جميع الجداول مدخلة بشكل سليم New folder.zip

مرحباً اخي الكريم الموضوع قديم اخي الكريم الافضل طرح موضوع جديد عندما تواجهك مشكلة على كل حال تفضل قاعدة البيانات بتنسيق mdb القاعدة.rar تحياتي

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

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

السلام عليكم و رحمة الله وبركاته في الخلية M1 غير كلمة البيان الى نوع العملية حيث ان الجدول لا يوجد به كلمة البيان مع التحية

بعد اذن اخي عمر اتفضل التعديل حذف و اضافة و انشاء نسخة سيتم انشاء مجلد بجوار قاعدة البيانات لحفظ النسخة Microsoft Access قاعدة بيانات جديد.accdb

جزاك الله خير الجزاء استاذنا الفاضل أ / محمد صالح هذا هو المطلوب تماما

تفضل أخي الكريم يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها في هذا الكود تم استثناء sheet1 & sheet2 Dim ws As Worksheet, arr As Variant arr = Array("Sheet1", "Sheet2") For Each ws In Worksheets If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name Next ws بالتوفيق

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

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

للعلم فقط بما أنك حولت نوع الحقل إلى رقمي فلا داعي لدالة Int لا تستخدم أسماء عربية للجداول ولا للحقول ، وإذا كانت إنجليزيتك ضعيفة فاستخدم العربية بحروف انجليزية مثل السيارات تكتبها Sayyarat وللإحتراز ضع كل الأسماء العربية للجداول والحقول بين الأقواس المربعة [ ]

السلام عليكم, لكثرة سؤال الاخوان حول موضوع الصلاحيات, تفضلو قمت بعمل مثال صغير لكم. Permissions.accdb

بعد اذن اخي حماده عمر حسب فهمي للطلب حط الكود التالي في حدث الورقة Private Const Rw As Integer = 7 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then With Application .EnableEvents = 0 .ScreenUpdating = 0 .Calculation = xlCalculationManual Cells.EntireRow.Hidden = 0 Dim i i = Cells(Rows.Count, 3).End(xlUp).Offset(-3, 0).Row For R = i To Rw Step -1 If R - 6 = Target.Value Then Exit For Range("A" & R).EntireRow.EntireRow.Hidden = True Next .EnableEvents = 1 .ScreenUpdating = 1 .Calculation = xlCalculationAutomatic End With End If End Sub

بعد إذن أستاذى (أبو حنين ) حل أخر بالمعادلات الاسماء.rar

السلام عليكم جرب اخي المرفق الاسماء22.rar