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

السلام عليكم ورحمة الله وبركاته طرح في موضوع سابق موضوع رسائل الواتس اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40 يمكنك تغييرها ليتناسب مع سرعة جهازك ...... الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... أولا : الذهاب للرابط https://www.whatsapp.com/download وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة ) ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة ) رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40 ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية .... منتظر انطباعاتكم حول البرنامج ؟؟؟؟ WhatsApp_kan.accdb هنا تجدون الموضوع السابق ......

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

من الخصائص الحقل غيير التنسيق الى رقم عام ا قياسي

جميل جدا وابداع لكن الالوان ! بصعوبة جدا قراءة محتوى الازرار وبعد التعديل

العفو اخي الكريم يشرفني مرورك و يشرفني أنه نال اعجابك تفضل طلبك translate_language.accdb

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

احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ Module جديد و اضف الكود التالي Option Explicit Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String Dim strURL As String Dim objHTTP As Object Dim objHTML As Object Dim objDivs As Object, objDiv As Object Dim strTranslated As String strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _ "&sl=" & strFromSourceLanguage & _ "&tl=" & strToTargetLanguage & _ "&ie=UTF-8&prev=_m&q=" & strInput Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send "" Set objHTML = CreateObject("htmlfile") With objHTML .Open .Write objHTTP.responsetext .Close End With Set objDivs = objHTML.getElementsByTagName("div") For Each objDiv In objDivs If objDiv.className = "t0" Then strTranslated = objDiv.innerText Translate = strTranslated End If Next objDiv Set objHTML = Nothing Set objHTTP = Nothing End Function ثم يمكن تجربة هذه الشفرة الخاصة بتغيير لغة العرض بالطريقة التالية MsgBox Translate("اهلا و سهلا", "ar", "en") مرفق مثال تطبيقي على ما ورد اعلاه و دمتم في رعاية الله و حفظه ... . Data.mdb

بارك الله فيك استاذ . @kanory برنامج جميل مشكور على البرنامج حتابع بصمت الى نهاية البرنامج منتظر البرنامج للتجربة استاذ. @Mohameddd200300

جرب هذا الكود Option Explicit Sub replace_1_Name() Dim sh12 As Worksheet Dim sh13 As Worksheet Dim Rg12 As Range, Rg13 As Range Dim i% Set sh12 = Sheets("الصفحة 12") Set sh13 = Sheets("الصفحة 13") Set Rg12 = sh12.Range("D5:N17") Set Rg13 = sh13.Range("D5:N17") Rg13.ClearContents Rg13.Value = Rg12.Value For i = 1 To Rg13.Rows.Count Rg13.Rows(i).Replace 1, sh13.Cells(i + 4, 2), 1 Next End Sub الملف مرفق Bilal_Y.xlsm

وعليكم السلام 🙂 هذه اعدادات حقل الترقيم التلقائي في جدولك . هذه الاعدادات معناها ان الرقم التلقائي يكون متسلسل وليس عشوائي ، نعم عندما تحذف سجل ، فالاكسس يحذف الرقم ، والسجل التالي يكون رقم التسلسل التالي ، ولا يعطيك/يعوضك عن الرقم الذي تم حذفه ، ولكن هذا لا يؤثر تسلسل الترقيم ، فهو صحيح في جميع الحالات ، ولو بوجود فجوة ارقام غير موجودة بين السجلات (الارقام التي تم حذفها) ، فعليه ، لا تحتاج الى إعادة ترقيم حقل الترقيم التلقائي حتى يبدأ من 1 🙂 الآن ، اخبرنا وين المشكلة علشان نساعدك 🙂 جعفر

تمام .. جزاك الله خيرا

ما شاء الله ولا اروع استاذ ازهر

اخ هاني. لا بد من تحميل اول برنامج ابوتساب وتفعيل بي الكود.ثاني. الدخول في كرم وتسجيل في المتصفح ؟wa.me/966555555555?text=hi وضغط انتر بعهدا رها يضهرلك رساله هل تريد جعل المتصفح يفتح التطبيق وفي تحتا مربع صغير الي هي تاكيد مايحتاك تضهر كل مره. وخلاص وراجع الشرح الي مثبت في قسم اكسس وايضا. غير الكود بدل ٤٠ خليها اقل شي ٥

مشاركه مع اخى واستاذى @محمد أبوعبدالله جرب التعديل كالتالى بتغيير Or الى And ووافنا بالنتيجه If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# And Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.sDate = Date - 1 Else Me.sDate = Date End If بالتوفيق

وضعت فقط تنسيق / Format للوقت فقط لنفس الكود الخاص بك تحياتي

تم التحديث كما تريدين 1- لادراج عدة اسماء عندها نفس الكود او نفس الرقم القومي يجب استعمال اليورز القديم لأنه لا يمكن ادراج اكثر من اسم في TextBox واحد بينما هذا ممكن في ListBox 2- بعد غملية البحث (كما اشرت في المشاركة السابقة) من حيث رقم الكود ( داخل الحلية مع فاصلة عليا) و في ListBox بدونها تحددين الاسم المطلوب و المصروف الجديد و تضغطين على الزر حفظ عندها تتحدث البيانات في الشيت (يتلوّن الصف حيث تم التعديل) و يخرج الاسم من ListBox 3- الزر Refresh للانطلاق من البداية ( تفريغ اليوزر / ازالة الألوان المحددة من الشيت) الملف من جدبد مرفق (يجب استعمال اليوزر القديم من خلال الزر User) YARA_2User Uniqus..xlsm

جرب بهذا الشكل If Format(Now(), "hh:mm:ss AM/PM") >= #12:00:00 AM# Or Format(Now(), "hh:mm:ss AM/PM") <= #7:00:00 AM# Then Me.Sdate = Date - 1 Else Me.Sdate = Date End If تحياتي

السيد المحترم / عبد الله الصاري شكراُ جزيلاً .... وآسف لتأخري بالرد. ولكن للاسف نتيجة بطىء شديد جدا بالانترنت عندي هو ماجعلني اجد صعوبة بفتح المشاركة والرد.. بالرغم من ان الانترنت لدي 4G وشكراً ...

جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم Option Compare Database Option Explicit Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long Private Sub أمر0_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "ar", "en") labal2.Caption = Translate(labal2.Caption, "ar", "en") labal13.Caption = Translate(labal13.Caption, "ar", "en") Me.أمر19.Visible = True Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub Private Sub أمر19_Click() If InternetGetConnectedState(0&, 0&) Then labal1.Caption = Translate(labal1.Caption, "en", "ar") labal2.Caption = Translate(labal2.Caption, "en", "ar") labal13.Caption = Translate(labal13.Caption, "en", "ar") Else MsgBox "تأكد من اتصالك بالانترنت" End If End Sub تحياتي

وعليكم السلام-فقط عليك استخدام هذه المعادلة لتاريخ البداية =DATE(C3,B3,A3) وهذه لتاريخ النهاية =DATE(F3,E3,D3) Date1.xlsx

جزاك الله خيرا اخي حامل المسك فقد نبهتني الى نقاط مهمة لم يتم ذكرها في الموضوع ونقطة اخرى لم يتم تعريفها بدقة فقد ذكرت آنفا أن الطريقة لجعل الاستعلام يعمل ويقبل المعيار هو ان نقوم بتعريف المعيار والحقيقة اننا لا نقوم بتعريف المعيار نفسه بل نقوم بتعريف الحقل الذي يشتمل على المعيار لذا فإن حقل المعلمة لا نكتب فيه الا ما يدلنا على الحقل فقط ، فلا نكتب فيه المعادلات ولا الدالات مثل like ; Between ; And ; or أو غيرها وشيء آخر وهو كل مربع نص أو خلية نريد تعريفها لا بد أن تكون في حقل خاص لوحدها في عمود المعلمة وفي المثال المعدل المرفق تطبيق لما ذكرت والله أعلم s2 .rar

اخي الكريم الملف جاهز اذا كان هناك اي شيء اخر ارجو التوضيح BOKK11.zip