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

و عليكم السلام اخي المسافر 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

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

و جزاك بمثله و جميع مسلمين

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

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

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

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

طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table ونختار أي نمط من أنماط الجدول ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة =INDIRECT("Table1[Names]")

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

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

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

تم معالجة الأمر Option Explicit Dim N As Worksheet, D As Worksheet Dim F As Worksheet Dim i%, X%, m%, t%, p%, Ar_name() Dim My_Rg As Range, Find_rg As Range '+++++++++++++++++++++++++++++++++++++++++++ Sub get_names() Dim Dic As Object, Ky, arr Set N = Sheets("names") Set D = Sheets("Final_Sheets") D.Range("C3").CurrentRegion.Clear Set Dic = CreateObject("Scripting.Dictionary") m = 3 For i = 2 To 12 Step 2 X = 2 Do Until N.Cells(X, i) = vbNullString If Not Dic.Exists(N.Cells(X, i).Value) Then Dic(N.Cells(X, i).Value) = N.Cells(X, i).Address(0, 0) Else Dic(N.Cells(X, i).Value) = _ Dic(N.Cells(X, i).Value) & "*" & N.Cells(X, i).Address(0, 0) End If X = X + 1 Loop Next i For Each Ky In Dic.keys D.Range("D" & m) = Ky arr = Split(Dic(Ky), "*") D.Range("F" & m).Resize(, UBound(arr) + 1) = arr D.Range("C" & m) = UBound(arr) + 1 m = m + 1 Next get_column With D.Range("C3").CurrentRegion.SpecialCells(2) .Borders.LineStyle = 1 .Font.Size = 16: .Font.Bold = True .InsertIndent 1 .Interior.ColorIndex = 35 End With Set Dic = Nothing End Sub '+++++++++++++++++++++++++++++++++++++++++++++++ Sub get_column() Set N = Sheets("names") Set F = Sheets("Final_Sheets") X = 3: t = 1 Do Until F.Cells(X, 4) = vbNullString For i = 2 To 12 Step 2 Set My_Rg = N.Cells(1, i).Resize(1000) Set Find_rg = My_Rg.Find(F.Cells(X, 4), lookat:=1) If Not Find_rg Is Nothing Then p = Application.CountIf(My_Rg, F.Cells(X, 4)) ReDim Preserve Ar_name(1 To t) Ar_name(t) = N.Cells(1, i) & ":" & p & " " t = t + 1 End If Next i If t > 1 Then F.Cells(X, 5) = Join(Ar_name, ";") End If Erase Ar_name: t = 1 X = X + 1 Loop End Sub الملف مرفق صفحة Final Sheets Com_1975_New.xlsm

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

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

هنا تجد مثال

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

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

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

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

حمل الملف Results-300

تفضل التعديل استاذي العزيز ارجو التاكد من صحة عمل البرنامج قبل استخدامه بصورة نهائية وان شاء الله لايوجد خطا ملاحظة : علامة % اجعلها على يمين الرقم جرب الحالتين على رقم اكبر من 50 وانظر الفرق لانه في عملية الحسابات يقراها صفر اذا كانت على اليسار Results-300.rar

وعليكم السلام اخى @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 و الخاصة باسم الدخول و الاسم الحقيقي أو الكنية

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

السلام عليكم اخى الكريم جرب هذا الحل 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; ويكون ذلك باستعمال النقطة بين اسم الجدول واسم الحقل والاستعلام المذكور يعرض اسم المورد ورقم أمر الشراء في حالة تساوي رقم المورد في الجدولين