qathi

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

شكرا لك أخي @rockjone33 على ردك .. أفكار رائعة لكن أطمع أن يوجد لدى أحد منكم كود بشكل مباشر لتلوين حدود مربع النص لأنه سيسهل أمور كثيرة بالنسبة لي

السلام عليكم أساتذتي وأخواني أعضاء المنتدى الرائع أسأل الله لكم بدوام الصحة والعافية معروف كود تلوين خلفية الحقل او مربع النص مثال : [Text].BackColor = RGB(10, 151, 176) والمطلوب: كود تلوين حدود التكست مربع النص وشكرا لكم

أخي محمد @محمد احمد لطفى أذا سأقوم التاكد من( المكافح وتغيير الاوفس ) ووافيكم بالنتائج .. أكرر شكري لك على ردودك

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

قمت بفحص اعدادات الاوفس لا شيء غير عادي ممكن توضيح سبب ضهور هذه الرسالة متصفح انترنت اكسبلورر في كل رقم يتم ارسال الرسالة الية ؟

يبدو أن هنا اجماع على ويندوز 10 .. هل يوجد من جرب على ويندوز 11 ؟؟

أخواني ارجو المساعدة في تحديد المشكلة .. وحلها .. لأني جربت ملفات كثيرة لأرسال رسالة بالواتس وكل مرة يتم ضهور مشكلة

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

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

أخي موسى @Moosak للاسف الملف لا يعمل نهائيا وتظهر رسائل أخطاء التالية: - لا بد من عمل رسالة قبل ادخال الارقام والأسماء وهذا غير عملي - يقوم بفتح مجلد جهاز الكمبيوتر في كل عملية ارسال رسالة لرقم ( مزعج جدا ) - ضهور رسالة السماح في كل عملية ارسال رسالة لرقم ( مزعج جدا ) - وبعد كل هذا لا يتم ارسالة الرساله نهائيا لجهات الاتصال ملاحظة: تم تجربته على التالي: - على الويندوز 11 نوع 64 بت وأوفس 2016 نوع 32 بت - الواتس سطح المكتب أخر أصدار - في نافذة ارسال رسالة لعدة اشخاص - عدد جهات الاتصال اربع ارقام الذي تم المحاولة الارسال اليها - صيغة الرقم المفتاح الدولي متبوع برقم الشخص الحقيقي المسجل بالأصل في الواتس

وأخيرا بعد طوووووووووووال أنتظار وصل الذي تم طلبه من قبل نصف سنة شكرا أخي موسى @Moosak .. جاري تجربة الملف

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

أهلا أخي @الحلبي اشتقنا لك .. اشكرك على مرورك الطيب صدقت في كل كلمة قلتها .. وتواضع أخي أحمد @احمد الفلاحجي يزيده احتراما وتقديرا في قلوبنا

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

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

أرفق هذ الملف لنستفيد منه

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

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

أستاذنا الغالي حسنين @SEMO.Pa3x الملف لا يعمل في الاصدار الجديد للواتس سطح المكتب والويندوز 11

ننتظر أستاذنا الغالي حسنين @SEMO.Pa3x بارك الله فيك على كل ماتقدمه لنا

قمت بتجربة الملف بشكل بشكل سريع أخي أحمد @احمد الفلاحجي ,, ماذا عساي أن أقول لك ؟ سوى أن أدعوا لك (( أسأل الله أن يبشرك ويبشر والديك وذريتك بالجنة الفردوس الأعلى ,, وأن يرزقك السعادة الذي ترجوها من الله يوم أن تلقاه .. وأن يسعدك في الدنياء والأخرة )) .. كما أسعدتني بارك الله فيك .. وشكرا على مجهودك الرائع

اين اساتذتنا الافاضل ولا أرى رداً لهم

السلام عليكم اساتذتنا الاكارم واخواني أعضاء المنتدى الرائع أسأل الله أن تكونوا جميعاً في أتم الصحة والعافية طلب تعديل كود الاستعلام VBA --------------- عمل الكود: الكود يقوم بالتالي يقوم الحاق حقول من استعلام ItemsCopy_Qr الى جدول BarcodeItems_T مع تكرار السجلات حسب رقم حقل QuantityS الموجود في الاستعلام الاول ItemsCopy_Qr في كل سجل المطلوب: تعديل كود الاستعلام بحيث لا يقوم بالحاق وتكرار السجلات ألا بشرطين هما : 1- الشرط الاول : السجلات التي تحتوي رقم الحقل InvoiceNum في استعلام ItemsCopy_Qr يساوي نفس الموجود في حقل القائمة المنسدلة K1 بالنموذج Run_F كالكود التالي: WHERE (((ItemsCopy_Qr.InvoiceNum)=[Forms]![Run_F]![K1])) 2- الشرط الثاني : السجلات الذي يكون حقل sisl مؤشر علية الصح , كالكود التالي: ((ItemsCopy_Qr.sisl)=1) أو ((ItemsCopy_Qr.sisl)=True) --------------- 'On Error Resume Next Const RTableName As String = "ItemsCopy_Qr" Const ALLItemsTableName As String = "BarcodeItems_T" Dim stmailList As String Dim MyDB As Database Dim r As Recordset Set MyDB = CurrentDb Dim SqlSt As String Dim ItemCounter, RRecordCounter, count As Integer Set r = MyDB.OpenRecordset(RTableName) r.MoveFirst Do r.MoveNext Loop Until r.EOF DoCmd.SetWarnings False SqlSt = " DELETE " & ALLItemsTableName & ".* FROM " & ALLItemsTableName & " ; " DoCmd.RunSQL (SqlSt) For RRecordCounter = 1 To r.RecordCount r.MoveFirst r.Move RRecordCounter - 1 For ItemCounter = 1 To r.Fields("QuantityS") SqlSt = "INSERT INTO " & ALLItemsTableName & " (BarCodeNumber,PriceS,ItemName,curName,CuCodn,CodeCounter) VALUES ( """ & r.Fields("BarcodeReader") & """,""" & r.Fields("PriceS") & """,""" & r.Fields("ItemName") & """,""" & r.Fields("currNames") & """,""" & r.Fields("CuCode") & """," & ItemCounter & " );" DoCmd.RunSQL (SqlSt) Next ItemCounter Next RRecordCounter DoCmd.SetWarnings True r.Close Set r = Nothing Set MyDB = Nothing --------------- شاكرا لكم على ماتقدموه من جهد ووقت لنا .. فجزاكم الله عنا خيرا ملاحظة/ - تنفيذ الامر من خلال زر في نموذج Run - الكود موجود في موديول BarcodePrintGroup_M - يتم فك ضغط الملف المرفق في القرص D mm.rar

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