Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Leaderboard

Popular Content

Showing content with the highest reputation on 09/25/2020 in all areas

  1. السلام عليكم ورحمة الله وبركاته طرح في موضوع سابق موضوع رسائل الواتس اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40 يمكنك تغييرها ليتناسب مع سرعة جهازك ...... منتظر انطباعاتكم حول البرنامج ؟؟؟؟ WhatsApp_kan.accdb هنا تجدون الموضوع السابق ......
    3 points
  2. الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... أولا : الذهاب للرابط https://www.whatsapp.com/download وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة ) ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة ) رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40 ثانية أن رأيت جهازك والنت سريع
    3 points
  3. من الخصائص الحقل غيير التنسيق الى رقم عام ا قياسي
    2 points
  4. جميل جدا وابداع لكن الالوان ! بصعوبة جدا قراءة محتوى الازرار وبعد التعديل
    2 points
  5. العفو اخي الكريم يشرفني مرورك و يشرفني أنه نال اعجابك تفضل طلبك translate_language.accdb
    2 points
  6. بارك الله فيك استاذ . @kanory برنامج جميل مشكور على البرنامج حتابع بصمت الى نهاية البرنامج منتظر البرنامج للتجربة استاذ. @Mohameddd200300
    1 point
  7. جرب هذا الكود 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 point
  8. الحمد لله قبل شوي ضبط الكود بفضل لله وجهد الاخ kanory. ان شالله اليوم بنزل مقاله كامله وفيها كل الخطوط وحل كل المشاكل الي ذكرتها اول بدون ماتحتاج تشغل الوتساب واو المتصفح ماعليك الضغط الي علي ارسال. وهو بيفتح المتصفح ويفتح وتساب تلاقي. ويرسل ويسكر الصفحه الي فتح في كروم منشان التكرار وكذا ولين يخلص. يغلق المتصفح وبرنامج وتساب ويضهر رسله.
    1 point
  9. ما شاء الله ولا اروع استاذ ازهر
    1 point
  10. احبتي حتى لا أطيل في الشرح و بدون مقدمات قصتي تتضح من عنواني و نبدء الآن ... انشئ 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&a
    1 point
  11. اخ هاني. لا بد من تحميل اول برنامج ابوتساب وتفعيل بي الكود.ثاني. الدخول في كرم وتسجيل في المتصفح ؟wa.me/966555555555?text=hi وضغط انتر بعهدا رها يضهرلك رساله هل تريد جعل المتصفح يفتح التطبيق وفي تحتا مربع صغير الي هي تاكيد مايحتاك تضهر كل مره. وخلاص وراجع الشرح الي مثبت في قسم اكسس وايضا. غير الكود بدل ٤٠ خليها اقل شي ٥
    1 point
  12. مشاركه مع اخى واستاذى @محمد أبوعبدالله جرب التعديل كالتالى بتغيير 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 بالتوفيق
    1 point
  13. تم التحديث كما تريدين 1- لادراج عدة اسماء عندها نفس الكود او نفس الرقم القومي يجب استعمال اليورز القديم لأنه لا يمكن ادراج اكثر من اسم في TextBox واحد بينما هذا ممكن في ListBox 2- بعد غملية البحث (كما اشرت في المشاركة السابقة) من حيث رقم الكود ( داخل الحلية مع فاصلة عليا) و في ListBox بدونها تحددين الاسم المطلوب و المصروف الجديد و تضغطين على الزر حفظ عندها تتحدث البيانات في الشيت (يتلوّن الصف حيث تم التعديل) و يخرج الاسم من ListBox 3- الزر Refresh للانطلاق من البداية ( تفريغ اليوزر / ازالة الألوان المحددة من الشيت) الملف من جدبد م
    1 point
  14. جرب بهذا الشكل 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 تحياتي
    1 point
  15. جزاك الله خيرا استاذنا الفاضل من بعد اذن استاذي خسين تفضل اخي الكريم 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 "تأكد من اتصالك بال
    1 point
  16. وعليكم السلام-فقط عليك استخدام هذه المعادلة لتاريخ البداية =DATE(C3,B3,A3) وهذه لتاريخ النهاية =DATE(F3,E3,D3) Date1.xlsx
    1 point
  17. السلام عليكم اخواني : الظاهر المشتهر في معظم منتديات الاكسس بالنسبة لهذا الموضوع أن الاستعلامات الجدولية لا تقبل المعايير وابحث ان شئت لترى النتائج . حيث ان بعض الحلول تقترح عمل تحايل لقبول ذلك وذلك بإنشاء جداول مؤقته يصاحبها استعلام انشاء لهذه الجداول واستعلام حذف . وحلول أخرى ترى ان يستند الاستعلام الجدولي الى استعلام تحديد توضع فيه المعايير بدلا من الجدول والصحيح أن الحل أقرب من ذلك وقد نجد تلميحات في بعض المشاركات ولكنها لم تعط الموضوع حقه من الشرح والايضاح . وسبب كون الاستعلامات الجدولية لا تقبل المعايير هو أن هذه المعايير غير معرفة لمحرك قاعدة البيانات فعند وضع معيار مثل القو
    1 point
  18. جزاك الله خيرا اخي حامل المسك فقد نبهتني الى نقاط مهمة لم يتم ذكرها في الموضوع ونقطة اخرى لم يتم تعريفها بدقة فقد ذكرت آنفا أن الطريقة لجعل الاستعلام يعمل ويقبل المعيار هو ان نقوم بتعريف المعيار والحقيقة اننا لا نقوم بتعريف المعيار نفسه بل نقوم بتعريف الحقل الذي يشتمل على المعيار لذا فإن حقل المعلمة لا نكتب فيه الا ما يدلنا على الحقل فقط ، فلا نكتب فيه المعادلات ولا الدالات مثل like ; Between ; And ; or أو غيرها وشيء آخر وهو كل مربع نص أو خلية نريد تعريفها لا بد أن تكون في حقل خاص لوحدها في عمود المعلمة وفي المثال المعدل المرفق تطبيق لما ذكرت والله أعلم s
    1 point


×
×
  • Create New...