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

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

  1. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      4

    • Posts

      9,724


  2. Elsayed Bn Gemy

    Elsayed Bn Gemy

    الخبراء


    • نقاط

      4

    • Posts

      1,162


  3. عبد اللطيف سلوم

    عبد اللطيف سلوم

    06 عضو ماسي


    • نقاط

      3

    • Posts

      1,861


  4. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      2

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 01 فبر, 2019 in all areas

  1. حيالله السيد جمال 🙂 تفضل اخي سمير ، اعددت لك هذا البرنامج ، لكل اصدارات الاكسس 🙂 اختار البرنامج الذي تريد تعرف من يعمل عليه ، ثم اضغط على الزر who is logged جعفر Who is logged in.zip
    2 points
  2. اولا استاذن معلمى جعفر فى الرد واجيبك اخى الكريم بالطبع هناك طريقة اخرى برمجيا حقل من نوع نعم / لا ولنسميه اونلاين وننشئه فى جدول المستخدمين وفى النموذج الخاص بكل مستخدم فى حدث عند عداد الوقت تقول نعم لحقل اونلاين لهذا المستخدم ولنجعل الحدث كل 1000 جزء من الثانية = 1 ثانية وفى حدث عند الاغلاق تجعل الكود يقول لا لحقل اونلاين وتنشئ نموذج اخر خاص بالمدير فيه استعلام باسماء كل المستخدمين الذين حقل اونلاين لهم يساوى نعم فكرة بسيطة ما عليك سوى التنفيذ شكرا لك
    2 points
  3. نعم يمكن اخى ىاالكريم التحديث القادم سيشمل على مربع تحرير وسرد من خلاله يمكنك من خلاله اختيار نوع الملف المراد عرضه وامكانية النقل الى اى مكان فقط بعض الوقت اخوتى انا لا اعمل على الاكسس الا فى يوم عطلتى وشكرا لكم جميعا
    2 points
  4. مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar
    1 point
  5. السلام عليكم برنامج مجاني يختص بالبنوك من حيث الايداع والسحب اتمنى ان ينال اعجابكم من تصميم الاخ المبدع المهندس/ هاني مجدي - جمهورية مصر العربية البنوك.accdb
    1 point
  6. فورم اضافة وبحث وحذف وتعديل واغلاق طباعة بدون ازرار شرح الفيديو
    1 point
  7. شرح مفصل لدالة العد بشروط COUNTIFs شرح احدى عشر طريقة للدالة COUNTIFs
    1 point
  8. السلام عليكم طلب مني احد الاصدقاء تصميم برنامج بسيط وسهل لتحصيل الايجارات من المستأجرين هذا البرنامج مفتوح المصدر وتستطيعون التعجيل عليه كما تشاءون اضعه هدية لكم * صممته على اكسس 2016 / نظام 32 بت تحصيل الايجارات من الشقق.accdb
    1 point
  9. سيد علي محمد بارك الله فيك ورحم الله والديك وزادك الله من المعرفة
    1 point
  10. هذا ما تم عمله تعديل في الكود فاصبح هكذا وتعديل في تصميم الحقول اللي في الصورة Set db = CurrentDb Set Td = db.TableDefs(Me.ChooseTble) Me.ChooseField.RowSource = "" Me.ChooseField.AddItem ("اسماء الحقول") For Each fld In Td.Fields On Error Resume Next sCaption = fld.Properties("Caption") If fld.Type = 4 And fld.Attributes = 17 Then Me.ChooseField.AddItem fld.Name & ";" & sCaption Else Me.ChooseField.AddItem fld.Name & ";" & sCaption End If Next
    1 point
  11. وعليكم السلام مبدع دائما استاذ عبد اللطيف بارك الله فيك برنامج رائع جعله الله فى ميزان حسناتك وغفر لك ووسع الله فى رزقك ورحم والديك واسكنهما الله فسيح جناته ووسع الله فى قبرهما وجعلهما روضة من رياض الجنة وبارك الله فى اولادك وازواجك وجعلهم ذرية صالحة
    1 point
  12. وعليكم السلام -تفضل التوتيق1.xlsx
    1 point
  13. السلام عليكم ارجو المساعدة اريد شيت اكسيل لحساب العملاء يكون فيه حسابات العملاء ( دفعات مقدمة ودفعات مستحقة ) وتواريخ الدفعات وكشف حساب لكل عملي
    1 point
  14. السلام عليكم اليك هذا التعديل Excel +.xlsm
    1 point
  15. بعد اذن اخي jjafferr اظن اني فهمت الاخ زياد الحسناوي اتفضل شوف اظن انه طلبك حسب ما فهمت اكسل.rar وهذا بالطريقه الاخرى final.rar
    1 point
  16. السلام عليكم يسغدنى ان تخبرني اننى حققت جزء من طلبك تحياتي Excel (2).xlsm
    1 point
  17. وعليكم السلام قد يفيدك هذا الموضوع جعفر
    1 point
  18. حياكم الله بمعادلة صفيف تم عمل المطلوب في الملف المرفق... بن علية حاجي جلب اسم الغائب حسب التاريخ (1).xlsx
    1 point
  19. قبل قليل طلب مني احد الاصدقاء عمل برنامج تأجير شقق وتحصيل الايجارات حسب النظام المعمول به في بلدنا الاردن انتهيت قبل قليل من عمل الجداول سأعطيك البرنامج وأنت تكمل النماذج والاستعلامات حسب ما تراه مناسبا تحصيل الايجارات من الشقق.accdb
    1 point
  20. عليكم السلام يصبح هكذا : If Me.subfrm.Form.NewRecord = True Then باعتبار subfrm هو اسم عنصر تحكم النموذج الفرعي
    1 point
  21. 1 point
  22. انت لم تتطرق الى هذا من قبل تفضل تم ايقاف الكود 3 ، وعمل الكود 4 ليوزع الباقين على المجموعات بالتساوي: Private Sub Dispatch_Click() On Error GoTo err_Dispatch_Click 'clear SALLECORRECTION for the selected subject mySQL = "Update TBLPRFTAWZI3" mySQL = mySQL & " SET SALLECORRECTION = 0" mySQL = mySQL & " WHERE MATIERE = '" & [Forms]![GROUPEPRF]![MODI_MATIERE] & "'" CurrentDb.Execute (mySQL) Dim rst As DAO.Recordset mySQL = "Select * From TBLPRFTAWZI3" mySQL = mySQL & " WHERE MATIERE = '" & [Forms]![GROUPEPRF]![MODI_MATIERE] & "'" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst '1 'this code will assign (Me.k1 / Me.k) , and it will NOT care about the REMAINING ' For j = 1 To Me.k ' For i = 1 To (Me.k1 / Me.k) ' rst.edit ' rst!SALLECORRECTION = j ' rst.Update ' rst.MoveNext ' Next i ' Next j '2 'this code will assign (Me.k1 / Me.k), and the REMAINING will be given the NEXT number k_Counter = 0 SAL = 1 For i = 1 To Me.k1 k_Counter = k_Counter + 1 rst.Edit rst!SALLECORRECTION = SAL rst.Update If k_Counter = Int(Me.k1 / Val(Me.k)) Then k_Counter = 0 SAL = SAL + 1 End If rst.MoveNext Next i '3 'This code will change the number of the REMAINING to the last number of (Me.k1 / Me.k) ' mySQL = "Update TBLPRFTAWZI3" ' mySQL = mySQL & " SET SALLECORRECTION =" & Me.k ' mySQL = mySQL & " WHERE MATIERE = '" & [Forms]![GROUPEPRF]![MODI_MATIERE] & "'" ' mySQL = mySQL & " And SALLECORRECTION = " & SAL ' CurrentDb.Execute (mySQL) '4 'spread the REMAINING to all the groups mySQL = "Select * From TBLPRFTAWZI3" mySQL = mySQL & " WHERE MATIERE = '" & [Forms]![GROUPEPRF]![MODI_MATIERE] & "'" mySQL = mySQL & " And SALLECORRECTION = " & SAL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.Edit rst!SALLECORRECTION = i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing DoCmd.Requery: Me.GROUP01.Requery: Me.Fille25.Requery: Me.Fille26.Requery: Me.Fille27.Requery: Me.Fille28.Requery Exit Sub err_Dispatch_Click: If Err.Number = 1 Then Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 408.zip
    1 point
  23. بسم الله الرحمن الرحيم لي ملاحظة صغيرة على طريقة الأخت زهرة في إخفاء نافذة الأكسس وهي أن البرنامج لا يكون له زر في شريط المهام ولا يمكننا التحكم به إلا من خلال واجهته فما الحل؟
    1 point
  24. جزاك الله خيرا أخي أعطى الخيار السابق حلا لمشكلة زر الإغلاق ماذا عن الجزء الأبيض على يسار وأسفل النموذج؟
    1 point
  25. هذه صورة من كمبيوتري ، بالخطوات اعلاه: والصورة فيها اسم الكمبيوتر الذي اعمل عليه ، وصلاحيات المستخدم 🙂 جرب ان يكون اسم الكمبيوتر بالانجليزي. جعفر
    0 points
×
×
  • اضف...

Important Information