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

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

  1. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      7

    • Posts

      11,623


  2. sandanet

    sandanet

    الخبراء


    • نقاط

      6

    • Posts

      1,366


  3. AlwaZeeR

    AlwaZeeR

    الخبراء


    • نقاط

      4

    • Posts

      734


  4. Ali Mohamed Ali

    Ali Mohamed Ali

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


    • نقاط

      4

    • Posts

      11,621


Popular Content

Showing content with the highest reputation on 16 مار, 2018 in all areas

  1. السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(D14*7%>130;130;IF(D14*7%<65;65;D14*7%))
    3 points
  2. اخي الكريم اعتقد ان تصميم البرنامج خطأ .. فالجدول يحتوي على اسماء الاشهر فقط ويقابل كل اسم شهر عدد ساعات العمل وما الى ذلك .. بينما انت في النموذج تضع عدد ايام الشهر المختار من النموذج الاخر ومن ثم تريد ان تضع خانات بعدد ساعات العمل اما كل يوم في حين انت لاتملك جدول بعدد ساعات العمل لكل يوم في الشهر الواحد بل يوجد لديك عدد ساعات العمل لكل شهر لذلك يعتبر التصميم خطأ والله أعلم
    2 points
  3. وانا لم اسألك ما نوع مدخل كيبل الطابعة ؟ اذا usb : اولا حاول تغيير مدخل كيبل الطابعة في الكمبيوتر ... اذا كنت شاك انه متغير لم ينفع جرب : حاول تحذف تعريف الطابعة ثم تعيد تشغيل الكمبيوتر ثم تركب التعريف مرة اخرى هذا الذي اعلمه .. ولعل بعض الاخوة ممن لهم دراية وخبرة يفيدونك في ذلك
    1 point
  4. طيب يكون الخلل في التقرير هل الطباعة تتم من البرنامج بنجاح على طابعة أخرى ؟ حتى لو طابعة وندوز الافتراضية ؟ هل الطابعة .. طابعة فواتير حرارية ؟
    1 point
  5. غالبا يكون السبب المنفذ ( البورت) افتح على الطابعات وكلك يمين على الطابعة وافتح تبويب المنافذ وحاول تغير المنفذ واذا فيه طابعة اخرى مشتركة في المنفذ الغيها مؤقتا وجرب
    1 point
  6. أخى الكريم يمكن إضافة بسيطة للتقريب على معادلة أستاذى الفاضل / زيزو العجوز لتكون بالشكل التالى وأتمنى أن تفى بالغرض =ROUND(IF(D14*7%>130;130;IF(D14*7%<65;65;D14*7%));2) تفيد هذه المعادلة بتقريب الناتج من المعادلة فى مشاركة الأستاذ زيزو وتقرب الناتج إلى رقمين عشريين كما طلبتم تقبل تحياتى
    1 point
  7. تفضل استاذي العزيز تم تنفيذ بالكود والماكرو التقارير11.rar
    1 point
  8. والله هالدعوات بالدنيا وما فيها ولك بالمثل ولجميع المسلمين تحياتي
    1 point
  9. حسب المعادلة الظاهرة في الصورة في الشق الاول تريد القيمة الاصغر بينما في الشق الثاني هناك خطأ لان كلها C2 اين المقارنة؟؟ عموماً تفضل هذه هي المعادلة بحسب النتائج في الصورة Expr1: IIf([d2]>=[c2],[c2],[d2])
    1 point
  10. جزاك الله خير رحم الله والديك الله لا يحرمك الأجر ولا يحرمنا منك تقبل فائق تقديري واحترامي .
    1 point
  11. وعليكم السلام ورحمة الله وبركاته تفضل استبدل جملة الشرطية بهذه: strSQL = "UPDATE Table2 SET Table2.[check] = true where Name_Saf ='" & Me.SafCB & "'"
    1 point
  12. السلام عليكم من الزر في النموذج ادخل في خصائص الزر واجعل طريقة معاينة التقرير ستجد خيارين معاينة التقرير ومعاينة قبل الطباعة هما دول المسؤولين عن ظهور التقرير مثل الصورتين بعاليه غير فيهم وجرب وانت هتفهم تحياتي
    1 point
  13. عفوا لم افهم مقصودك في المشاركة الأولى لو تكرمت اضف المرفق
    1 point
  14. اخي الكريم سبق وان اخبرتك اني للأسف لا املك الوقت الكافي لكل اصمم لك برنامجك .. انت عليك التعلم واهم شيء في تصميم البرنامج هو بناء الجداول بالشكل الصحيح
    1 point
  15. وعليكم السلام .. ومرحبا بك بين اخوانك عزيزي .. تعلم ان المثال خير وسيط لانجاز عملك بيسر وبأقل وقت ولا يلزم منك رفع قاعدة بياناتك وانما تأخذ نسخة من قاعدة بياناتك وتفرغ ما بها من بيانات خاصة ، وتضع فيها بيانات وهمية تفي بالغرض واجراء التجربة ثم بعد ذلك كل ما عليك هو جلب العمل الحاصل الى برنامجك
    1 point
  16. تفضل: If DLookup("Chair_no=1", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") And _ DLookup("PcDigt", "Tabl_bus", "Chair_no=1 " & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Then Me.S1 = DLookup("PcDigt", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") Me.S1 = DLookup("[PcDigt] & ' - ' & [FName]& ' ' & [Family]", "Tabil_Emp", "PcDigt = S1") ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID") < 1 Then Me.S1 = "غير مخصص" ElseIf DCount("id", "Tabl_bus", "Chair_no=1" & Num_Itinerary_ID = " & Me.Num_Itinerary_ID And[PcDigt]=Null") = 0 Then Me.S1 = "شاغر" End If
    1 point
  17. لقد تم الرد من قبل الأستاذ سليم فى مشاركة أخرى ولكم جزيل الشكر
    1 point
  18. السلام عليكم و رحمة الله وبركاته فضلا اخي هيثم اسمحلي بـ اقتراح ان تدمج عدد 2000 شيت في شيت واحد و من هذا الشيت تسخرح منه في شيت آخر واحد فقط استغلام يعطيك نتائج (كارتة الصنف) بمجرد ادخال اسم الصنف و كذلك يعطيك جميع النتائج المطلوبه للورقة Home تلقائيا هذا كله من شيت واحد كما يمكنك عمل استعلام لتاريخ محدد او استعلام لجهة صرف هذا من وجهة نظري الشخصية سوف يكون افضل و الله اعلم
    1 point
  19. اشكرك شكرا جزيلاً ، جازاك الله خيرا وجعله في ميزان حسناتك الملف يعمل جيدا .. وهو المطلوب .. الف الف شكرا على مجهودك واهتمامك
    1 point
  20. جرب هذا الملف كارتة الصنف المعدلة salim.xlsx
    1 point
  21. تأكد من ان اعدادات الللغة في الجهاز كلها تشير الى العربية كما في الصور التالية
    1 point
  22. هكذا يجب ان تكون Private Sub DEL_Click() If MsgBox(" سيتم الالغاء" & vbCrLf & "كل مرة يحذف اسم ", vbExclamation + vbMsgBoxRight + vbYesNo, "حذف") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else DoCmd.CancelEvent End If End Sub
    1 point
  23. تغضل اخى هذا من أعمال وإبداعات أستاذنا الكبير زيزو العجوز له منا كل المحبة والفخر والإعتزاز والإحترام جزاه الله كل خير وجعله فى ميزان حسناته وجعله الله دائما وابدا زخرا وعطاء لنا المطلوب اظافة شرط , عدم تجاوز درجة الطالب للدرجة الكبرى للمادة-فى الفورم.xls
    1 point
  24. اخي الكريم راجع المرفق التالي https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=140547
    1 point
  25. يمكن استعمال هذه المعادلة =CHOOSE(((M38*28/100)>100)+1,M38,100)
    1 point
  26. السلام عليكم ورحمة الله تعالى وبركاته استاذ @رؤوف1951 فى هذا الرابط عدد اتنين ملف للتعليم الاكسس https://archive.org/download/FaresCD.Com.AccessPcLp/FaresCD.Com.AccessPcLp.rar محتويات الدروس تفصيلا كالاتى كما فى الرابط http://www.pclabacademy.com/program1.aspx?productKey=5orwxzavv8t5jn31njhz
    1 point
  27. وعليكم السلام أخى مرحبا بك فى منتدانا الكريم لو إفترضنا ان الرقم المستخدم فى المعادلة موجود فى الخلية B1 فالمعادلة كالتالى : IF((B1*28/100)>100,100,(B1*28/100))= بارك الله فيك
    1 point
  28. تحياتى و ايام مباركه لاضافة اى بنك جديد من صفحه جديده الاكسيل من view اضغط على page layout و حدد ابعاد الشيك ابقى حدد نطاق الطباعه من print area و من print preview اجعل paper size envelope 10 يوجد بدفتر الشيكات قبل نهايته نموذج ورق لعروض البنك اقطعه و اقطع ورق تصوير على قده و ابدأ ضبط فورم الاكسيل على الشيك و ابدأ اطبع نموذج الاكسيل و ضعه خلف اصل شيك من دفتر الشيكات و شوف فى الضؤ هل الفريم المطبوع مناسب لاماكن الرقم و التفقيط و التاريخ لا تنسونا من صالح الدعاء
    1 point
  29. السلام عليكم ورحمة الله تعالى وبركاته معكم أخوكم محمد أقدم من خلال قناتي دورة تعليمية في الأكسس وذلك من خلال إنشاء برنامج عملي أقوم من خلاله بشرح الأكسس وبناء برنامج محاسبي قابل للاستخدام. سوف أجعل هذا الموضوع متجدداً يضم كافة الفيديوهات التي نزلت والتي سيتم تحميلها إن شاء الله. لمتابعتنا يمكن الاشتراك بالقناة والاطلاع أيضاً على باقي المساقات التعليمية الموجودة في القناة. نبدأ على بركة الله وهذه هي سلسلة الدروس التي تم تحميلها حتى اللحظة: الدرس الأول: الدرس الثاني: الدرس الثالث: الدرس الرابع: الدرس الخامس:
    1 point
  30. تم افتتاح هذا القسم ليغطي المواضيع الخاصة ببرمجة الاندرويد
    1 point
  31. تم معالحة الخطأ و كل شيء تمام التمام و ذلك باضافة سطرين الى الكود( انظر الى الكود من جديد) If r1 = 65536 Then r1 = r If r1 - r = 2 Then r1 = r + 1 لو اردت استعمال الكود على 2010 استبدل الرقم 65536 بالرقم 1048576 Fatoura-Final-1 2003.rar
    1 point
  32. السلام عليكم ورحمة الله وبركاته السادة الافاضل اساتذتي واخواني الكرام تم بفضل الله التوصل لطريقة التحكم بطابعة الفواتير ودرج النقدية الخاص بالكاشير وبعد اذنكم سود اسرد الموضوع من البداية حتي يسهل على الاخوة الاعضاء التوصل اليه بمشاركة واحدة . ادوات جهاز الكاشير : ( طابعة فواتير - درج نقدية – سكانر ) الاسكانر لا يحتاج لشرح ، وتم مناقشته من قبل في مواضيع كثيرة ، ولكن موضوعنا اليوم والذي لم يتم مناقشته بافاضة هو طابعة الفواتير ودرج النقدية . 1 – الطابعة الحرارية " طابعة الفواتير" : ومنها انواع عديدة ولكن اشهرها نوع ايبسون ، وتحتوي على 3 منافذ ( منفذ كهرباء – منفذ usb " من خلالة يتم تعريف خصائص واعدادات الطابعة وهي نقطة هامة جداااا والذي يترتب عليه الاداء لاحقا " - منفذ درج النقدية " وهو عبارة عن منفذ نفس منفذ الهاتف الارضي ويتم توصيلها بالطابعة من خلال واير يشبة واير الهاتف الارضي ..طرفة الاول بالطابعة والطرف الاخر باسفل الدرج ، وتكمن فكرة فتح الدرج في ارسال شحنة كهربائية من الطابعة عند الطباعة الي الدرج ليقوم بفتحة " 2 – درج النقدية : ويحتوي علي منفذ واحد فقط ويكون اسفله ، وهو المنفذ الذي يتصل بيه للطابعة والمذكور اعلاه . الاستفسارات المطروحة : س1 : طريقة فتح درج النقدية بدون طباعة ؟ س2 : طريقة تحديد تقارير معينة لفتح الدرج معها ، وتقارير اخري لعدم فتح الدرج معها . اول واهم شيء نقوم بتعريف الطابعة على الكمبيوتر من خلال الـــ CD المرفق جـ1 : قام الاستاذ الفاضل السيد جمال جزاه الله كل خير بوضع كود لفتحة وتم تجربتة بعد تعريف الطابعة وهو يعمل تمام الحمد لله " موجود بالمشاركة السابقة " . كود الاستاذ السيد جمال لفتح درج النقدية بدون طباعة . فتح الكاشير.rar جـ2 : نقوم بتحديد التقرير المطلوب طباعتة مع فتح الدرج او عدم فتح الدرج ثم نفتح التقرير بوضع التصميم ونتبع الخطوات المشار اليها بالصور . اتمني ان يكون الشرح واضح ...... وسامحوني على الاطالة واي استفسار انا حاضر وللسادة المشرفين الافاضل اتخاذ ما يرونه مناسبا في تغيير العنوان الاساسي حتي يسهل الوصول اليه علي سبيل المثال " التحكم فى طابعة الفواتير ودرج النقدية الخاص بالكاشير " هذاا .... وما توفيقي الا بالله . مع كل الشكر والتقدير للمنتدانا الغالــــي
    1 point
  33. السلام عليكم ورحمة الله وبركاته بعد إذن حضراتكم هذا تعديل بسيط فقد قمت بدمج الكوين وهذه النتيجة كود الحفظ التلقائي كل مدة 15 ثانية أو عند إغلاق ملف الاكسيل دون المطالبة بالحفظ هذا الكود يوضع في حدث : Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() Call St_A End Sub هذا الكود يوضع في حدث : Module Public Rm As Double Public Const C_Con = 15 Public Const Sc_W = "Ex" Public Sub St_A() On Error Resume Next Rm = Now + TimeSerial(0, 0, C_Con) Ali_C Rm, Sc_W, True End Sub Sub Ex() Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True St_A End Sub Public Sub Ext() Ali_C Rm, Sc_W, False End Sub Public Function Ali_C(St As Double, Sa As String, Bn As Boolean) On Error Resume Next With Application DoEvents .ScreenUpdating = False .EnableEvents = False .OnTime EarliestTime:=St, Procedure:=Sa, Schedule:=Bn .EnableEvents = True .ScreenUpdating = True End With End Function ومرفق ملف بعد التجربة وشكرا لكم جميعًا فلكم يرجع الفضل بعد الله عز وجل . مطلوب دالة.rar
    1 point
×
×
  • اضف...

Important Information