اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4486
  • تاريخ الانضمام

  • Days Won

    198

كل منشورات العضو أ / محمد صالح

  1. الدالة يمكن استخدامها في الاستعلام والنموذج والتقرير فقط تكتب تاريخ البداية في حقل وتاريخ النهاية في حقل آخر وفي الحقل الثالث تكتب =datedifh(field1,field2)
  2. ترجع مشكلة التاريخ الهجري في التعامل معه على أنه تاريخ ميلادي فلا يقبل مثلا التاريخ 29/02/1438 لذا أقترح التعامل معه على أنه نص وهذه دالة للفرق بين تاريخين هجريين على اعتبار أن الشهر 30 يوم Function datedifh(olddate As String, newdate As String) As String Dim d As Integer, m As Integer, y As Integer, nd As Integer, nm As Integer, ny As Integer nd = Left(newdate, 2): d = Left(olddate, 2) nm = Mid(newdate, 4, 2): m = Mid(olddate, 4, 2) ny = Right(newdate, 4): y = Right(olddate, 4) If nd < d Then nm = nm - 1: nd = nd + 30 If nm < m Then ny = ny - 1: nm = nm + 12 datedifh = nd - d & " يوم " & nm - m & " شهر " & ny - y & " سنة" End Function ويتم استدعاؤها هكذا MsgBox datedifh("29/02/1977", "05/05/2017") مع مراعاة اليوم من رقمين والشهر من رقمين
  3. الخطوة الرابعة هي عند الضغط على صورة السهم يتم تفريغ مربعات النص وإلغاء عامل التصفية وليس بها أي مشكلة
  4. السلام عليكم ورحمة الله وبركاته بارك الله لكم جميعا ربما يفيدك هذا المثال المصنوع على عجالة للتعرف على أكواد المفاتيح ascii & ceycode وفتح نموذج عند الضغط على مفتاح معين open form by keys.rar
  5. أعتقد أن هذا غير متاح حاليا المتاح التأكد من شكل البريد user@company.com
  6. الأكواد صحيحة ولكن يوجد مجموعة من الخطوات التي يجب عملها على الجهاز الذي سيتم إطفاؤه تسمح بتنفيذ هذه الأوامر من جهازك وكل هذه الخطوات حماية من المتطفلين فليس من المعقول أن يجد المستخدم جهازه يتوقف عن العمل لأن واحدا ممن يشاركونه في الشبكة يريد ذلك
  7. جرب هذا الأمر Shell "shutdown -m \\ip -s -c This computer will shutdown after 60 seconds. -t 60", vbHide Shell "shutdown -m \\ComputerName -s -c This computer will shutdown after 60 seconds. -t 60", vbHide ممكن استعمال رقم ip للجهاز أو اسم الجهاز على الشبكة
  8. وفقك الله وهداك وإيانا للصواب يتم معرفة اسم الملف الناقص ومساره بتحديد المرجع المطلوب (المكتوب بجواره missing) سيظهر بياناته في اسفل النافذة كما قلت سابقا ولكن جرب أخي الكريم الحل الأسهل وهو حذف علامة الصح بجوار المرجع الثالث missing: Microsoft office 12 authorization control وإذا استمر عمل البرنامج فالحمد لله وإذا تعطل فيه شيء فيجب للأسف تحميل ملف dll الخاص بالمرجع من الانترنت
  9. هل وجدت في نافذة المراجع شيئا مفقودا إذا حدث ذلك ستجد اسم ومسار ملف DLL المفقود في الجزء السفلي من النافذة بعدها تبحث عنه في جوجل وتقوم بتحميله ووضعه في المسار المطلوب وستنتهي المشكلة بإذنه تعالى
  10. هي عملية إرسال بريد عادية ولكن هي اختصار للوقت بدلا من فتح المستعرض والدخول في جي ميل وإرسال رسالة جديدة أو بدلا من فتح برنامج أوت لوك وإرسال رسالة جديدة يتم الإرسال من الأكسس مباشرة وطبعا يتم رفع المرفقات حسب سرعة الانترنت في الجهاز
  11. جرب هذا الحل وأخبرني بالنتيجة رمضان مبارك
  12. ربما يرجع البطء لحجم المرفقات هل جربت بدون مرفقات؟؟ أستاذ شيڤان
  13. بعض ما عندكم أخي العزيز
  14. كما أخبر أستاذ @Shivan Rekany هذا حل عدم ظهور اللغة العربية بصورة صحيحة في محرر الفيجوال بيسك وبالنسبة لرسالة الخطأ الظاهرة ربما لعدم وجود المكتبات DLL المطلوبة في الملف وربما بسبب مشكلة اللغة وعلاج المكتبات من قائمة tools نختار references ستظهر نافذة ومكتوب بجانب بعض المكتبات missing يعني مفقود ولك فيها حلان تحميل ملفات DLL الناقصة أو الاستغناء عنها إذا استمر عمل البرنامج بدونها وفقنا الله وإياكم لكل خير
  15. مشكور أستاذ عبد الفتاح فعلا هذا البرنامج يزود الجهاز بطابعة وهمية تطبع كملف pdf ولكن هل تحقق طلب الأستاذ hemabeb في عدم تغيير فواصل الصفحات وترحيل الفقرات أم مازالت المشكلة قائمة؟
  16. جزاك الله كل خير أستاذ @ابا جودى ........... الغريب أن الملف تمت مشاهدته وتحميله كثيرا ولا يوجد تعليقات من الأصدقاء سواء بالسلب أو الإيجاب ................................. لعل المانع خير
  17. شكرا لمروركم الكريم أحبابي في الله تم تحميل الملف ولا يوجد أي مشكلة من مكتبة الموقع حاول مرة أخرى أخي الكريم أبا جودي
  18. اعرض الملف إرسال البريد من الأكسس بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 25 ماي, 2017 الاقسام قسم الأكسيس
  19. Version 1.0.0

    688 تنزيل

    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم بخير وسعادة ورضا ************** موعدنا اليوم مع ملف يحتاجه كل مهتم ببرمجة الأكسس في إرسال رسائل بريد للعملاء أو المستخدمين ====== مباشرة بدون استخدام برنامج outlook من خلال CDO وكذلك باستخدام outlook --------------------------- بالنسبة لاستخدام cdo يجب إدخال عنوان بريدك في gmail وكلمة مروره في المكان المخصص في الكود مع استعمال جميع المميزات /////////////////////////////////////////////// وبالنسبة لمن يستخدم outlook يجب أن يكون تطبيق اوتلوك مثبت على الجهاز ومفعل مع استعمال جميع المميزات ****************************** يوجد بالملف كود للتأكد من الاتصال بالانترنت من عدمه وكذلك لفتح صندوق حواري اختيار ملفات ********************** الكود يعمل على كل إصدارات الأوفيس دمتم في رعاية الله وحفظه والقادم أفضل إن شاء الله
  20. إذا كنت تقصد مشكلة الرسالة فحلها بسيط ولا يحتاج لأكواد فقط فك دمج العناوين المدمجة مثل الاسم ثم الوقوف في الصف السفلي للعناوين (أول صف أعلى البيانات مباشرة) والضغط على فلتر للعلم أستعمل أوفيس ٢٠١٦ ولا تظهر معي رسالة الخطأ هذه ولكن حضرتك مصمم على أن تصعب الحياة على نفسك باستعمال أوفيس ٢٠٠٣ وفقكم الله لكل خير
  21. كل عام أنتم جميعا بكل خير الملف الموجود في المشاركة الثانية مع بعض التعديل ليتوافق مع المطلوب هنا والسطور المشروحة موجودة فعلا بالكود
  22. زيادة في التوضيح هذا المثال كنت قد نفذته في 2011 ووضعت به كل امكانيات إرسال البريد من جيميل باستخدام cdo وبعد سطر البريد والباسوورد هذه أهم سطور .replyto = "mm@mm.com" 'myemail or any other .cc = Me.cc 'with coma (,) separated .bcc = Me.bcc 'with coma (,) separated .to = Me.tomail .From = """" & Me.myname & """ <" & myemail & ">" .Subject = Me.sub .BodyPart.Charset = "UTF-8" '.TextBody = "plain text" 'send pain text '.CreateMHTMLBody "http://www.google.com" 'send web page '.CreateMHTMLBody "file://c|/temp/test.htm" 'send hrml file .HTMLBody = "<div dir='rtl' align='right' style='font-size:25px'></div>" .AddAttachment (Me.attach) 'you can attach more repeat this line with full file path شرح هذه السطور للرد إلى بريدي أو أي بريد آخر إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع رؤية كل واحد لجميع المرسل إيهم إرسال البريد لأكثرمن عنوان يفصل بينهم فاصلة مع عدم رؤية كل واحد لجميع المرسل إيهم المرسل إليه الأساسي اسم المرسل وبريده نرميز جسم الرسالة إمكانية إرسال نص فقط في جسم الرسالة إمكانية إرسال ثفحة ويب فقط في جسم الرسالة إمكانية إرسال ملف هتمل html فقط في جسم الرسالة إمكانية إرسال كود html فقط في جسم الرسالة إمكانية إضافة مرفقات للرسالة مع وضع مسار الملف كاملا واسمه وامتداده وتكرار السطر مع كل ملف مرفق وفقنا الله وإياكم لكل ما يحب ويرضى
  23. يجب تمكين التطبيقات من الدخول لجي ميل من هنا https://myaccount.google.com/lesssecureapps ولا تخف فهم يعتبرون استعمال البريد بهذه الطريقة غير آمن
  24. معناها يجب فك الخلايا المدمجة ثم تحديد الصف السفلي وتنفيذ خطوات الفرز
×
×
  • اضف...

Important Information