اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

at_aziz

03 عضو مميز
  • Posts

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

  • تاريخ اخر زياره

كل منشورات العضو at_aziz

  1. جزاك الله خير وبارك فيك استاذنا الغالي ابا ابراهيم دائما وافي الله يطول بعمرك ويعافيك الف شكر لك سوف اقوم على التعديل على هذا بما يتناسب مع شغلي وبانتظار العمل القادم وفقك الله والشكر ايضا موصول لأخينا الغالي @kkhalifa1960
  2. بارك الله فيك وجزاك الله خير اخي الفاضل @kkhalifa1960 اللي سويته يعتبر حل مناسب جدا اذا لم يتوفر الحل على Web Browser في المثال الاول لان ترتيب وعرض الصور افضل فيه وبالامكان اضافة تحسينات عليه ب html و css الف شكر لك استاذي الكريم والله يعطيك العافيه ومازلنا بانتظار استاذنا الغالي @أبو إبراهيم الغامدي
  3. جزاك الله خير وبارك فيك اخي الفاضل @kkhalifa1960 حاليا في مهمة عمل ماعندي جهاز اطلع عليه بس ارجع اطلع عليه باذن الله وايضا بانتظار استاذنا الغالي @أبو إبراهيم الغامدي
  4. جزاك الله خير وبارك فيك اخي الفاضل @kkhalifa1960 جربت المثال لكن ظهرت لي بعض الملاحظات منها انك ثبت عدد الصور في النموذج وهذا مايمشي مع اليه البرنامج لان عدد الموظفين اللي يظهر في الصفحه غير مستقر احينا يكون ثلاثه او اثنين او او خمسه واحيانا اكثر من عشره على حسب القسم اللي راح يختاره الزائر كل قسم له موظفين غير محدد عددهم ايضا لماحذف اخر سجلين بالجدول تكررة الصوره الاخيره في اخر مربعين هذي بعض الملاحظات اللي مرت علي والف شكر لك اخي الكريم على اهتمامك ومساعدتك
  5. الف شكر لك استاذي الفاضل ابا ابراهيم الله يعطيك العافيه ويجزاك خير
  6. جزاك الله خير أستاذي بيانات التقيم هي كالتالي اختيار من متعدد:- راضي جدا راضي راضي الى حد ما غير راضي غير راضي أبدا راح ارفق لك جدول فيه البيانات المطلوبه مع نفس المثال المرفق Tbl1 والحقيقه انا اللي كان يهمني اني امسك رقم الموظف واسمه عند الضغط على الصوره ويظهر في نموذج اخر او يظهر في الاسفل في النموذج الاساسي بحيث اني اقدر اربط خيار التقييم برقمه الموظف اما باقي الامور الاخرى ماعندي بها مشكله لاني للحين مااشتغلت على البرنامج الاساسي حتى اعرف الطريقة على هذا المثال وانقلها لملف المشروع الاساسي جزاك الله خير وبارك فيك وبعلمك Photo.rar
  7. الاخيره هذي استاذي كحل اخر اذا لم يمكن ان تظهر البيانات في النموذي المنبثق
  8. حياك الله وبياك استاذي الفاضل ابو ابراهيم الفكره سلمك الله هي انه عندي شاشه للتقييم أداء الموظفين تعرض فيها صور الموظفين والزائر اللذي تعامل مع الموظف يختار صورته لانه احيانا مايعرف اسم الموظف ثم يفتح له نموذج عند الظغط على الصوره فيه بيانات التقييم وبيانات الموظف اسمه ورقمه وبعدها يقوم بتقييم الموظف اللي اختاره او عند اختيار الصوره يظهر رقم الموظف واسمه في النموذج الاساسي بحيث اني اقدر اربط بيانات التقييم برقم الموظف شكرا لك استاذي وارجو اني وضحت الفكره
  9. جزاك الله خير اخي وبارك فيك ماذكرتة حل جيد لكن اخي انا اللي اريده يكون الضغط على الصوره وليس قائمه جانبية لان في هذا النموذج راح يكون الاختيار حسب الصوره وليس الاسم من قبل المستخدمين شاكر لك ومقدر استاذي الفاضل
  10. السلام عليكم ورحمة الله وبركاته اخواني عندي مشكله ماعرفت احلها في المرفق مثال لعرض الصور بشكل شبكي لاستاذنا الفاضل @أبو إبراهيم الغامدي حاول اعدل عليه بعض الشغلات لكن ماعرف الطريقة والذي اريده انه عند النقر على صورة الموظف يفتح لي النموذج frm1 فيه بيانات الموظف وأيضا عتد الضغط على الصورة تظهر البيانات في الحقول اللي في النموذج الاساسي frm ارجو المساعده بارك الله فيكم وجزاكم الله خير Photo.rar
  11. ألف مبرووك لأخونا @سامي الحداد تستاهل الله يوفقك وينفع بك فالك التوفيف والنجاح الدائم
  12. للحين باقي عندنا المرحلة الثانيه ومانستغني عنك بعد الله انت صاحب المعروف الاول وفقك الله ومنتظرين ابداعاتك
  13. بارك الله فيك وجزاك الله خير استاذنا الفاضل @ابو جودي الف شكر لك دائما سباق لما فيه نفع للجميع الله يعطيك الصحة والعافيه
  14. السلام عليكم ورحمة الله وبركاته اخواني كما تعلمون انه خلال الفتره القادمه في بداية سنة 2023 سوف يتم تطبيق المرحلة الثانية من متطلبات الفاتورة الاكترونيه في المملكة العربية السعودية وسبق انه تم النقاش في المرحله الاولى في هذه المواضيع رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ وتم حلها بشكل كامل ولله الحمد وهذا بفضل الله ثم بجهود اخواننا الكرام جزاهم الله خير وبارك فيهم وبعلمهم وهذه المواصفات المطوبة للمرحلة الثانيه تحت الرابط التالي https://zatca.gov.sa/ar/E-Invoicing/SystemsDevelopers/Pages/E-Invoice-specifications.aspx وكما تعلمون ان بعض المبرمجين لهم برامج تعمل على الاكسس عند عملائهم وبكل تاكيد راح يتطلب منهم تحديث برامجهم لمتطلبات الفاتوره الأكثرونية المرحله الثانيه وإلا سوف يخسر عملائه ويقع في احراج ارجوا من أساتذتنا الكرام ومبرمجينا الافاضل النظر في هذا الموضوع بعين الاعتبار لاننا بحاجة ماسه جدا لحل هذا الموضوع ووضع امثله عليه حتى يستفيد منه الجميع ويتحقق الهدف السامي اللي قام عليه هذا المنتدى القدير
  15. حياك الله وبياك استاذنا القدير جعفر اخي اللي تم مناقشته وحله هو المرحله الاولى من نظام الفاتوره الاكترونيه اما الان المرحله الثانيه لها طريقة اخرى كما ذكر اخونا صاحب الموضوع الاول وسوف يتم تطبيقها في النصف الاول من عام 2023 على مااظن وهذي المرحله تعتبر الاهم
  16. احسنت اخي نحن بحاجة لنسخة مفتوحه يستفيد منها الجميع وتناقش جميع المشاكل فيها نرجو التفاعل من الجميع لاهميه هذا الموضوع وفقنا الله واياكم لما يحب ويرضى
  17. جزاك الله خير وبارك فيك اخي الفاضل فعلا هذا الموضوع مهم جدا ارجوا اخواننا الكرام التفاعل معه للضروره الملحة ووضع امثله تخص هذه المرحله على الاكسس بارك الله فيكم وجزاكم الله خير جميعا
  18. حياك الله اخي لم اجد حل الى الان
  19. حياك اخوي حامل المسك الحل بيسط ان شاء الله احذف كلمة ErrTO راح تروح الرساله باذن الله هذا الكود بالكامل اللي اانا استخدمة حاليا Sub SendEmaile() On Error Resume Next myemail = DecodeQP2(DLast("Emaile", "EmaileData")) mypassword = DecodeQP2(DLast("Password", "EmaileData")) Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") iConf.Load -1 Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = myemail .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mypassword .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .update End With With iMsg Set .Configuration = iConf .To = [EmpEmail] .From = """" & "شهادات الحضور" & """ <" & myemail & ">" .subject = Titletxt .HTMLBody = Messagetxt .AddAttachment DstFile .Send End With Debug.Print Kill DstFile End Sub
  20. الله يعطيك العافيه ويجزاك خير الحمد لله طبقت الشرح واشتغل الارسال بدون مشاكل الف شكر لك استاذي الفاضل
  21. بارك الله فيك وجزاك الله خير استاذي الغالي موسى الف شكر لك راح اجرب واخبرك بالنتيجة ان شاء الله
  22. السلام عليكم ورحمة الله وبركاته اخواني ظهرت عندي مشكله قبل كم يوم ان قوقل وقفت خدمة الوصول التطبيقات الأقل أمانًا في البريد الاكتروني بشكل نهائي من قبل كانت شغاله معي تمام والان ما اقدر ارسل عن طريق الاكسس ايميل الى عدة اشخاص في المثال المرفق لاحد الاخوه استخدمت الكود فيه وشغال عليه من فتره وماشي زي الفل لكن الان توقفت الخدمة وتوقف الارسال عن طريق الاكسس هل هناك اخواني حل او طريقة اخرى لهذه المشكله لان بالنسبه لي ارسال الايميل عن طريق الاكسس مهم جدا وعملي متوقف عليه الان وكثير من الاخوه ايضا يحتاج هذه الخدمه ارجو المساعده بارك الله فيكم وجزاكم الله خير Course certificates -Mohd+Moosa.zip
×
×
  • اضف...

Important Information