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

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

احذز من تلف القاعدة ... اعمل ضغط واصلاح للقاعدة ... لان القاعدة لديك مترهله

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

تفضل تلوين خلايا نطاق.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

طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب 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 باختصار لو تفضلت

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

هنا تجد مثال

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

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

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

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

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

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