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

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


Popular Content

Showing content with the highest reputation since 09 يول, 2019 in all areas

  1. 7 points
    هي محاولة سابقة لي مع أستاذي أبو خليل والذي استفدت منه أفكارا كانت غائبة عن ذهني لو لم يسعفني بها أطرحه بين أيدكم للاستفادة منه لأني سألت نفسي لماذا أحتفظ به وقد أنهيته فلا حاجة لي به فربما يحتاجه غيري ويضيف ويعدل ويطور هي محاولة مني والكمال لله سبحانه وتعالى Askan.rar
  2. 5 points
    أخي @Amr Ashraf أخي @ابا جودى تم تعديل الملف ارجو التجربة وابداء الرأي .... والمجال مفتوح لجميع الأعضاء لإبداء الرأي .... تفضلوا .... Example.accdb
  3. 4 points
    السلام عليكم 🙂 المنتدى مليئ بمختلف المواضيع ، لهذا السبب فإننا ننصح بإستخدام خاصية البحث ، قبل وضع سؤال جديد ، فهناك احتمال كبير بوجود عدة اجابات لسؤالك 🙂 وبطبيعة الحال ، فهناك العديد من المواضيع القديمة ، والتي قد نستفيد منها بطريقة او اخرى. واذا اردنا ان نسأل في موضوع قديم ، فيجب ان نأخذ رابط ذلك الموضوع ، ونعمل موضوع جديد نضع فيه سؤالنا ، ونشير الى ذلك الرابط القديم 🙂 واذا اردنا ان نشكر صاحب الموضوع ، فممكن بالنقر على ايقونة الشكر: ورجاء عدم وضع ملاحظة/طلب تعديل/سؤال جديد في موضع قديم 🙂 جعفر
  4. 4 points
    يمكنك وضع السطر الأول في بداية الكود الذى يسبب اهتزاز الشاشة والسطر الأخر في نهاية نفس الكود
  5. 4 points
    طريقة أخرى اكثر شمولية ضع في حدث عند الخروج للحقل If Not IsNumeric(Me.YrField) Then MsgBox "القيمة المدخلة ليست رقم" Cancel = True End If Select Case Len(YrField) Case 12 Case Else MsgBox ("يجب أن يحتوي الحقل على 12 رقم") Cancel = True End Select 🙂
  6. 4 points
    الأخ الفاضل خالد العنود جرب المرفق بالتوفيق Befor Del confirm.zip
  7. 3 points
    تفضل-بمجرد الضغط على أيقونة فتح صفحة جديدة ,سوف يتم ادراج صفحة جديدة بتاريخ اليوم به قائمة منسدلة بالمطلوب في الخلية A1 اختر منها ما تريد ولاحظ تغيير لون شريط الصفحة بمجرد الإختيار وعذرا قد تم تغيير بنود القائمة المنسدلة الى اللغة الإنجليزية لعمل الكود بكفاءة ** فتكون العطلة الرسمية ...... Official holiday **والدوام الرسمى ...... Official time **و غير ذلك ......Other تلوين.xlsm
  8. 3 points
  9. 3 points
  10. 3 points
    جرب المرفق دالتين الاول تلغي الكسر والاخرى ترفع الكسر اذا كان اكبر من النصف Database13.accdb اعتذر منك اخي kaser906 لم اشاهد ردك
  11. 3 points
    اعجبني وما بعرف مين صممه حكمة اليوم.accdb
  12. 3 points
    السلام عليكم ورحمة الله وبركاته اقدم هدية متواضعة لكم تصريح دخول للبرنامج الرقم السري 12345 تصريح دخول.accdb
  13. 3 points
    السلام عليكم 🙂 جعفر
  14. 3 points
    وعليكم السلام ورحمة الله أخي @jjafferr لو يتم اغلاق الموضوع بصورة إلية بعد مرور اسبوعين وهو في حالة خمول وليس فيه تفاعل .... بهذه الصورة ضمان لعدم الرد في نفس الموضوع .... ومن يرد الاستفسار حول نفس الموضوع يتم بالطريقة التي ذكرتها أنت ....... بارك الله فيك وعلى التنبيه
  15. 3 points
    تابع الشرح ..... قبل الشرح أود التأكيد على نقطة عند كتابة المسميات أكتبها بالانجليزي ومتلاصق مثل Fullname أو Full_name بالصور : هل استطعت فتح الملف ؟؟؟؟؟؟
  16. 3 points
    تفضل- تم عمل معادلة جلب جميع الأصناف المدخلة في الشيت الإجمالى.xlsm التفصيلى.xlsx
  17. 3 points
  18. 3 points
    بارك الله فيك استاذ . @ازهر عبد العزيز مسافر حتى الان اجيب من الموبايل .... أشكرك ...
  19. 3 points
    وعليكم السلام-بارك الله فيك وجزاك الله كل خير
  20. 3 points
    اهلا بك في المنتدى تفضل الإجمالى.xlsm التفصيلى.xlsx
  21. 3 points
  22. 3 points
    وعليكم السلام-كان عليك من البداية استخدام خاصية البحث فى المنتدى-فهنا العديد من الموضوعات التى تخص طلبك ومنها : https://www.officena.net/ib/topic/29892-توزيع-الأقساط-و-متابعة-سدادها-بـ-excel/?tab=comments#comment-148900 https://www.officena.net/ib/topic/89374-برنامج-تسجيل-الاقساط-بشكل-اوتوماتيك-اهداء-لكم/?tab=comments#comment-577703 https://www.officena.net/ib/topic/60753-برنامج-لإدارة-الأقساط/?tab=comments#comment-390838 https://www.officena.net/ib/topic/69314-معادلة-احتساب-عدد-الاقساط-مرتبط-بالمبلغ-المستحق-الكلي/?tab=comments#comment-451242 https://www.officena.net/ib/topic/69787-برنامج-العطاء-للتقسيط-الخامس-المجاني-قريبا/?tab=comments#comment-453851 https://www.officena.net/ib/topic/13020-برنامج-التقسيط-للأفراد-والمؤسسات/?tab=comments#comment-55880 https://www.officena.net/ib/topic/89184-برنامج-الاول-للاقساط/
  23. 3 points
    الأساتذة @ابا جودى @qassim-t @AlwaZeeR احسنت حفظكم الله ..... في الحقيقة اكو اشخاص لشديد اعجابي بهم سوف اترك الصورة تعبر عني [Hannibal]
  24. 3 points
    ومن اين يتم جلب تواريخ هذه المناسبات -لابد من معرفتها مسبقا ووضعها فى الملف ؟!!!
  25. 3 points
    تفضل والكود الأول ينسخ مئة بالمئة ولكن يحتاج لتغيير البيانات حسب ما هو في الجدول الخاص بك جرب ووافني بالنتيجة Pro1N.rar
  26. 3 points
  27. 3 points
    طلبك موجود في المنتدى بكثرة عموما تفضل تم التعديل على نفس مثالك FrmCountr.accdb
  28. 3 points
    السلام عليكم -لو كنت تقصد اهتزاز الشاشة يمكنك ادخال هذا السطر في الكود لمنع اهتزاز الشاشة Application.ScreenUpdating = False وهذا السطر الأخر للرجوع للحالة الأولى للملف Application.ScreenUpdating = true على الرغم بعد ذلك عند رفع اى استفسار او مشاركة فلابد من رفع الملف لتوفير الوقت في المساعدة
  29. 3 points
  30. 3 points
    أهلا بك @ازهر عبد العزيز حتى ينتهي @ابا جودى و @Khalf من العتاب إليك الطريقة في عرض التصميم للنموذج.. حدد زر الأمر المطلوب؛ ومن التبويب أخري.. غير قيمة افتراضي إلى نعم!
  31. 3 points
  32. 2 points
    وعليكم السلام-عليك برفع الملف لمشاهدة ومعاينة المشكلة عن قرب دائما وابدا اجعل المشاركة مدعومة بملف ليسهل المساعدة وعدم اهدار الوقت
  33. 2 points
  34. 2 points
    كنت ولا زلتم وسوف تبقون حتى يرث الله الأرض ومن عليها شموعاً مضيئة ونجوماً متلألئة في فضاء العلم ومخارجه ,, ووجهة يعتز بها ويعتمد عليها بعد الاعتماد على الله ايها الصدقون الاوفياء في هذا المنتدي الكبير القيمة والقامة عطاء بلا حدود صدق المعلومة الرد السريع الوافي.تحية وفاء وعرفان لكل من حمل مشعل العلم من أجل إنارة العقول ,, تحية لكل من حفظ أمانة التعليم وصدق في أداء رسالته السامية تجاه مبتدئين العمل من المحيط إلى الخليج لـ يقول انا هنا من أجل التضحية بالوقت والجهد وصحة البدن لتعليمكم في كل وقت وحين نشكركم ولا نستطيع اعطائكم حقكم علينا لا ان نقول بارك الله فيكم وزادكم علما ونورا واصلح الله لكم زريتكم من البنات والبنين وتروهم كما تحب اعينكم ........... شكرين لكم وجعلة في ميزان حسناتكم احبتي الكرام...
  35. 2 points
    السلام عليكم اتمنى اللي عنده برنامج جاهز مجاني يشاركه هنا معنا لكي يستفيد الجميع مخازن - مشتريات - مبيعات - عملاء - موردين - قبض - صرف - كشوفات حساب جزاكم الله خيرا اساهم معكم بأول برنامج برنامج المحل.rar
  36. 2 points
    بفضل من الله ثم بدعائكم تم دمج السندات مع بيانات أرس الفاتورة مع أطرفها في فاتورة واحد تدعم الطابعة الحرارية اعطوني رأيكم في التصميم والبيانات التي تريدونها .
  37. 2 points
    يمكن للجميع الان اضافة الاسم الحقيقي فى البروفايل دون تغيير اسم الدخول و المشاركة و ذلك لسهولة التواصل و هذا عن طريق اعادة استخدام خاصية الرتبة السابقة ، و التي لم نعد نستخدمها حاليا فى الموقع و الخطوات كالتالي ا- اذهب الي الملف الشخصي من اعلى يسار صفحة المنتدى 2- اختار تعديل الملف الشخصي 3- قم بتعديل الاسم فيظهر الاسم الفعلي فى صفحة الروفايل كما يلي و بالتالي ستظهر فوق الصورة فى كل المشاركات مثال:
  38. 2 points
    جرب هذا الماكرو Option Explicit Rem =====>> created by Salim Hasbaya 13/7/2019 Sub Get_Data_Please() '========================== Dim Source_Sh As Worksheet Dim Target_Sh As Worksheet Dim LRS%, LRT%, RG_S As Range, RG_T As Range Dim cel As Range, My_adrs As Range '========================== Set Source_Sh = Sheets("DATA") Set Target_Sh = Sheets("TAB") LRS = Source_Sh.Cells(Rows.Count, 2).End(3).Row LRT = Target_Sh.Cells(Rows.Count, 3).End(3).Row Set RG_S = Source_Sh.Range("b3:M" & LRS) Set RG_T = Target_Sh.Range("C4:E" & LRT) Target_Sh.Range("F4:H" & LRT).ClearContents On Error Resume Next For Each cel In RG_T On Error Resume Next Set My_adrs = RG_S.Find(cel, lookat:=1) On Error GoTo 0 If Not My_adrs Is Nothing Then cel.Offset(, 3) = Source_Sh.Cells(My_adrs.Row, 2) End If Next End Sub الملف مرفق ب جدول - Copy.xlsm
  39. 2 points
    تفضل يا سيدي 🙂 Private Sub BtnAllRcrd_Click() 'On Error GoTo ErrHandler On Error Resume Next Dim rs As DAO.Recordset Dim LWordDoc As Object Set LWordDoc = CreateObject("Word.Application") Set rs = CurrentDb.OpenRecordset("Table1") If Not rs.EOF Then rs.MoveFirst Do Until rs.EOF LWordDocOriginal = CurrentProject.Path & "\WordDoc.Doc" ' LWordDocSaveAs = CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" ' FileCopy LWordDocOriginal, LWordDocSaveAs ' LWordDoc.Documents.Open CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc" LWordDoc.Documents.Open LWordDocOriginal LWordDoc.Visible = False LWordDoc.ActiveDocument.Bookmarks("fname").Select LWordDoc.Selection.InsertAfter Nz(rs!Fullname.Value, "") LWordDoc.ActiveDocument.Bookmarks("Civ").Select LWordDoc.Selection.InsertAfter Nz(rs!CivilNo.Value, "") LWordDoc.ActiveDocument.Bookmarks("Nat").Select LWordDoc.Selection.InsertAfter Nz(rs!Nationality.Value, "") LWordDoc.ActiveDocument.Bookmarks("Rate").Select LWordDoc.Selection.InsertAfter Nz(rs!Rate.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chin").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckIn.Value, "") LWordDoc.ActiveDocument.Bookmarks("Chout").Select LWordDoc.Selection.InsertAfter Nz(rs!CheckOut.Value, "") LWordDoc.ActiveDocument.Bookmarks("Pr").Select LWordDoc.Selection.InsertAfter Nz(rs!Price.Value, "") LWordDoc.ActiveDocument.SaveAs (CurrentProject.Path & "\" & rs!Fullname & "_Doc.Doc") rs.MoveNext Loop 'LWordDoc.Application.Documents(rs!Fullname & "_Doc.Doc").Save 'LWordDoc.Quit 'LWordDoc.ActiveDocument.SaveAs (rs!Fullname & "_Doc.Doc") LWordDoc.Quit Set LWordDoc = Nothing 'ErrHandler: ' If Err.Number = 3021 Then Resume Next End Sub جعفر
  40. 2 points
    استبدل هذا السطر في الكود R1 = RG_Source.Columns(1).Find(Target_sh.Range("D7")).Row بهذا R1 = RG_Source.Columns(1).Find(Target_sh.Range("D7"),Lookat:=Xlwhole).Row Xlwhole هنا حرف الـــ L باللغة الانكليزية وليس رقم 1 اذا كان هذا الجواب الكود يفي بالغرض اضغط على افضل اجابة لإغلاق الموضوع
  41. 2 points
    تحديث يوم السبت ، 13 / 07 / 2019 م الموافق 10 ذو القعدة 1440 هـ تم إجراء التالي : إضافة نموذج ضبط المصنع . إضافة نموذج النسخة الاحتياطية . تنسيقات ومميزات أخرى . تصحيح بعض الأخطاء . بالتوفيق يمكنك تغيير اسم المستخدم من نموذج البيانات الأساسية من حقل "مدير الؤسسة" أخوكم صالح عبدالله البريكان أبو آمنة ‏‏BuySal19_v04.rar
  42. 2 points
  43. 2 points
    بعد اذن استاذى @AlwaZeeR ساقوم بالشرح لاخونا يوسف شوف يا استاذ يوسف اولا انت عندك استعلام باسم T_ward_mon اول شئ غير اسمه ليكون مثلا T_ward_monA بعد ين انشئ استعلام جديد ويكون اسمه T_ward_mon ومصدر بيانات الاستعلام الجديد هذه هو الاستعلام القديم الذى تم اعادة تسميته الى T_ward_monA وانظر الى المعايير داخل الحقول 100 (3).accdb
  44. 2 points
  45. 2 points
    جرب هذا الماكرو Option Explicit Sub Verify_data() With Sheets("ورقة1") Dim my_rg As Range Dim i% Set my_rg = Range("A2", Range("M1").End(4)) For i = 1 To my_rg.Rows.Count If my_rg.Cells(i, 2) = False Then _ my_rg.Cells(i, 7).Resize(, 7) = 0 Next End With End Sub الملف مرفق tajriba.xlsm
  46. 2 points
    بالفعل أستاذ احمد لو حضرتك لاحظت تم دمج هذه المشاركات بالفعل من قبل هنا لأنهما نفس الطلب ونفس الموضوع
  47. 2 points
    وعليكم السلام-تفضل مشكلة الحضور قبل الموعد في الاكسيل.xlsm
  48. 2 points
    دالة في اكسيس ينتج عنها سلسلة نصية او قيمة رقمية ويمكن استخدامها في منشئ التعبير وتستخدم ايضا في الجافا وفي php <?php eval("$msg"); ?>
  49. 2 points
    لا يمكن العمل على التخمين عليك برفع الملف وشرح المطلوب عليه بكل دقة
  50. 2 points
    🙂 أبو جودي قاصدها يا أستاذ عبد هلأ بدك تدفع هههههه ::


×
×
  • اضف...