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

و عليكم السلام اخي المسافر 2006 لعمل ذلك ضع الكود التالي في حدث عند النقر لزر التفاصيل DoCmd.OpenForm "NamesRecord", , , "[السجل المدني]=" & Me.السجل_المدني If Forms!NamesRecord!الرتبة <> "جندي" And Forms!NamesRecord!الرتبة <> "جندي اول" And _ Forms!NamesRecord!الرتبة <> "عريف" And Forms!NamesRecord!الرتبة <> "وكيل رقيب" And _ Forms!NamesRecord!الرتبة <> "رقيب" And Forms!NamesRecord!الرتبة <> "رقيب اول" And _ Forms!NamesRecord!الرتبة <> "رئيس رقباء" Then Forms!NamesRecord![رقم الملف].Visible = flase Forms!NamesRecord![السجل المدني].Visible = flase Forms!NamesRecord![الإختصاص].Visible = flase Forms!NamesRecord![تاريخ الميلاد].Visible = flase Forms!NamesRecord![تاريخ التعيين].Visible = flase Forms!NamesRecord![تاريخ اخر ترقية].Visible = flase Forms!NamesRecord![تاريخ استحقاق الترقية].Visible = flase Forms!NamesRecord![المؤهل الدراسي].Visible = flase Forms!NamesRecord![السرية].Visible = flase Forms!NamesRecord![الفصيل].Visible = flase Forms!NamesRecord![العنوان].Visible = flase Forms!NamesRecord![اسم شخص قريب].Visible = flase Forms!NamesRecord![جوال القريب].Visible = flase End If تفضل المرفق مع ملاحظة اني غيرت اسم النموذج المراد فتحه الى NamesRecord و انصحك بالتسمية باللغة الانجليزية و بدون ترك مسافات بين الاسماء لتفادي المشاكل البرمجية اضافة الى ان هذا يسهل عليك فهم الاكواد و التعبيرات في الاكسس ( حتى و لو كانت التسمية بالترجمة الحرفيه ) بالتوفيق ss.rar

تفضل Private Sub UserForm_Initialize() ThisWorkbook.Sheets("sheet1").Visible = True ThisWorkbook.Sheets("sheet1").Select Me.ListBox1.ColumnCount = 5 lrw = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row For i = 3 To lrw If Cells(i, 1) <> "" Then With ListBox1 .AddItem (Cells(i, 1)) .Column(1, .ListCount - 1) = Cells(i, 2) .Column(2, .ListCount - 1) = Cells(i, 3) .Column(3, .ListCount - 1) = Cells(i, 4) .Column(4, .ListCount - 1) = Cells(i, 5) End With End If Next End Sub المصنف1.xlsm

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

تم تحويل ملف الاستاذ الفاضل رائد الى ملف تنفيذي بدون تسطيب المصنف1.rar

Nz(sum([???],0) علامات استفهام يمثل اسم الحقل مراد جمعه

اذا كان موضوع مخالف القانون : مش مهيم تغير اسم

ليس مخالف بل نحن نطالب بهذا من الجميع وفي آخر توقيعي رابط الطريقه للتغيير بالتوفيق

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

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

ربما هذا الشيء هو المطلوب وضعت لك كود لزر اضافة يرجى اكمال كودات بقية الأزرار Ahmad User.xlsm

رابط استعراض البرنامج واستخدامه مع التحميل في الوصف https://youtu.be/rfbtBiWwOAY

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

تفضل تم تعديل الكود ليعمل بشكل أسرع بكثير من قبل Financial.xlsb

جرب هذه النسخة واعتقد ان سبب الخطا هو ان بعض حقول المواد لا تحتوي بيانات وان شاء الله هذه النسخة تحل الامر Results-500.rar

أرفق ملفك ليتم تصحيح الخطأ

تفضل تلوين خلايا نطاق.xlsx

الله يجزاك كل خير هذا يكفيني لان الجواز نادر ما يكون يكاد لا يذكر سلمت ايدك

ممكن مثال مبسط لما تريد ليتم التطبيق عليه

تفضل أخي الكود يعمل بسرعة جيدة في حالة وجود بيانات أكثر . يعمل جيدا Private Sub CommandButton3_Click() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False If MsgBox("سيتم الحذف هل أنت متأكد؟", vbQuestion + vbYesNo) = vbYes Then Sheets("الأصناف").Cells(r, 1).EntireRow.delete MsgBox "تمت عملية الحذف بنجاح" For Y = 1 To 7 Controls("textbox" & Y).Value = "" On Error Resume Next Next Y ListBox1.Clear UserForm_Activate Else Exit Sub End If Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub حذف صنف.xlsm

وعليكم السلام اخى @صايل عزام ممكن ارفاق مثال لما لديك

على حسب فهمي جرب هذا بشرط الترحيل من الخلية A2 إلى الخلية F2 حتى لا يتم الترحيل إذا كانت إحدى الخلايا فارغة وتظهر رسالة بينات ناقصة New Microsoft Excel Worksheet2.xlsm

اخي بارك الله فيك وجزاك الله خيرا

أخي اليك التعديل في المرفق المستخدمين.accdb

الله يبارك فيك استاذ عبد اللطيف سلوم ربي يحفظك يارب فين البرنامج مع وافر التحايا

و اذا تقصد اسم الدخول user name راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي أسماء الدخول ، و الأسماء الحقيقة للأعضاء

بعد اذن الاساتذة اليك المطلوب ترحيل.xlsm

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

ماشاء الله عليك استاذ سليم حفظك الله

وظيفة Nz. يمكنك استخدام الدالة Nz لإرجاع صفر أو سلسلة ذات طول صفري ("") عندما يكون المتغير فارغًا Nill

يعطيك العافية ابو احمد واسال الله ان يفرج عنك كربات الدنيا والاخرة

الاستاذ @ابو تراب شكرا جزيلا وهو المطلوب هل بالامكان شرح دالة nz باختصار لو تفضلت

=Nz(DSum("[mx1]";"[Qleader]";"[hx1]='y'"),0)

هنا تجد مثال

كلام صحيح ....

جزاكم الله كل خير اخي الكريم وبارك الله فيك وحفظ تسلم ايدك يا محترم بجد كلمة شكرا قليلة في حقك

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

تفضل اخي العزيز التعديل واعتذر عن هذا الخطا Results-500.rar

اسف جدا استاذ لم انتبه على الرد الا اثناء صلاة الفجر دعوت لك بالصحة والعافية والمغفرة ولوالديك بالرحمة استاذي الفاضل بالنسبة لحقل المجموع والمعدل في نتيجة البنات لايظهر وكذلك عدد الناجحون لايظهر واتصور السبب هو تانيث النتيجة اي ناجحة الطلب المهم جدا رحم الله والديك هو ان تظهر الدرجات الحاصلة على قرار في التقرير لونها اصفر وبقية الحقول بدون الوان نهائيا هذا اهم شيء عندي بالنسبة لتانيث النتيجة هل يمكننا ان نضع مربع نص جديد للنتيجة يعتمد على مربع النص الاصلي للنتيجة ونضع فيه هذا الكود IIf([الجنس]="ذكر";[النتيجة];[النتيجة] & "ة") طبعا بعدها نجعل حقل النتيجة الاصلي غير مرئي

حمل الملف Results-300

وعليكم السلام اخى @tiger wanted هل هذا ما تريد ؟ Database11.accdb

بالنسبة للبحث تم عمل باليوزر فورم تيكست بوكس يتم كتابه والبحث كما موضح بالصوره اعلاه وليست بوكس يظهر به النتائج بالاضافة انه يمكن الضغط على اى من نتائج البحث يتم التعبئة التلقائية بالتيكست بوكسات الخاصة بهم لامكانية الحذف والتعديل فى نفس الوقت اظن هذا طلبك مع ملاحظة الكتابة داخل تيكست بوكس باللغة العربية userform4 (2).xlsm

تفضل المفروض هذا طلبك Book1 (2).xlsm

بالمعادلات لا تستطيع ضبط هذا الشيء فقط بواسطة كود Vba للمزيد هذا الملف 1-يمنع الكتابة في العامودين الاول والثاني ابتداء من ال صف 14 لعدم مسح لبيانات عن طريق الخطأ 2- كل ما عليك ان تملاُ ما تريد من بيانات في الأعمدة 3 /4 /5 (ابتداء من الصف 14 ونزولاً) وبعد ذلك تضغظ الزر Run عندها يقوم الاكسل بادراح التاريخ المناسب و يثبته 3-عدة مرات انصح لعدم استعمال الخلايا المدمحة لحسن سير المعادلات الجدول R5 : G2 STOCK_Salim.xlsm

السلام عليكم هذا البرنامج من اعداد فريق عمل مايكروسوفت اكسس فيه فوائد عديدة وخاصة الاكواد المستعملة اتمنى لكم الفائدة ملاحظة -- هذا البرنامج موجود مع اكسس 2016 الطلاب مايكروسوفت.accdb

تم إضافة البنود 35-38 و الخاصة باسم الدخول و الاسم الحقيقي أو الكنية

السلام عليكم 🙂 تم مراجعة قوانين المنتدى الى هذه : جعفر

جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل SQL صغير الحجم كبيرة المفعول ، وأشارككم بها ، من باب العصف الذهني ، علّ فائدة بسيطة تتحقق منها لأحد إخوتنا وننال دعوة طيبة بظهر الغيب. وإخترت ثلاثة منها ينطبق عليها الوصف ، صغيرة الحجم كبيرة المفعول أولها : DoCmd.RunSQL "SELECT *INTO Customers_copy FROM Customers;" وتقوم بنسخ الجدول Customers بكامل محتوياته و تسميه الجدول الجديد Customers_copy ، باستخدام INTO ثانيها : DoCmd.RunSQL "SELECT CustomerID, CompanyName, ContactName INTO Table2 FROM Customers;" وتقوم بنسخ أعمدة محددة بالإسم من الجدول Customers بكامل محتوياتها وإنشاء جدول جديد و تسميه Table2 ، باستخدام INTO وثالثها: Me.Combo2.RowSource = "SELECT DISTINCT City FROM Customers;" وتقوم باسناد مصدر صفوف لمربع التحرير و السرد من الجدول Customers ومن العامود City ( ومن غير تكرار) والمحلل لتركيبة الجملة يرى مدى بساطتها وبالمقابل أداء كبير .... وهذه الروتينات أستخدمها لإنشاء الجداول المؤقتة لغايات إستخراج النتائج الإحصائية أو تجميع معلومات من مجموعة جداول في جدول واحد . آملاً من الله عزّ وجلّ أن يستفيد منها الإخوة والله من وراء القصد ....... NA_SQL01.rar

السلام عليكم اخى الكريم جرب هذا الحل Book1.rar

لإستخدام Sum ، ولتجميع قيم أجور الشحن كإجمالي لصفقات الموظف ، ولكل موظف على حدى ، وكمصدر لسجلات نموذج Me.Form.RecordSource = "SELECT EmployeeID, Sum(Orders.Freight) AS Freight FROM Orders GROUP BY EmployeeID;" وتكون النتيجة

يمكن تعدد حقول وجداول جملة select بمعنى أنه يمكننا الاستعلام من أكثر من جدول مثال على ذلك SELECT orders.order_id, suppliers.name FROM suppliers, orders WHERE suppliers.supplier_id = orders.supplier_id; ويكون ذلك باستعمال النقطة بين اسم الجدول واسم الحقل والاستعلام المذكور يعرض اسم المورد ورقم أمر الشراء في حالة تساوي رقم المورد في الجدولين