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

السلام عليكم ورحمة الله وبركاته.. كنت قد طرحت سابقًا موضوع يتكلم عن ارسال رسائل الى الواتس اب لعدد X من المستخدمين من خلال الاكسس وهنا X معناها عدد معين كأن يكون 10 مستخدمين او اكثر او اقل.. الموضوع القديم كان فيه مشكلة وهو ان رسائل الواتس اب الطويلة لا يمكن ارسال او تُرسل بشكل مقطوع! الحمدلله في هذا الاصدار تم التغلب نهائيًا على هذه المشكلة واصبح البرنامج يرسل عدد كلمات بالعدد الذي يسمح به الواتس اب الجديد في هذا الاصدار: امكانية ارسال المرفقات ( الصور فقط ) 1- يمكنك ارسال رسائل فقط 2- يمكنك ارسال صور فقط 3- يمكنك ارسال رسالة مع صورة صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download بالمناسبة: الحمدلله انتهيت من برنامج تحويل الصور الى نصوص مهما كانت اللغة ( OCR ) وخصوصا اللغة العربية وحتى الصور التي تكون مكتوبة بخط اليد يتم تحويلها الى نصوص يسهل التعديل عليها في برنامج الوورد البرنامج يعمل بطريقتين: 1- يمكنك تحويل الصور بشكل مباشر 2- يمكنك استخدام الاكسس في ارسال CommandLine يتضمن مسار الصورة ومسار ملف التكست للنص الذي سوف يحفظ وسيقوم البرنامج بعمله لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. SendWhatsAppMessages.rar

الحقيقة لا يسعني إلا الثناء على هذا التصميم الرائع واللمسات الفنية الجميلة ما شاء الله تبارك الرحمن 😊 ولكن لاحظت أنك لم تضف خيار لإضافة الأسماء والأرقام .. وعند محاولة الإرسال يفتح على هذه الصفحة ويقف بدون أن يرسل شيء 🙂 :

مثال (1).xlsx

وعليم السلام.. عملت لك جدول للاسعار ونموذج لادخال الاسعار الجديده.. جرب على فاتورة المبيعات Test .rar

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والمتواضعة ( زاد المثابر للحصول على أسماء العناصر) هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. وهنا اختصرت على نفسي الكتابة وقمت بشرح الأداة مرئيا 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف المستخدم في الشرح وبه النموذج : التحديث 2.0 : تم إضافة خاصية جلب عناصر النماذج الفرعية .. والتقارير الفرعية .. شكرا للأخ @عمر ضاحى على الفكرة 🙂

عليكم السلام تفضل0 Dim tblx As String tblx = Me.Modifiable5 DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Edusoft\Record.accdb", acTable, tblx, tblx, False المرفق هو الواجهة التي على سطح المكتب Record.accdb

أخي at_aziz اذا عجبك هذا الحل بسوي شيء يعجبك أكثر من ذلك.

السلام عليكم ورحمة الله وبركاته درسنا اليوم يتكلم عن كيفية تحزيم برنامج الأكسس بعد أن تنتهي من تصميم برنامجك وتكون مستعدا لتحويله إلى ملف EXE وذلك ليسهل عليك تنصيبه في أجهزة الحاسوب سواءا لعملائك أو أجهزة العمل أو غيرها .. كل ما ستحتاجه لتطبيق درس اليوم هو : ملف الأكسس / وأيكونة برنامجك الخاص ( اختياري) / وصورة لشاشة البدء بصيغة BMB ( اختياري) / وبرنامج الوينرار WinRAR . فعلى بركة الله ..

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

وعليكم السلام ورحمه الله وبركاته ارفق ملف به وليكن 50 بيان في الشيت رقم 1 و 100 بيان في الشيت رقم 2 ملف معبر عن ما تحتاج اليه حتي لا تضيع وقت الاخوة وتجد مبتغاك

وعليكم السلام ورحمه الله وبركاته اجعل الكود بهذا الشكل Sub Test() With Range("E5") .Value = Range("D5") / Range("C5") .NumberFormat = "0.0000%" End With End Sub

جزيت خيرا د.حسنين والجميل في العمل مفارقة المتصفح اكسبلورر

الله الله الله عليك دكتور 🙂 إبداع في قمة الإمتاع 😃 رحم الله والديك وأسكنهما مستقر رحمته ، وبارك الله فيك وذريتك إلى يوم الدين .. 🌹 بس ليش يرسل صور بس ؟ 😅🖐️ ممكن تضيف له المستندات بعد .. 🙂

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

جزاك الله خيرا دكتور حسنين @SEMO.Pa3x الله يرحم والديك

الحمد لله ان الفكره جازة اعجابك وربنا يوفقك فى جميع شؤن حياتك لما فيه الصالح لك ولجميع المسلمين الف شكر

فكرة جميلة .. ربما يتم إضافتها في تحديث قادم .. (جاري تطويرها ) 🙂

السلام عليكم حمل برنامج adobe acrobat PDF

تم الحل وهذا هو كود التحديد Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveFirst Do Until rs.EOF rs.Edit If rs![Select] = "R" Then rs![Select] = "T" Else rs![Select] = "R" End If rs.Update rs.MoveNext Loop DoCmd.SetWarnings True Exit Sub ErrorHandler: MsgBox "Error " & err.Number & ": " & err.Description End Sub

شكرا اخي الفاضل هذا هو المطلوب

منذ الصباح الباكر وأنا أحاول مع هذه المشكلة الغريبة. أنا الحقيقة لا أحب ولا أتعامل مع هذا النوع من النماذج Continuous Forms ولا إضافة معادلات لمصدر الصناديق Control Source وسامحني قد لا أستطيع التواصل معك فأنا انقطعت عن برامجي الخاصة ولا بد أن أرجع لها. قاعدة بيانات4_02.accdb

انا عملت لك المثال على تاريخ الأذن لأتأكد من ترقيم الجميع .. لانه موجود في جميع السجلات تفضل الآن الترقيم بناء على تاريخ التسديد باستخدام استعلام الذي سيحصر المسدد فقط وعملت لك استعلامين لاظهار المسدد / وغير المسدد Database14mar.rar

ممكن ترفعها على نسخة اقدم ..استخدم اوفيس 2013

كان من المفروض رفع ملف الوقت ضيق جداً لإنشاء ملف يحتوي عما تريد لكن حيث انها المرة الاولى اليك هذا النموذج User_form.xlsm