اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. الرائد77

    الرائد77

    الخبراء


    • نقاط

      7

    • Posts

      238


  2. Abu Farid

    Abu Farid

    02 الأعضاء


    • نقاط

      4

    • Posts

      56


  3. يوسف أحمد

    يوسف أحمد

    المشرفين السابقين


    • نقاط

      4

    • Posts

      1,055


  4. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      4

    • Posts

      9,724


Popular Content

Showing content with the highest reputation on 18 يون, 2020 in all areas

  1. و عليكم السلام اخي المسافر 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
    4 points
  2. تفضل 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
    3 points
  3. السلام عليكم 🙂 اما انا فأتفق مع اخوي عبداللطيف ان هذه المعلومات متوفرة في الانترنت ، واللي يريد هذا الشيء يمكنه الحصول عليها 🙂 ولكن اللي ما اتفق فيه مع اخوي عبداللطيف هو مخالفة قوانين المنتدى بوضع السيريال في البرنامج المرفق ، مما يجعله "مخالف لحقوق الملكية الفكرية" للبرنامج المرفق ، لذا وجب حذف رابط التحميل 🙂 جعفر
    3 points
  4. تم تحويل ملف الاستاذ الفاضل رائد الى ملف تنفيذي بدون تسطيب المصنف1.rar
    2 points
  5. Nz(sum([???],0) علامات استفهام يمثل اسم الحقل مراد جمعه
    2 points
  6. ليس مخالف بل نحن نطالب بهذا من الجميع وفي آخر توقيعي رابط الطريقه للتغيير بالتوفيق
    2 points
  7. اساتذتي الكرام تحية طيبة لكم انا رأيي الشخصي ان صيغة الـ accde هي الحق الوحيد الذي يمتلكه المبرمج في حماية اكواده عندما يريد نشر برنامجه على الانترنت .. اما من يقفل الاكواد وينشر قاعدة البيانات بصيغة accdb فلايحق له الاعتراض على من يصل للأكواد. اما من ناحية البرنامج الذي تمت ازالته فهو بالتأكيد ستكون فائدته اكثر من مضاره لسبب واحد وهو اغلب المبرمجين ينسون الارقام السرية التي وضعوها لعدة اسباب وهذا ما حصل معي سابقا وقد فقدت اكواد مهمة وقتها مما اضطرني للبحث عن طريقة لكسر قاعدة البيانات في المواقع الاجنبية حيث هنالك الحرية في طرح مثل تلك البرامج تحياتي
    2 points
  8. للاسف اخي عبد اللطيف سلوم لا اوفقك الراي لانه في ناس بهذا تاخذ حقوق الاخرين فنصيحه انه هذا البرنامج يكون بايدي امينه ولا ينشر للعوام تحياتي لك
    2 points
  9. ربما هذا الشيء هو المطلوب وضعت لك كود لزر اضافة يرجى اكمال كودات بقية الأزرار Ahmad User.xlsm
    2 points
  10. تفضل تم تعديل الكود ليعمل بشكل أسرع بكثير من قبل Financial.xlsb
    1 point
  11. جرب هذه النسخة واعتقد ان سبب الخطا هو ان بعض حقول المواد لا تحتوي بيانات وان شاء الله هذه النسخة تحل الامر Results-500.rar
    1 point
  12. احذز من تلف القاعدة ... اعمل ضغط واصلاح للقاعدة ... لان القاعدة لديك مترهله
    1 point
  13. الله يجزاك كل خير هذا يكفيني لان الجواز نادر ما يكون يكاد لا يذكر سلمت ايدك
    1 point
  14. ممكن مثال مبسط لما تريد ليتم التطبيق عليه
    1 point
  15. تفضل أخي الكود يعمل بسرعة جيدة في حالة وجود بيانات أكثر . يعمل جيدا 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
    1 point
  16. وعليكم السلام اخى @صايل عزام ممكن ارفاق مثال لما لديك
    1 point
  17. و جزاك بمثله و جميع مسلمين
    1 point
  18. على حسب فهمي جرب هذا بشرط الترحيل من الخلية A2 إلى الخلية F2 حتى لا يتم الترحيل إذا كانت إحدى الخلايا فارغة وتظهر رسالة بينات ناقصة New Microsoft Excel Worksheet2.xlsm
    1 point
  19. اخي بارك الله فيك وجزاك الله خيرا
    1 point
  20. أخي اليك التعديل في المرفق المستخدمين.accdb
    1 point
  21. الله يبارك فيك استاذ عبد اللطيف سلوم ربي يحفظك يارب فين البرنامج مع وافر التحايا
    1 point
  22. و اذا تقصد اسم الدخول user name راجع هذا الرابط ، به شرح لتغيير اسم الدخول و الاسم الحقيقي أسماء الدخول ، و الأسماء الحقيقة للأعضاء
    1 point
  23. بعد اذن الاساتذة اليك المطلوب ترحيل.xlsm
    1 point
  24. طريقة اخرى شرح الاستاذ ياسر خليل ابوالبراء حفظه الله نقوم بتحديد النطاق المطلوب ، ومن التبويب Home نختار Format as Table ونختار أي نمط من أنماط الجدول ستظهر لك نافذة فيها النطاق الذي قمت بتحديده ، وهذه النافذة فائدتها تحويل النطاق لجدول الآن حدد الخلية المطلوب إنشاء قائمة منسدلة فيها ، ثم ننتقل للتبويب Data ثم ننقر Data Validation ثم من الحقل المسمى Allow نختار List ، وفي الحقل المسمى Source سنكتب المعادلة =INDIRECT("Table1[Names]")
    1 point
  25. جرب هذا الشرح اخى شرح بالمعادلات عمل قائمة مطاطية لاتحتوى على فراغات.xlsx
    1 point
  26. ماشاء الله عليك استاذ سليم حفظك الله
    1 point
  27. وظيفة Nz. يمكنك استخدام الدالة Nz لإرجاع صفر أو سلسلة ذات طول صفري ("") عندما يكون المتغير فارغًا Nill
    1 point
  28. تم معالجة الأمر 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
    1 point
  29. يعطيك العافية ابو احمد واسال الله ان يفرج عنك كربات الدنيا والاخرة
    1 point
  30. الاستاذ @ابو تراب شكرا جزيلا وهو المطلوب هل بالامكان شرح دالة nz باختصار لو تفضلت
    1 point
  31. =Nz(DSum("[mx1]";"[Qleader]";"[hx1]='y'"),0)
    1 point
  32. جزاكم الله كل خير اخي الكريم وبارك الله فيك وحفظ تسلم ايدك يا محترم بجد كلمة شكرا قليلة في حقك
    1 point
  33. صديقي لو بحثت على اليوتيوب لتجد العديد من هذه البرامج انا قصدت مساعدة من ينسى الرقم السري اما من يريد اخذ برامج الاخرين فذنبه على جنبه
    1 point
  34. تفضل اخي العزيز التعديل واعتذر عن هذا الخطا Results-500.rar
    1 point
  35. اسف جدا استاذ لم انتبه على الرد الا اثناء صلاة الفجر دعوت لك بالصحة والعافية والمغفرة ولوالديك بالرحمة استاذي الفاضل بالنسبة لحقل المجموع والمعدل في نتيجة البنات لايظهر وكذلك عدد الناجحون لايظهر واتصور السبب هو تانيث النتيجة اي ناجحة الطلب المهم جدا رحم الله والديك هو ان تظهر الدرجات الحاصلة على قرار في التقرير لونها اصفر وبقية الحقول بدون الوان نهائيا هذا اهم شيء عندي بالنسبة لتانيث النتيجة هل يمكننا ان نضع مربع نص جديد للنتيجة يعتمد على مربع النص الاصلي للنتيجة ونضع فيه هذا الكود IIf([الجنس]="ذكر";[النتيجة];[النتيجة] & "ة") طبعا بعدها نجعل حقل النتيجة الاصلي غير مرئي
    1 point
  36. حمل الملف Results-300
    1 point
  37. وعليكم السلام اخى @tiger wanted هل هذا ما تريد ؟ Database11.accdb
    1 point
  38. بالنسبة للبحث تم عمل باليوزر فورم تيكست بوكس يتم كتابه والبحث كما موضح بالصوره اعلاه وليست بوكس يظهر به النتائج بالاضافة انه يمكن الضغط على اى من نتائج البحث يتم التعبئة التلقائية بالتيكست بوكسات الخاصة بهم لامكانية الحذف والتعديل فى نفس الوقت اظن هذا طلبك مع ملاحظة الكتابة داخل تيكست بوكس باللغة العربية userform4 (2).xlsm
    1 point
  39. تفضل المفروض هذا طلبك Book1 (2).xlsm
    1 point
  40. بالمعادلات لا تستطيع ضبط هذا الشيء فقط بواسطة كود Vba للمزيد هذا الملف 1-يمنع الكتابة في العامودين الاول والثاني ابتداء من ال صف 14 لعدم مسح لبيانات عن طريق الخطأ 2- كل ما عليك ان تملاُ ما تريد من بيانات في الأعمدة 3 /4 /5 (ابتداء من الصف 14 ونزولاً) وبعد ذلك تضغظ الزر Run عندها يقوم الاكسل بادراح التاريخ المناسب و يثبته 3-عدة مرات انصح لعدم استعمال الخلايا المدمحة لحسن سير المعادلات الجدول R5 : G2 STOCK_Salim.xlsm
    1 point
  41. تم إضافة البنود 35-38 و الخاصة باسم الدخول و الاسم الحقيقي أو الكنية
    1 point
  42. جال ببالي خاطر أن أنفذ تطبيقا بسيطا يعتمد على جمل 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
    1 point
  43. 1 point
  44. لإستخدام Sum ، ولتجميع قيم أجور الشحن كإجمالي لصفقات الموظف ، ولكل موظف على حدى ، وكمصدر لسجلات نموذج Me.Form.RecordSource = "SELECT EmployeeID, Sum(Orders.Freight) AS Freight FROM Orders GROUP BY EmployeeID;" وتكون النتيجة
    1 point
  45. يمكن تعدد حقول وجداول جملة select بمعنى أنه يمكننا الاستعلام من أكثر من جدول مثال على ذلك SELECT orders.order_id, suppliers.name FROM suppliers, orders WHERE suppliers.supplier_id = orders.supplier_id; ويكون ذلك باستعمال النقطة بين اسم الجدول واسم الحقل والاستعلام المذكور يعرض اسم المورد ورقم أمر الشراء في حالة تساوي رقم المورد في الجدولين
    1 point
×
×
  • اضف...

Important Information