كل الانشطه

ارجوا المساعدة

مفيش طريقة حماية للبرنامج من النسخ علي اجهزة اخري مش عايز ابعت شغلي للزبون وياخدة يدية لحد تاني طريقة يمكن من خلالها نشغل البرنامج علي جهاز واحد وفي حاله التنقل يتم قفل البرنامج اذا كان موجود عن حضرتك طريقة ياريت تشرحها او تنزلنا ملف تجريبي نشتغل عليه وربنا يجزيك عنا كل خير

نعم يمكن ولكن في حقل التاريخ استخدم التالي كمثال 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 تحياتي

استاذ هل اسطيع اكمل الكود في بقية الحقول

وفيك بارك استاذنا الفاضل تحياتي

بارك الله فيك استاذ محمد ابو عبد الله

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي

طلبي مش واضح ولا ايه يا اهل الكرم

للرفع رفع الله قدرك استاذى @د.كاف يار

فضلك الله على العباد استاذى @ابو جودى زادك الله من فضله وادام عليك نعمة العطاء والجود اخى الكريم اكرمك الله اللهم امين يارب احترامى وتقديرى اخى الكريم

السلام عليكم ورحمة الله وبركاته استاذي الفاضل ابا جودي ظهرت عندي بعض الاشكاليان اثناء تطبيق المثال على الفاتوره لدي مبلغ القيمة المضافه والاجمالي يظهر بعدد عشري طويل ماهي الطريقة لجعله ياخذ العدد بعدد عشري قصير يعني تظهر الهلالات برقمين فقط مثل انه يكون بهذا الشكل 200.50 وكذلك التاريخ يحذف رقمين من العام الوقت مافيه مشكله تمام لاحظ الصوره المرفقه لحقول الفاتوره الاساسيه والارقام بعد جمعها في مربع النص بارك الله فيك وجزاك الله خير

اشكرك جدا استاذي الفاضل المحترم تمت زي ما انا عايز بالظبط ما شاء الله عليك ربنا يجازيك عنا كل خير

Ù_Ø´Ù_Ù_ات اÙ_Ù_اجØ_Ù_Ù_ Ù_اÙ_راسبÙ_- Copy.xlsm

السلام عليكم ورحمة الله الكود التالى يقوم بانشاء ورقة جديدة فى خالة عم وجودها 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 و الزر يخصص للكود الاول فقط

الله يفتح عليكوا الموضوع المرفق به ملف ورشة 1 - Copy ده البرنامج ومجلد صور عاوز اعمل نموذج لعرض الصور مثل ما فى الصورة بعد اختيار المنتج اريد فتح نموذج frmControl الخاص بامر انتاج ان تكون الصور مضافة الى النموذج frmControl ممكن اعرف باذن الله ان مفيش حاجة صعبة هى مجرد افكار اكرمك الله

Post the code in worksheet module. Right-click the sheet name then select View Code then paste the code

اعتقد المطلوب عمل نموذج كتالوج لاستعراض الصور من مجلد محدد يكون به كل صور المنتجات وعند حضور العميل يتم استعراض الصور من خلال مجلد الكتالوج هذا وعندما يتم عمل فاتورة للعميل يريد ان يتم ربط الصور التى اختارها العميل من نموذج الكتالوج لو انا فهمت صح الموضوع بسيط - كود انشاء مجلد برقم الفاتورة فى مسار محدد -نسخ الصور التى يتم اختيارها من قبل العميل الى هذا المجلد وطبعا فى انتظار التوضيح

جازانا و اياكم اخي انت ناقص لك ادخال شرط التاريخين صح و لا انا غلطان

نعم اخي هذا ما اريده . جزاك الله كل خير و بارك الله فيك .👌

وعليكم السلام 🙂 فتحت النموذج ، ولم افهم طلبك !! رجاء التوضيح بمثال لوسمحت 🙂 جعفر

اتفضل يا استاذ @abouelhassan abouelhassan.accdb

ا جازانا و اياكم جرب و قل تعديلك

حاضر اخي abolo . جزاك الله كل خير .

جرب هذا الجمع بشرط.rar

هذا مجموع لكل العملاء . مثلا في مربع البحث لو نبحث على الشخص الاول . هل يقوم بالجمع او لا والجمع يكون بناء على الحقل 5 اذا يساوي 1 يجمع واذا 2 لا يجمعه معه ؟