اذهب الي المحتوي
أوفيسنا

كل الانشطه

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

  1. الساعة الأخيرة
  2. مفيش طريقة حماية للبرنامج من النسخ علي اجهزة اخري مش عايز ابعت شغلي للزبون وياخدة يدية لحد تاني طريقة يمكن من خلالها نشغل البرنامج علي جهاز واحد وفي حاله التنقل يتم قفل البرنامج اذا كان موجود عن حضرتك طريقة ياريت تشرحها او تنزلنا ملف تجريبي نشتغل عليه وربنا يجزيك عنا كل خير
  3. نعم يمكن ولكن في حقل التاريخ استخدم التالي كمثال Dim rst As Recordset Set rst = Forms!Main2.Form.Recordset.Clone rst.FindFirst "[تاريخ الازدياد] = #" & Me.[تاريخ الازدياد] & "#" If Not rst.EOF Then Forms!Main2.Form.Bookmark = rst.Bookmark End If Set rst = Nothing تحياتي
  4. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub named_Click() Dim rst As Recordset Set rst = Forms!Main2.Form.Recordset.Clone rst.FindFirst "[الاسم] = '" & Me.named & "'" If Not rst.EOF Then Forms!Main2.Form.Bookmark = rst.Bookmark End If Set rst = Nothing End Sub تلامذ.rar تحياتي
  5. Today
  6. فضلك الله على العباد استاذى @ابو جودى زادك الله من فضله وادام عليك نعمة العطاء والجود اخى الكريم اكرمك الله اللهم امين يارب احترامى وتقديرى اخى الكريم
  7. السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير
  8. اشكرك جدا استاذي الفاضل المحترم تمت زي ما انا عايز بالظبط ما شاء الله عليك ربنا يجازيك عنا كل خير
  9. Ù_Ø´Ù_Ù_ات اÙ_Ù_اجØ_Ù_Ù_ Ù_اÙ_راسبÙ_- Copy.xlsm
  10. السلام عليكم ورحمة الله الكود التالى يقوم بانشاء ورقة جديدة فى خالة عم وجودها Sub CrNewSheets() Dim dic As Object, Tmp As Variant, Itm Dim i As Long, Bok As Worksheet Set Bok = Sheets("BASS") Set dic = CreateObject("scripting.dictionary") Tmp = Bok.Range("E5:E" & Bok.Range("C" & Rows.Count).End(3).Row).Value For i = 1 To UBound(Tmp) dic(Tmp(i, 1) & "") = "" Next On Error Resume Next For Each Itm In dic.keys If Len(Trim(Itm)) > 0 Then If Len(Worksheets(Itm).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = Itm End If End If Next End Sub ضعى هذه العبارة فى اول سطر فى الكود المدرج بمشاركتى الاولى Call CrNewSheets و الزر يخصص للكود الاول فقط
  11. الله يفتح عليكوا الموضوع المرفق به ملف ورشة 1 - Copy ده البرنامج ومجلد صور عاوز اعمل نموذج لعرض الصور مثل ما فى الصورة بعد اختيار المنتج اريد فتح نموذج frmControl الخاص بامر انتاج ان تكون الصور مضافة الى النموذج frmControl ممكن اعرف باذن الله ان مفيش حاجة صعبة هى مجرد افكار اكرمك الله
  12. Post the code in worksheet module. Right-click the sheet name then select View Code then paste the code
  13. اعتقد المطلوب عمل نموذج كتالوج لاستعراض الصور من مجلد محدد يكون به كل صور المنتجات وعند حضور العميل يتم استعراض الصور من خلال مجلد الكتالوج هذا وعندما يتم عمل فاتورة للعميل يريد ان يتم ربط الصور التى اختارها العميل من نموذج الكتالوج لو انا فهمت صح الموضوع بسيط - كود انشاء مجلد برقم الفاتورة فى مسار محدد -نسخ الصور التى يتم اختيارها من قبل العميل الى هذا المجلد وطبعا فى انتظار التوضيح
  14. جازانا و اياكم اخي انت ناقص لك ادخال شرط التاريخين صح و لا انا غلطان
  15. نعم اخي هذا ما اريده . جزاك الله كل خير و بارك الله فيك .👌
  16. وعليكم السلام 🙂 فتحت النموذج ، ولم افهم طلبك !! رجاء التوضيح بمثال لوسمحت 🙂 جعفر
  17. ا جازانا و اياكم جرب و قل تعديلك
  18. حاضر اخي abolo . جزاك الله كل خير .
  19. جرب هذا الجمع بشرط.rar
  20. هذا مجموع لكل العملاء . مثلا في مربع البحث لو نبحث على الشخص الاول . هل يقوم بالجمع او لا والجمع يكون بناء على الحقل 5 اذا يساوي 1 يجمع واذا 2 لا يجمعه معه ؟
  1. أظهر المزيد
×
×
  • اضف...

Important Information