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

كل الانشطه

هذه الصفحة تحدث تلقائياً

  1. الساعة الأخيرة
  2. اهاااا نعم هذا صحيح وهنا يكمن جمال ماتقوم به الأداة فهي تختصر الكثير من الجهد والوقت وتريل أي مخاوف من ظهور الأخطاء التي قد نتفاجأ بها نتيجة أننا قمنا ولأي سبب بتعديل بسيط في إسم النموذج أو إسم مربع التحرير الذي يعتمد عليه لتصفية مربع التحرير الذي يليه
  3. Today
  4. مقصدي أن الطريقة التقليدية التي نستخدمها عادةً بوضع Me.Combo2.Requery في حدث AfterUpdate . ولكن بعد مراجعة الكلاس وتحفته الفنية ، لاحظت أنه يقوم بأكثر من مجرد Requery ؛ فهو يقوم بمسح القيم القديمة وبناء جملة SQL ديناميكية لفك الارتباط باسم النموذج .
  5. طيب بالعودة إلى ملفك وفكرتك ، انت تستعمل مفتاح Tab للإنتقال 5 مرات .. لذا جرب استبدال الأقواس [tab] بهذه الأقواس {tab} .
  6. السلام عليكم ورحمة الله وبركاته جراك الله خيرا أخي الكريم foksh الكود يعمل ولكن لا يرسل رسائل أيضا تأتي هذه الرسائل
  7. كيف يمكنني عمل برنامج أكسس من مجموعة شيتات أكسيل متفرقة ؟
  8. وعليكم السلام ورحمة الله وبركاته .. جرب هذا التعديل أخي الفاضل ، لأنني أستخدم تطبيق واتس اب سطح المكتب ، وليس واتس اب ويب .. كود إرسال مرتبات.xlsm
  9. .. ما شاء الله ، فكرة جميلة ونظيفة ولا تشوبها شائبة في التنفيذ . بس استخدام Requery الشيء الجميل في الموضوع هو أنك إذا أردت تغيير المنطق ، ففقط تغيره في مكان واحد وهو الكلاس ، وليس في 50 نموذجاً مثلاً . جزاك الله خيراً لهذه المشاركة الجميلة والقيمة ..
  10. السلام عليكم ورحمة الله وبركاته مرفق ملف به عدد من البيانات كل بيان له تسعة أسطر أريد أن يكون النتاتج تسعة أعمدة وأن يتسع الملف لعدد 500 صف اوفيسنا.xlsx
  11. تم نقل الرد إلى هذا الموضوع المنفرد
  12. العفو أستاذنا الجليل ابو خليل ، لكم ذلك إن شاء الله 😇 . ليتك جربت أولاً الطريقة قبل ردك هذا بهذا الوصف 😇 . وصدقني لو سألت صديقك شات جي بي تي عن مثلاً:- أنا أرى أنه وبجهودك وأفكارك ، يمكن ان يكون ناتج 1+1=3 بطرق تحايلية ، إلا أن صديقي يخالفنا الرأي تماماً. وهذا أزعجني بتشكيكه هذا. وحينها سيأتيك بإجابات من كوكب الغزالين بأنه يمكن تحقيق 1+1=3 وللتجربة ، قمت بإرسال إيميل الى البريدين المسجلين في ملفك المرفق لتجربتك ، فتحقق من وصولهما إذا أردت
  13. كلامك صح وانا حاولت يشتى الطرق حتى مع معظم منصات الذكاء الصناعي ماتوصلنا الا للحل الذي ارسلته لك .
  14. انا جربيتها وجربت طرق أخرى مثل الاوتلوك للاسف كلها طرق فاشلة ... هل جربت الارسال من الجيميل للياهو جرب من الجيميل للجيميل بتوصل الرسالة صح . لكن من الجيميل للياهو الرسالة تم الارسال لكنها لم تصل للياهو .... الى ان توصلت لما ادرجته بمشاركتي السابفة . وهذا كان رد تشات جي بي تي :- 📌 لماذا Gmail يرسل إلى Gmail فقط ولا يرسل إلى Yahoo؟ لأن: Google تحظر الإرسال إلى بعض السيرفرات (مثل Yahoo / Hotmail) إذا كان الإرسال من تطبيقات قديمة (CDO / Access) بدون OAuth. Gmail يعتبرها Less Secure Relay ويقوم بـ رفض التسليم أو إسقاط الرسالة بدون رجوع خطأ واضح. ✅ لماذا نجح إلى Gmail؟ لأن Gmail ↔ Gmail داخل نفس الشبكة ولا يحتاج تحقق إضافي من الطرف الآخر.
  15. زائر

  16. زائر

  17. شكرا الف استاذنا المبدع الكريم على هذا الاثراء اداة جميلة احترافية تختصر الكثير من الوقت والجهد .. خاصة الأحداث الخاصة بالمربعات المعاناة .. هي في كثرة الحاجة اليها وتكرارها في كثير من النماذج
  18. لا ابدا ليس هناك ضرر .. الاختصار والاحكام نلجأ اليه غالبا في حالات منها ان تكون داخل اجراء أو حدث واحد .. وتكون الاكواد فيه طويلة وكثيرة جدا ويمكن اختصارها الى الأفضل .. بشرط ان تكون افضل في السرعة والأداء او ربما عدة احداث طويلة ومكررة يمكن جمعها في دالة واحدة ومناداتها بسطر واحد والفائدة من هذه هي سهولة التعديل مستقبلا او التطوير حيث سيكون التعديل في مكان واحد بدلا اماكن عديدة متفرقة .
  19. استاذنا الكبير اشكرك على عنايتك و اهتمامك ملفك نجح 100% وكان تحليل الاداء 100% نسخة حرفيا و كان تحليل الاداء يحتاج الى استخدام عاصر اقل بدون تعبك سؤال اخير اذا كانت الاكواد صحيحة ( اظنها كذالك) هل هناك ضرر من تركها بحجمها شكرا
  20. شكرا جزيلا استاذنا .. معلومة جديدة .. وحقيقة ليتك تفرد هذه المشاركة بموضوع وعنوان جديد يخصها لتفردها ومن اجل سهولة البحث والوصول اليها على فكرة الباسوورد 16 حرف هو المتبع الآن في مواقع بوابات رسائل الـــ sms من اجل ربط التطبيقات بالبوابة للارسال من خلالها ويسمونه Token
  21. عفوا .. اقصد ان الدالة تقوم بحماية الحقول بينما هي محمية بالفعل لجعل الحقول قابلة للتحرير اعتقد ستصبح الدالة هكذا Private Sub Add_New_Record() Me.comresearch_01 = Null dateoftrans.Locked = False Me.stat.Locked = False Me.F_DATAILS.Locked = False DoCmd.GoToRecord , , acNewRec End Sub
  22. بالنسبة للدالة فمكانها الفورم نفسه .. لأنك تطبق على حقول موجودة فعلا في الفورم انظر التعديل .. الامر يسير يمكنك صنع اي دالة تحمل اجراءات محددة تتكرر في اكثر من موقع على النموذج Private Sub Add_New_Record() Me.comresearch_01 = Null dateoftrans.Locked = True Me.stat.Locked = True Me.F_DATAILS.Locked = True DoCmd.GoToRecord , , acNewRec End Sub 'نناديها هكذا : 'Call Add_New_Record علما لا اعلم ما فائدة تمكين الحقول في الدالة لأنها ممكنة فعلا .. الا اذا كانت في الأصل عندك غير ممكنة في المثال المرفق طبقت الدالة خلف زر جديد مشروع خليفة2.rar
  23. عمنا و استاذنا الكبير سامحنى ان اخطأ القصد عمنا الكبير ساعدنى فى اهم طلب بخصوص شاشة تكويد الحسابات و لكن هناك F_HEAD يوجد به اكواد كبيرة و ان كانت صحيحة و كانت نصحتك لية تقليل عناصر التحكم و كنت فى بداية المشروع و عندما انتهيت من المشروع عملت تحليل اداء و هناك تذكرت نصيحتك و حاولة عمل وحدة نمطية و ابحث عن الاكواد المكررة داخل النموذج و استبدالها باستدعاءها ( دى كان تفكرى و ان صح ) لتقليل الاكواد الكبيرة اعتذر على الاطالة و اشكرك على الاهتمام و العناية
  24. عذرا ان كنا ساعدناك في هذا الموضوع بالنسبة لي فقد نسيت مالمطلوب يا ليت توضح المطلوب بشرح تفصيلي دقيق بمعنى ماذا تريد من الدالة ان تعمله .. او ما الخطوات التي يجب ان تحققها الدالة عند مناداتها
  25. اعتذار الى كل المتابعين تم رفع ملف به كثير من الاخطاء عذرا يمكن من طول الوقت و التركيز عذرا على التسمية و لكن دى اخر نسخة بعد تعديلات الاخ الكريم / خليفة قيسب الفضل لاصحابة مشروع خليفة.rar
  26. لاصحاب العلم و الفضل حاولت ان اعمل وحدة نمطية NewFORM و عند استدعاء ها لم ينجح الامر نصحنى قبل تحليل الاداء عمنا و استاذنا ابو خليل بتقليل عناصر التحكم بعد ما انتهى من طلباتى حاولت و لم اوفق المرفق لمن يجد عنده الوقت و الصبر انا عارف ان الموضوع كبير و محتاج وقت ارجو تعديل زر جديد الى Private Sub comnew_Click() DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "dateoftrans" Me.comresearch_01 = Null Me.dateoftrans.Locked = False Me.stat.Locked = False Me.F_DATAILS.Locked = False Me.comsave.Enabled = True 'xxxxxxxx Me.comexit.Enabled = False End Sub ACC.rar
  1. أظهر المزيد
×
×
  • اضف...

Important Information