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

هذه الصفحة تحدث تلقائياً   

  1. الساعة الأخيرة
  2. شكرا أستاذ شفان على حسن المتابعة والإفادة جزاك الله خير ونفع بك أعلم أن لكل شيخ طريقته ولكنى مازلت اريد عقد مقارنة علمية "مجردة" بين فوائد ومميزات وعيوب استخدام كلا الأمرين حتى نعتمد الطريق الطريق من البداية وخاصة لمن ليس لدية الدراية الكافية وشكرا لكل من يساهم برأى ولو بسيط فلعله بسيطا بالنسبة إليه ولكنه ربما يكون فيه إفادة كبيرة لنا.
  3. اليوم
  4. اخي صالح انت لديك اكسس 2007 ولديك في ادارج عنصر التحكم progress bar ولكن انا لدي اكسس 2010 لا يوجد نهائياً progress bar . وكنت اريد طريقة استطيع ادراج progress bar في اكسس 2010 وجميع كلامك صحيح ولكن اكسس 2010 لا يوجد هذا العنصر وشكرا لك
  5. ارفع الملف نفسه او نسخة(فارغة ) عنه اذ لا يمكن التعامل مع الصورة
  6. أخي الحبيب جربت تطبيق المثال بنفسي بهدف التعلم على نفس البرنامج فلم تضبط معنا .. هل المقصود بخاصية النموذج modal هي منبثق ومشروط لنموذج تسجيل الدخول ؟ هي مفعلة بنعم وتم نسخ الوحدتين النمطية ونسخ الكود في موضع عند الفتح ولم أتمكن من تسجيل الدخول ! فهل يوجد شيء آخر لم أقم بعمله ؟ ولكم الشكر ..
  7. Yesterday
  8. السلام عليكم يمكن إدراج هذا العنصر من خلال قائمة عناصر تحكم ActiveX بإتباع الخطوات التالية: 1- نفتح النموذج في وضع التصميم 2- نضغط على القائمة عناصر تحكم ActiveX 3- تظهر نافذة بها مجموعة كبيرة من العناصر نختار منها العنصر Microsoft ProgressBar control, version 6.0 ثم نضغط على موافق كما توضح الصور التالية: 2- 3-
  9. السلام عليكم ورحمة الله وبركاته اشكر مجهوووووووودك اخي الفاضل على ماتقدمه عساها تكون في ميزان حسناتك ... لدي استفسار اخي وقبل ان استفسر حاولت مرارا بان اعدل به لكن ورقة العمل لا تقبل الا فورم واحد فقط من هذا النوع كيف يمكن ان اضيف 2 فورم لكل فورم قاعدة بيانات مستقله ورقة فيها العملاء (نفس هذا الفورم ) وورقة فيها الاصناف فورم اخر (نفس هذا الفورم ) واكون شااااكر لك
  10. السلام عليكم ورحمة الله وبركاته اشكر مجهوووووووودك اخي الفاضل على ماتقدمه عساها تكون في ميزان حسناتك ... لدي استفسار اخي كيف يمكن ان اضيف 2 فورم لكل فورم قاعدة بيانات مستقله ورقة فيها العملاء (نفس هذا الفورم ) وورقة فيها الاصناف فورم اخر (نفس هذا الفورم )
  11. مشكووور أخي Shivan Rekany على تجاوبك وإبداعك .. وعلى الله أقدر أطبقها بنفسي ..
  12. اتفضل السبب يرجع ل خاصية النموذج modal تم غیرت الى نعم والن جربه ---الموظفين 28-11-1438.rar
  13. لا تنسى تقدر تعمل وحدة نمطية و تستخدمه في كل اماكن ... بيقولون ان الماكرو اسهل استخدام لكن انا بستخدم الاكواد فقط .. بعد ما استخدمت ماكرو وبالنسبة للغة تقدر ترجمها الى اللغة العربية افتحها بواسطة كوكل جروم و تقدر تترجم الصفحة كاملا .. انا لغتي الام هو اللغة الكردية وانا ضعيف في اللغة العربية وضعيف جدا باللغة الانكليزية لكن انا كتير مرات بستخدم مترجم لكي اوصل الى حاجة واعرف ان المترجم لا يترجم الكل بالصحيح لكن بيقترب منها تحياتي
  14. اسال الله العظيم اخي ان يوفقك ويبارك فيك وجزاك الله خير تمام هو المطلوب شكرا لك كثير استاذي الغالي شفان ريكاني تحياتي لك
  15. If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then Me.endcont = (Date + Me.Alaim) - 1 Else Me.endcont = Date + Me.Alaim End If ربط الوقت بالتاريخ.rar
  16. استاذي القدير العفو منك أرسلت لك الفكره فيها شبه خطاء وقت الدخول من 12 صباحا أي 4 صباحا يكون العد واحد والتاريخ هو الحالي ليس زائد اما فوق الساعه 4 يعطينا تاريخ اكبر بحسب عدد الأيام اتاسف منك كثير استاذي أبو محمد
  17. بالمرفق مثال ياليت التطبيق عليه إخفاء خلفية اكسس بالكامل مع إمكانية تسجيل الدخول .. وماهي الإعدادات المناسبة ليتم تفادي ظهور رسالة " عرض المقطع أكبر من عرض الصفحة .. إلخ " عند عرض التقرير ؟ شاكر ومقدر لكم .. ‫‫‫الموظفين 28-11-1438.rar مستخدم : saad باس : 1111
  18. الاصدقاء الاكارم تحية طيبة الكثير يسال عن طرق البحث في عدة حقول و غالبا ما تكون الطريقة هي استخدام الاستعلام و باضافة عدة معايير له لكن في بعض الاحيان لا يمكن تطبيق هذه المعايير على الاستعلام و نحتاج الى كتابة الكود يدويا في هذا التطبيق اقدم لكم طريقة بسيطة للبحث في جدول مكون من اربع حقول مع ملاحظة انه يمكن البحث ب 21 طريقة من خلال هذا المثال البسيط قد يسال البعض من اين تاتي 21 طريقة و لا يوجد في المثال سوى اربعة حقول الجواب : يمكنك البحث كالآتي 1 الرقم 2 الاسم 3 التاريخ 4 ملاحظات 5 الرقم و الاسم 6 الرقم و التاريخ 7 الرقم و الملاحظات ...... وصولا الى البحث في الحقول الربعة مجتمعة والله من وراء القصد DbSearch.rar
  19. اليك هذا الكود اذا دخلت من ساعة 12 صباحا الى ساعة 4 صباحا سيكون الناتج تاريخ اليوم زائد تاريخ في الحقل الايام واذا دخلت في غير ساعة سيعطيك تاريخ اليوم زائد تاريخ حقل الايام زائد واحد If Me.وقت_الدخول >= #12:00:00 AM# And Me.وقت_الدخول <= #4:00:00 AM# Then Me.endcont = Date + Me.Alaim Else Me.endcont = (Date + Me.Alaim) + 1 End If هل هذا ما تريد ؟ اليك القاعدة بعد تعديل ربط الوقت بالتاريخ.rar
  20. ميرسي شكرا
  21. شكرا لاهتمامك المعتاد أستاذ شفان ولكن للأسف الرابط باللغة الإنجليزية وأنا بالعافية بفك الخط العربى فما بالك بالإنجليزية عموما ما أسبابك لعد استخدامك الماكرو أكيد هناك أسباب رغم أن في استخدام الماكرو ميزة لا توجد في استخدام الأكواد وهى عند نقل او نسخ زر للقيام بمهمة ما من خلال الماكرو فأنها تعمل تلقائيا في مكانها الجديد دون الحاجة للدخول إليها وأجراء أى تعديل بعكس الأكواد فهى تحتاج للدخول إلى بيئة محرر الأكواد كل مرة لتنفيذ نفس المهمة في كل مكان تريد فيه تنفيذ الكود وأذا حدث أى تعديل في هذا الكود يجب أن أعدله في كل الأماكن التى يعمل بها هذا الكود وهذا أراه مرهق خاصة إذا كانت قاعدة البيانات بها كائنات كثيرة وهذا بالأساس ما دفعنى للسؤال وطرح المشاركة أكرر شكرى لكم وبانتظار المزيد من الأفادات التى تثرى الموضوع لنضع فيه حدا شافيا.
  22. السلام عليكم ورحمة الله وبركاته أرجو من عمالقة المنتدى مساعدتى بعمل فورم بحث واستبدال للبيانات الموجودة فى الملف المرفق البحث يكون فى عمود الاسم بمجرد كتابة جزء من الاسم تظهر باقى البيانات مع امكانية استبدال البيانات والتعديل عليها وحفظها أعلم أن الملف كبير بعض الشىء وأيضا من كثرة الصفحات والتنسيقات يكون هناك بعض الوقت لفتح الملف أرجو تحمل ذلك فى انتظار ابداعاتكم برنامج شئون الطلاب الإصدار النهائى 26.rar
  23. بعد اذن اخي ياسر جرب هذا الملف هناك 2 كود الاول في حدث الصفحة invoice Option Explicit Private Sub Worksheet_Activate() Dim answer% answer = MsgBox("هل تريد زيادة ترقيم الفاتورة", vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading + vbQuestion, "ُExcel Ask You") If answer = 6 Then Me.Range("d5") = Me.Range("d5") + 1 Me.Rows.Hidden = False End If End Sub الثاني في Mudule عادي Salim Option Explicit Sub Copy_Data() Dim Sh_To_Copy As Worksheet, Sh_To_Paste As Worksheet Dim Rg_Copy As Range Dim lrCopy%, Lrpast%, m%, My_Num%, i% Dim My_Str As String, Answer2% Set Sh_To_Copy = Sheets("invoice"): Set Sh_To_Paste = Sheets("recycle") Sh_To_Paste.Unprotect 11 Sh_To_Copy.Range("a9:f25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True My_Str = Sh_To_Copy.Range("c5").Value My_Num = Sh_To_Copy.Range("d5").Value lrCopy = Sh_To_Copy.Cells(Rows.Count, 1).End(3).Row Lrpast = Sh_To_Paste.Cells(Rows.Count, 1).End(3).Row For i = 5 To Lrpast If Sh_To_Paste.Range("c" & i) = My_Str And Sh_To_Paste.Range("d" & i) = My_Num Then Answer2 = MsgBox("الفاتورة تحت هذا الرقم موجوده هل تريد استبدالها", vbYesNo) If Answer2 <> 6 Then Sh_To_Paste.Protect 11: Exit Sub Exit For End If Next Set Rg_Copy = Sh_To_Copy.Range("a5:F" & lrCopy).SpecialCells(12) m = Rg_Copy.Rows.Count Sh_To_Paste.Range("a5:a" & m + 8).EntireRow.Insert Rg_Copy.Copy Sh_To_Paste.Range("a5") Sh_To_Paste.Protect 11 End Sub Facture_salim.rar
  24. و عليكم السلام ممكن عمل ذلك بالكود التالي If IsNull(Combo_a) And IsNull(Combo_a) Then txt_confirm = 1 If Not IsNull(Combo_a) And IsNull(txt_s) Then txt_confirm = 2 If Not IsNull(txt_s) And IsNull(Combo_a) Then txt_confirm = 3 If Not IsNull(Combo_a) And Not IsNull(txt_s) Then txt_confirm = 4 بالتوفيق
  25. أستاذنا الجليل الأستاذ شوقى ربيع عمل رائع و ممتاز بارك الله فيك وإن كنا نطمع فى شرح كيفية عمل مثل هذا الفورم لإدخال البيانات بالاضافة والتعديل والحذف وشرح الأكواد سواء بالفيديو أو شرح عادى تقبل تحياتى
  26. السلام عليكم ورحمه الله وبركاته احبتي الموضوع عندي بنموذج العقد نص عدد الأيام فعندما اضع عدد يطينا تاريخ بنفس العدد فاريد يكتمل الكود الذي بعد التحديث بالايام أي اذا كان الوقت الساعه 2او 3 صباحا وادخلت عدد 1 يعطينا تاريخ نفس اليوم واذا كان الساعه 4 صباحا الي 11 صباحا يعطينا لليوم الثاني وكلما حطيت عدد اكبر بالايام يعطينا اكبر بالتاريخ ربط الوقت بالتاريخ.rar
  27. لا زالت مشكلة عدم القدرة على تسجيل الدخول بعد إخفاء شاشة اكسس بالكامل !!
  1. Load more activity