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

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

تفضل لك ما طلبت العملاء.xlsm

نفس طريقة اخواني محمد و خالد ، ولكن بدون الرجوع الى الجدول مصدر بيانات النموذج الفرعي ، وانما كل شيء من النموذج مباشرة : Dim rst As DAO.Recordset Set rst = Me.USER_PRIVILLAGE.Form.RecordsetClone rst.MoveFirst Do Until rst.EOF rst.Edit rst!DELETE = -1 rst.Update rst.MoveNext Loop جعفر

شكرآ اخي @Moosak وجزاكم الله خير الجزاء

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير بالتوفيق

انا قلت لعلنا .. لان لا جديد في ردك .. فاعتذر اما بالنسبة لشرائح الكهرباء فمختلف تماما عن طلبك لانه يتعامل مع خلية واحدة بين نطاقين

وعليكم السلام ورحمه الله وبركاته فى مصدر عنصر التحكم لاسم الشهر =Format(Date();"mmmm") وللسنه =Year(Date()) بالتوفيق test(1).accdb

السلام عليكم مشاركه مع الاخ الفاضل @Mohamed Hicham جزاه الله خيرا 💐 🌹 تم تعديل السطر التالى باضافه ناقص 6 وهى الاعمده الفارغه .Range("C10").Resize(j - 1, UBound(temp, 2) - 6).Value = temp بالتوفيق AHMAD(1).xlsm

ما اعرف انت تقصدني انا على كل حال انا فعلا عملت في شركة العالمية وكيل شركة صخر اعتقد عام 1987 اشتغلت معهم في الفترة المسائية لمدة سنة لتعليم لغة صخر بيسك وهي تعريب كامل للغة qbasic وقتها كان عندهم برنامجين اساسيات البرمجة بلغة صخر لوجو و الثاني البرمجة بلغة صخر بيسك ولكن المشروع لم يكتب له النجاح لا اقصد جهاز الالعاب وانما اجهزة كمبيوتر xt بمعالجات 8088 و 8086 مرفق صورة لاحد الكتب الخاصة بصخر بيسك الصورة من الانترنت ولكن مذكرات المنهج الاساسي مازالت لدي على سبيل الذكرى تحياتي مع الاعتذار لصاحب الموضوع و للاساتذة الكبار عن الخروج عن سياق الموضوع ولكن الشي بالشي يذكر

احسنت اخي ولكن انا اتحدث عن كتابة الكود هكذا ⬇️ لو تلاحظ اننا لم نحدد مكان البحث في الكود ولكن نقلنا التركيز اليه Me.id.SetFocus DoCmd.FindRecord tx2, , True, , True تحياتي

وعليكم السلام ورحمة الله تعالى وبركاته تم انشاء كود جديد يلبي المطلوب بادن الله Sub M_H() Dim i As Long Dim MH As Long, k As Long Application.ScreenUpdating = False With Sheets("saad") lr = Cells(Rows.Count, 1).End(3).Row 'افراغ النطاق من البيانات السابقة قبل الترحيل Sheets("data").Range("c10:l" & lr).ClearContents lrow = .Cells(Rows.Count, 2).End(xlUp).Row ' الاعمدة المطلوب ترحيلها frt = Split("B,D,E,G,I,L,J,K,O", ",") 'الاعمدة المرحل اليها tot = Split("D,E,F,G,H,K,I,J,L", ",") For i = LBound(frt) To UBound(frt) 'نسخ البيانات ابتداءا من الصف العاشر .Range(frt(i) & "10:" & frt(i) & lrow).Copy Sheets("Data").Range(tot(i) & "10") Next i End With ' ترقيم تلقائي للصفوف المرحلة بشرط وجود قيمة في 'العمود(D) 'ابتداءا من الصف العاشر With Sheets("data") k = 1 For MH = 10 To .Range("D" & .Rows.Count).End(xlUp).Row If .Range("C" & MH) = valeu Then .Range("C" & MH) = k k = k + 1 End If Next MH End With ' كود اظافي 'With Sheets("data") '.Range("C10") = 1 '.Range("C11") = 2 '.Range("C10:C11").AutoFill .Range("C10:C" & lrow) 'End With End Sub AHMAD-MH.xlsm

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

بالنسبه لهذه الجذئية هل هذا ما تريده مرفق ملف بالنسبه لهذا يمكنك البحث فى المنتدي ستجد الكثير منها الطلبة الخريجين.rar

اخي محمد يجب ان ترفع اول مثال ترفعه مرة اخرى ويجب ان يحتوي الجدول على تواريخ كثيرة حقيقية من واقع العمل من خلال الاطلاع على التواريخ ودراستها ،، لعلنا ان نصل الى حل مرضي .. وحط تحت لعلنا خط

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير @mohamedmas نتمنى لك التوفيق والتعلم لتفيد اخوانك وتبقى مسيره العطاء دائمه بالتوفيق

بل انا من يستفيد اكثر ونتعلم منكم علما وخلقا تحياتي

بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا

اضافة لمشاركة استاذنا الكبير محمد البرناوي جزاه الله خير ممكن ايضا تحديد السجلات والغاء التحديد عن طريق مصدر السجلات لتحديد الكل Dim rs As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("tab_name") For a = 1 To rs.RecordCount rs.Edit rs!DELETE = -1 rs.Update rs.MoveNext Next a -------- لالغاء التحديد للكل نغيير السطر السادس الى rs!DELETE = 0 تحياتي

تفضل أخي هذا التعديل 🙂 : مع ملاحظة أنني قمت بتحويل حقل الصورة إلى حقل نصي بدل (إرتباط) وذلك لتجنب بعض الإشكالات في الكود . لإضافة مرفقات إضافية تكرر سطر إضافة مرفق كل مرة كما هو موضح بالكود .. لأن في الصورة لديك مرفقان بينما في برنامجك مرفق واحد .. فإذا كنت ستكتفي بمرفق واحد ألغِ سطر المرفق الإضافي .. Dim MyOutlook As Object Set MyOutlook = CreateObject("Outlook.Application") Dim MyMail As Object Set MyMail = MyOutlook.CreateItem(olMailItem) MyMail.Attachments.Add Me.Imagepath.Value ' المرفقات MyMail.Attachments.Add "C:\file2.PDF" ' إضافة مرفق ثانٍ MyMail.Display ' لتشغيل برنامج الأوتلوك والتركيز عليه Set MyOutlook = Nothing Set MyMail = Nothing ارسال ايميل مع المرفق (1).rar

انتبه من فضلك فعليك استخدام خاصية البحث بالمنتدى ,فطلبك تكرر كثير جداً وشوف بنفسك https://www.officena.net/ib/search/?q=متفرقة&quick=1&type=forums_topic&nodes=135

السلام عليكم مشاركه مع اخى @عمر ضاحى فى حدث فالحالى للنموذج الفرعى Private Sub Form_Current() If Not Me.NewRecord Then Me.AllowEdits = False End Sub بالتوفيق try1.accdb

هل هذا ما تريد مرفق الشكل النهائى try1.rar

وبما انك لم تقم برفع الملف فسيتم الرد عليك أيضاً بدون ملف ... يمكنك مشاهدة هذا الفيديو وهذا فيديو أخر How to Create Barcodes in Excel - الطريقة الأسهل على الإطلاق لإنشاء الباركود في الإكسل

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

وعليكم السلام-وما هو الداعى لذلك وما فائدة ذلك -عموماً -يمكنك ذلك بإضافة هذا الكود فى كل اكواد التكست بوكس بداية من التكست بوكس6 حتى تكست بوك 27 ,,,ولا تنسى تغيير رقم التكست بوكس بالكود Private Sub TextBox6_Change() Me.TextBox6.Text = Format(TextBox6, "0.00") End Sub القيمة رقمين بعد الفاصلة.xlsm

وعليكم السلام-انتبه من فضلك فلا يمكن مشاركة اى ملف اكسيل على جوجل طالما يحتوى على أكواد VBA وشكراً !!!

وعليكم السلام-وبما انك لم تقم برفع الملف .. فعليك بإستخدام خاصية البحث بالمنتدى ,,, فطلبك تكرر كثير جدا !!!!!!!!!

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

وعليكم السلام-موجود بالمنتدى ... من فضلك استخدم خاصية البحث بالمنتدى وستجد ما تريد وشكراً

ارفع الملف من فضلك ولكن لابد من التأكد ان هذا ملفك لأنك كما تعرف المفروض هذا مكفول فغقط لصاحب العمل فيمكنك طلب كلمة السر منه شخصياً !!! وهذا يعتبر مخالف لقوانين ومبادىء المنتدى

لا يوجد حل سوى هذا ان لم تنحل المشكلة فعليك بتسطيب أوفيس جديد

وعليكم السلام-والله نبهنا كثير جداً على هذا الأمر ... فإرفع من فضلك الملف حتى لا يتم اهدار المزيد من الوقت لكل من يطلع على مشاركتك دون جدوى أو أهمية فلا يمكن العمل على التخمين ... فربما يقوم أحد الأساتذة متطوعين لك بإجابة لما طلبت فقد تكون هذه الإجابة غير شافية لك وليست المطلوبة فبالتالى قمت بإضاعة وقت من قدم لك هذه الإجابة دون جدوى أو أهمية وانت لا تعرف كم من الوقت قضاه فى الحصول والوصول الى الإجابة المقدمة لك !!!

وبكده الأمر ليس سهلاً مطلقاً فمن أين أعرف الخامات المطلوبة لمنتج معين وعلى أى اساس يتم ترتيب هذه الخامات ؟!!! فأعتقد لا يمكن عمل هذا الا يدوياً

ارفع من فضلك ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... فلا يمكن العمل من خلال الصورة كما لا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية !!!

جزاك الله كل خير الدكتور جمال راجح ولكن البرنامج لا يفتح معى نهائياً وتظهر معى هذه الرسائل

Jehad.93 لما كل هذا التأخر فى الرد بعد 11 يوم ... كان يجب غلق المشاركة !!!!

وعليكم السلام-بما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك . فبها طلبك , تفضل : print listbox وهذا أيضاً فيديو للشرح وهذه مواقع لكاتب الأكواد https://www.patreon.com/posts/47615393 http://vbawriter.com/vba/

وعليكم السلام-أخى الكريم الملف كما ترى يفتح معى بكل كفاءة وشوف بنفسك فأكيد كده المشكلة عندك انت فلا توجد عندى اى مشكلة عند التعامل مع الملف

وعليكم السلام-مبدئياً لا يمكن لأى أحد مساعدتك بدون رفع الملف وتوضيح المشكلة بكل دقة فلا يمكن العمل على التخمين ... ومن تالواضح من هذه الرسالة ان الكود لا يعمل عند وجود الخلايا المدمجة .. يجب ان تعود نفسك ان تبتعد قدر المستطاع عن عمل الخلايا المدمجة فهذه دائماً تقف عائقاً امام تنفيذ اى كود وشكرا

وعليكم السلام .. لا يوجد اى برنامج لذلك وان وجد يكون بمقابل مادى وأعتقد انه غير دقيق وليس مأكد لإستراجاع ما فقد !!!

وعليكم السلام -فين الملف ؟!! لا يمكن المساعدة بدون الملف ... فلا يمكن العمل على التخمين !!!

تجنباً لإهدار وقت الأساتذة وبما انه لا يمكن العمل على التخمين وليس هناك وقت لتقديم أكثر من حل ويرفض من صاحب الموضوع .. فلابد من رفع ملف مدعوم بشرح كافى عن المطلوب مع توضيح نطاق الخلايا التى تريد عمل المطلوب بها وشكرً !!!!