كل الانشطه
- الساعة الأخيرة
-
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
ابو جودي replied to M.Abd Allah's topic in قسم الأكسيس Access
انا فعلا باضحك علشان كده وبالاخص ان دا برنامج محاسبى يعنى فى وارد ومنصرف وقيود يومية وجرد و............. -
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
M.Abd Allah replied to M.Abd Allah's topic in قسم الأكسيس Access
السلام عليكم ورحمه الله وبركاته اسطورتنا القدير ابو خليل نعم يمكن ان يفعل اكثر من ذلك اهم شيء حضرتك تديله مدخلات دقيقه حتي تحصل علي مخرجات تلبي احتياجاتك كامله اذا اردت مثال مصغر لما قولت وحابب اني اعمله كموضوع منفصل فقط اطلب منه كافه التفاصيل التي يريدها وحضرتك قولي عليها واعملك نسخه مصغره مما قولت لا استني شويه الموضوع عميق يا استاذنا -
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
ابو جودي replied to M.Abd Allah's topic in قسم الأكسيس Access
انا هموت من الضحك بسبب الجملة دى - Today
-
ابوخليل started following استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
-
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
ابوخليل replied to M.Abd Allah's topic in قسم الأكسيس Access
عليكم السلام اخونا العزيز عبدالله جميل جدا وحاجة تفتح النفس نريد بارك الله فيك مثال عملي تطبيق صغير نستفيد منه وجئت في وقتك المناسب .. صديق لي يبحث عن برنامج صغير محاسبي لديه عدة فروع وتحت هذه الفروع موظفين يريد قيود يومية بينه وبين الفروع تحويل اموال ورواتب شهرية لموظفيهم وقيود مصروفات للفروع: كهرباء / ايجارات / ماء / تامينات / انترنت ... وهكذا هذا كل شيء فقط هل يمكن للذكاء الاصطناعي اذا اعطيته هذه البنود ان يعمله ؟ -
تعديل كود ترحيل البيانات من ورقة الورقة اخرى
عبدالله بشير عبدالله replied to بلال بلال's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته الحل قم بتحديث اوفيس2007 الى 2010 او احدث فالامر بسيط عند اول محل كمبيوتر اما بالنسبة لطلبك الاول تعديل كود الترحيل اليك الملف Plateform19840019.xlsb - Yesterday
-
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
Foksh replied to بلانك's topic in منتدى الاكسيل Excel
مجهود جميل أستاذ @عبدالله بشير عبدالله ، ومتابعة جيدة جداً منكم جميعاً .. تم نقل الإجابة إلى آخر مرفق . وعله يكون الشافي لأخينا @بلانك -
وعليكم السلام ورحمة الله وبركاته .. أهلاً بك معلمي الفاضل @jjafferr ، وأشكرك جداً على هذه الملاحظة الدقيقة والمهنية . نقطتك في محلها تماااااماً ؛ فالتحديث الأول أوقف التايمر الخاص به فقط ولكنه لم يتدخل في تايمرات النماذج التقليدية ( Timer Interval ) كاستخدامك لها في الـ ( Hot Folders ) ، مما استمر في مقاطعتك كمطور عند كتابتك للأكواد داخل المحرر . ولذلك ، ولحل هذه المعضلة بشكل جذري وجعل الفكرة ناجحة 100% ، قمت بتوسيع مهام حدث الويندوز ForegroundChangedProc . الفكرة الآن أنه وبمجرد مرور تركيز الويندوز إلى نافذة محرر الأكواد VBA ، سيقوم الكود بمسح جميع النماذج المفتوحة بلحظة واحدةً ، وبالتالي يحفظ قيم التايمر لها - عند وجود الحدث فقط - في ذاكرة مؤقتة ، ويجعل التايمر = 0 . وعند إغلاقك المحرر ، سيعيد الاستئناف بدقة لكل نموذج بناءً على ما تم حفظه في الذاكرة . وقد تم الاعتماد على خصيصة hWnd كمعرف فريد للنماذج بدلاً من اسمها تفادياً لأي خطأ ( في حال كنت تستدعي أكثر من نسخة لنفس الحدث ) 😅 . سنقوم بالإعلان عن متغير ( الذاكرة المؤقتة ) الذي ستعيش وتموت مع فتح وإغلاق محرر الأكواد VBA ، كالآتي :- Private colPausedForms As Collection الإضافة الثانية ( عملية الإيقاف والفكشنة عند فتح VBA ) . وتكون في الجزء الأول من دالة ForegroundChangedProc داخل شرط If IsVBEOpen() Then ، وهي المسؤولة عن حصر النماذج المفتوحة لدالة الصيد لتقوم بإيقافها وتتبع النماذج الفرعية داخلها :- Set colPausedForms = New Collection Dim frmMain As Object For Each frmMain In Forms PauseAllTimers frmMain Next frmMain الإضافة الثالثة ، وتكون في الجزء الثاني Else عند إغلاق الـمحرر ، وهي المسؤولة عن إعادة الروح للتايمرات وقيمها الأصلية كما كانت عليه :- If Not colPausedForms Is Nothing Then Dim frmMain2 As Object For Each frmMain2 In Forms ResumeAllTimers frmMain2 Next frmMain2 Set colPausedForms = Nothing End If أما الإضافة الرابعة والأخيرة 😅 ( دالتين صغيرتين بمثابة محركات البحث المتداخل ) ، لكتابة وحفظ البصمات 😁 :- Private Sub PauseAllTimers(frm As Object) If frm.TimerInterval > 0 Then On Error Resume Next colPausedForms.Add frm.TimerInterval, CStr(frm.Hwnd) frm.TimerInterval = 0 On Error GoTo 0 End If Dim ctl As Object On Error Resume Next For Each ctl In frm.Controls If ctl.ControlType = 112 Then If Not ctl.Form Is Nothing Then PauseAllTimers ctl.Form End If Next ctl On Error GoTo 0 End Sub Private Sub ResumeAllTimers(frm As Object) On Error Resume Next Dim savedInterval As Long: savedInterval = 0 savedInterval = colPausedForms(CStr(frm.Hwnd)) If savedInterval > 0 Then frm.TimerInterval = savedInterval Dim ctl As Object For Each ctl In frm.Controls If ctl.ControlType = 112 Then If Not ctl.Form Is Nothing Then ResumeAllTimers ctl.Form End If Next ctl On Error GoTo 0 End Sub الآن الكود بحلته الجديدة وملفه الجديد تالياً ( فضلاً لا أمراً ، افتح النموذج Frm_WithTimerInterval ) وضع به ما شئت من نماذج فرعية بداخل بعضها البعض ذات تايمرات مستمرة ! ثم جرب الدخول إلى المحرر Time With No TimerInterval.accdb
-
-
كامل عثمان joined the community
-
M.Abd Allah started following استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
-
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
M.Abd Allah replied to M.Abd Allah's topic in قسم الأكسيس Access
السلام عليكم ورحمه الله وبركاته الحمد لله على كل نعمه وكل افضاله التي لا تعد ولا تحصى كل الشكر والتقدير لحضراتكم والله علي اراءكم وعلي تفاعلكم وعلي ردودكم ايها العمالقه هذا ما اردته في موضوعي وكنت اتمني انه اصل بكم الي هذه المرحله ( ونوهت في بدايه موضوعي ونهايته اني اريدكم جميعا فضلا وليس امرا ان تعودوا الي ما كنتم عليه ) وهو ان تلتفو حول بعضكم سواء اتفقتم او اختلفتم فالعلم ليس حكرا لاحد ولا هناك شخص افضل من شخص ( بل هناك طريقه افضل من طريقه ) فإذا عجبكم مواضيع احد ( علقوا ) وإن لم يعجبكم ( لا داعي للسخريه ) وكان ذلك من حقي كعضو ان اطرح موضوع كأي من الأعضاء ( فتحدثت عن موضوع الذكاء الاصطناعي وتأثيره علي اكسس حتي لا اخالف قوانين المنتدي بأنه يتم حذفه او نقله الي مواضيع اخري ) وأعلم انه تم قراءت ما كتبته كليا وتم ايصال رسالتي ويشهد الله اني احبكم جميعا فالله -
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
بلانك replied to بلانك's topic in منتدى الاكسيل Excel
تمام ..... الله ينور عليك تعبت حضرتك معايا .... ربنا يكرمك كما اكرمتني وصبرت عليا شكرا جزيلا ............... وتصبح على خير -
السلام عليكم انا لا استعمل الساعة في اي من برامجي ، اضطر للتعامل مع Timer Interval في بعض النماذج لفحص مجلدات معينة (هناك مجلد مشاركة بين المستخدمين ، والبرنامج يراقب هذا المجلد ، فلما يجد فيه ملف معين ، يقوم بعمل معين) ، هذا النوع من المجلدات يسمى Hot Folder. اثناء عمل هذا البرنامج (فكر به كأنه ساعة ، تغير المعاينة كل ثانية) ، لما ادخل الكود ، لا استطيع الكتابة بسلاسة ، بسبب Time Interval نموذج آخر. كنت اتمنى عملكم اعلاه يحل المشكلة ، ولكن اتضح ان الساعة تتوقف عن العمل عند دخولي الى نافذة الكود ، مما يجعلني لا استفيد من الكود.
-
السلام عليكم انا لا استعمل الساعة في اي من برامجي ، اضطر للتعامل مع Timer Interval في بعض النماذج لفحص مجلدات معينة (هناك مجلد مشاركة بين المستخدمين ، والبرنامج يراقب هذا المجلد ، فلما يجد فيه ملف معين ، يقوم بعمل معين) ، هذا النوع من المجلدات يسمى Hot Folder. اثناء عمل هذا البرنامج (فكر به كأنه ساعة ، تغير المعاينة كل ثانية) ، لما ادخل الكود ، لا استطيع الكتابة بسلاسة ، بسبب Time Interval نموذج آخر. كنت اتمنى عملكم اعلاه يحل المشكلة ، ولكن اتضح ان الساعة تتوقف عن العمل عند دخولي الى نافذة الكود ، مما يجعلني لا استفيد من الكود.
-
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
عبدالله بشير عبدالله replied to بلانك's topic in منتدى الاكسيل Excel
جرب التعديل التالي توزيع عدد الحصص (233) (1).xlsm -
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
بلانك replied to بلانك's topic in منتدى الاكسيل Excel
عند وضع 1 حصة في الخلية N9 أو الخلية N17 لا يعطي شئ -
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
عبدالله بشير عبدالله replied to بلانك's topic in منتدى الاكسيل Excel
-
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
بلانك replied to بلانك's topic in منتدى الاكسيل Excel
والله العظيم انا محرج منك استاذي ..... ولكن انظر للصورة مجموع الحصص الزيادة 12 وبعد تعديل حضرتك المجموع 11 وبالتالي ناقص حصة وبالتالي لم يتم عمل دائرة على الحصة ٣-٢ -
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
ابو جودي replied to M.Abd Allah's topic in قسم الأكسيس Access
AI يسرع التنفيذ فقط لكنه لا يستبدل الفهم الهندسي ولا الخبرة العملية -
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
محب العقيدة replied to M.Abd Allah's topic in قسم الأكسيس Access
....الرإي السائد الان ان مهمه البرمجيين اختلفت تماما هي لم يعد كتابه الكود ولا تصحيح الكود انما هو قائد اوركسترا فقط وهذا المصطلح سوف تسمعه كثيرا هل عندما تتابع فيديوهات ai مهمه المبرمج الان اصبحت فقط هو كيفيه اداره ادوات الذكاء الاصطناعي للوصول الى الكفاء القصوى في البرنامج المصمم واقصد ادوات الذكاء الاصطناعي كثيره منها السكيلز ملفات الام دي والام سي بي سيرفر والستيرنج ومشاريع github المتعلقه بالحصول على احدث،اساليب الاستفاده من الذكاء الاصطناعي مع ، -
توزيع عدد الحصص الزيادة للمعلم على مدار الاسبوع
عبدالله بشير عبدالله replied to بلانك's topic in منتدى الاكسيل Excel
التوزيع بالكود مغ زر رسم الدوائر توزيع عدد الحصص (233) (1).xlsm -
المطلوب عند الوقوف فى شيت المشتريات او المبيعات او شيت مبيعات اليومية عند تسجيل صنف يتم البحث عن الصنف من شيت المخزن بدل الرجوع الى شيت المخزن ويتم البحث منه وتكون نتيجة البحث فى الشيتان اسم الصنف والكود فقط ننتظر المساعدة
-
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
jjafferr replied to M.Abd Allah's topic in قسم الأكسيس Access
تطور التعليم بالنسبة لي: وقبل ايام الانترنت ، في عمل المجسمات الثلاثية الابعاد 3D Animation كنت مشترك في مجلات شهرية تجيني من الخارج ، استفيد من الامثلة . الان لما اكون بحاجة الى مساعدة لكود معين: ارجع الى مساعد اكسس في الكود F1 وابحث فيه ، ابحث في المنتدى هذا ، وفي مواقع الانترنت ، استعين بالذكاء الاصطناعي ، وبالخصوص في مناقشة عمل مشروع جديد (يعني مو الكود). صحيح عدد الاسئلة في المنتدى صار اقل ، ولكني اقرأ عداد "عدد مرات قراءات الموضوع" ، وارى ان هناك كم كبير من الاعضاء الصامت ، الذي لايزال يقرأ مواضيع معينة. بمعنى ، انهم لا يسألون الكثير من الاسئلة ، لأن هناك طرق اخرى للحصول على اجابات ، ولكنهم يزورون المنتدى لمعرفة الطرق التي لا يلبيها الذكاء الاصطناعي. وللعلم ، فهناك على الاقل موقعين عالميين للاكسس تم اغلاقهم قريبا ، واعتقد الذكاء الاصطناعي له دور في الغلق ، وهتاك موقع ممنوع فيه استعمال الذكاء الاصطناعي في الاجابات ، وهو عامر الى الان. هي موجه ، فلا بد من صعودها -
الحمد لله وفقني الله بحل الموضوع واصبح تمام
-
kkhalifa1960 started following إظهار عدد السجلات في النموذج الفرعي
-
-
sabah19672025 started following تعديل على كود
-
السلام عليكم عندي كود اريد التعديل عليه - التعديل المطلوب هو هناك في الملف الاصلي لقسم أو شعبة اكثر من تاريخ أي ان التقرير للفترة يوم أو يومين او ثلاث او شهر او سنة فيكون من ففترة الى فترة حاليا الكود يقوم بوضع تاريخ واحد كما تظهر بالنتيجة كما في الملف المرسل (مثال لشعبة الرمادي والفلوجة ) والصحيح ان الملف(الكل) يحتوي على أكثر من تاريخ ولكن بالنتائج ياخذ فقط تاريخ واحد وهو أول تاريخ أما الملف الاصلي الذي يحتوي على البيانات هو كما في الملف الكل الموجود في مجلد التقارير الذي يحتوي لبعض الاقسام أكثر من تاريخ - واليك البرنامج الذي يحتوي على الكود في البرنامج هناك مفتاح اسمه ملف انشاء ملفات الاقسام الذي يحتوي على الكود والمطلوب التعديل عليه والرقم السري للدخول للمحرر الاكواد 1967=1967 الرمادي_25-03-2026.xlsx الفلوجة_25-03-2026.xlsx الكل.xlsx البرنامج.xlsm
-
استخدام الذكاء الإصطناعى فى تطوير بيئه العمل على اكسس
منتصر الانسي replied to M.Abd Allah's topic in قسم الأكسيس Access
الأخ @ابو جودي لخص الكلام كله في عبارتين