كل الانشطه

لم تظبط اخى مش عارف الخطأ اين

اسف عبى التاخير من رفع الملف كنت انتظر مشاركتكم وبانتظار مشاركة الاخ Ahmed Yussuf ولان ايضا الملف كبير2.62 سارفعه اليوم ولكن يقية عندي ان اجد دليل استخدام مكتوب باللغة العربية والانجليزبة ب100صفحة الى 150 صفحة فلم اجد للتجربة قبل الرفع اي واحد من الاخوة مشكور يزودني بملف نصي للتجربة وشكرا

يمثل تأسيس المشاريع التجارية الجديدة في قطاع الأغذية والمشروبات، مثل البقالات والمقاهي والمطاعم، خطوة استراتيجية تتطلب تخطيطاً دقيقاً لضمان توفير بيئة جاذبة للمستهلكين وحفظ المنتجات بأعلى معايير السلامة والجودة. وتعتبر وحدات التبريد الزجاجية من أهم الركائز التي يعتمد عليها نجاح المشروع، لكونها تجمع بين التصميم الجمالي الذي يعرض البضائع بشكل مشوق وبين الأداء الميكانيكي الفائق الذي يضمن بقاء الأطعمة طازجة؛ وفي ظل انتعاش السوق السعودي، يبحث المستثمرون بانتظام عن معرفة اسعار ثلاجات العرض لاختيار الموديلات التي توفر أعلى كفاءة تشغيلية بأقل تكلفة ممكنة، حيث تتنوع الأسعار بناءً على السعة اللترية، وجودة الزجاج المزدوج المقاوم للضباب، ونوع الكمبرسور المستخدم، مما يتيح خيارات مرنة تناسب الميزانيات المرصودة للمشاريع الناشئة لراحة بال تامة. كفاءة العرض البصري وتجهيز البقالات بأحدث منظومات التبريد الرأسية إن الوصول إلى الفعالية التشغيلية المطلوبة يتطلب من أصحاب العمل تجهيز منشآتهم بأجهزة متينة تتحمل الفتح والإغلاق المتكرر طوال ساعات العمل؛ ومن هنا يزداد الطلب على اقتناء ثلاجات عرض سوبر ماركت المصممة بأبواب زجاجية منزلقة أو مفصلية ومزودة بإضاءة (LED) داخلية تبرز تفاصيل المنتجات بوضوح تام. ويتكامل هذا التوجه مع ضرورة فحص وتتبع أسعار ثلاجات عرض المشروبات الغازية والعصائر والمياه، لكونها تمثل السلع الأكثر حركة ومبيعاً يومياً، وتتطلب ضخاً مستمراً للهواء البارد لمنع تلف المكونات والمحافظة على الانتعاش المطلوب. ولضمان تقديم تجربة استثنائية لعشاق المخبوزات، يحرص أصحاب المقاهي على مقارنة اسعار ثلاجات العرض للحلويات المصممة بأرفف زجاجية دوارة أو ثابتة تضمن توزيع الرطوبة بدقة متناهية لمنع جفاف الكيك والفطائر، مما يضمن لك حماية استثماراتك وزيادة أرباحك اليومية بكل يسر وسهولة.

السلام عليكم الاساتذه الكرام لدي برنامج على الاكسس فيه شاشه رئيسيه عند تغيير اعدادات ايقونات سطح المكتب الى حجم كبير تطهر الشاشه الرئيسيه في الاكسس غير كامله بسبب تكبير حجم ايقونات سطح المكتب هناك هناك حل بان يكون تعديل الحجم تلقائي ولكم جزيل الشكر

😵 وااااااااو

استاذي كل الشكر والتقديري على اهتمامك وحل مشكلتي بدقة متناهية اعزك الله وادامك بكل الخير

ماشاءالله تبارك الله ابداع وابداع وذوق جزاك الله خير الجزاء على هذا المجهود المميز

┌──────────────────────────────────────────────┐ │ MS Access Client (Frontend) │ └──────────────────────────────────────────────┘ │ ▼ ┌────────────────────┐ │ txtQuestion │ │ (User Question) │ └────────────────────┘ │ ▼ ┌────────────────────┐ │ cmdAsk_Click │ │ (Button Click) │ └────────────────────┘ │ ▼ ┌────────────────────┐ │ modLlmAssistant │ │ VBA Module │ └────────────────────┘ │ HTTP POST (Plain Text) │ ▼ ══════════════════════════════════════════════════════════════════════════════════════════════ ┌────────────────────────────────────────┐ │ FastAPI Server (Port 5000) │ └────────────────────────────────────────┘ │ ▼ ┌────────────────────────────────────────┐ │ BM25S Retriever │ │ Search manual.txt │ └────────────────────────────────────────┘ │ ▼ Top 5 Candidate Paragraphs │ ▼ ┌────────────────────────────────────────┐ │ FastEmbed Re-ranker │ │ Semantic Ranking │ └────────────────────────────────────────┘ │ ▼ ┌────────────────────────────────────────┐ │ Score Filtering │ │ Threshold ≥ -5.0 │ └────────────────────────────────────────┘ │ ▼ Best 5 Relevant Paragraphs │ ▼ ┌────────────────────────────────────────┐ │ Prompt Builder │ │ Context + Instructions + Question │ └────────────────────────────────────────┘ │ ▼ ══════════════════════════════════════════════════════════════════════════════════════════════ ┌──────────────────────────────────────────┐ │ llama-server.exe (Port 8080) │ └──────────────────────────────────────────┘ │ ▼ ┌──────────────────────────────────────────┐ │ Qwen2.5-0.5B GGUF │ │ Language Model │ └──────────────────────────────────────────┘ │ ▼ Generated Answer │ ▼ ┌────────────────────────────────────────┐ │ FastAPI Server │ └────────────────────────────────────────┘ │ ▼ ┌────────────────────────────────────────┐ │ modLlmAssistant (VBA) │ └────────────────────────────────────────┘ │ ▼ ┌────────────────────────────────────────┐ │ Display Answer in MS Access │ └────────────────────────────────────────┘ هذا النظام الذي اعمل عليه؟ السؤال كيف يتم تنزيل الملف الى العميل الجواب ببساطة فولدر مضغوط تفك ضغطه فيه مجموعة فولدرات وملفات التشغيل هناك ملف نصي تلصعق فيه دليل الاستخدام بالعلابي او الانجليزي زهناك ملف تنفيذي اما ان تشغله بدويا او عن طريق فورم الذكاء الصناعي وتفغلقه عند اغلاق النموذج وهذا كل شي حجم الفولدر مع نموذج الذكاء مع ملفات التشفيل مع كا شيء 2.65 جيجيا

تأمين الملف فقط متاح بالنسخة التجريبية فك التأمين يلزم ترخيص

إذا كنت مبرمج Excel وتبحث عن حماية حقيقية لمجهودك، فهذا الحل صُمم من أجلك. تشفير وإخفاء كود VBA باحترافية. مقاومة لمحاولات إلغاء الحماية باستخدام أدوات الـ Hex Editor الشائعة. إمكانية إعادة فتح المشروع عند الحاجة للتطوير أو الصيانة. اجعل الوصول إلى الكود أصعب بكثير من وسائل الحماية التقليدية، واحمِ سنوات من مجهودك البرمجي. ================================= رابط تحميل النسخة التجريبية. https://www.mediafire.com/file/gfd85xkw3ozgwij/VBA_Manager.exe/file

هذا المثال نفذته عند التطبيق للثاعدة يظل اول نموذج يخرج تم الاتصال دو ن ظهور النموذج المحدد للمسار A-1.accdb

السلام عليكم ورحمة الله وبركاته ....هذا هو المطلوب اخي مروان اضافة علاوة دورية وحافز اضافي لعام 2026 في الشيت المرفق ... المطلوب الأول :- في ورقة عمل ( تدرج_مرتبات ) نريد اضافة علاوة دورية بنسبة 12% في الخلية رقم c142 بنفس الأسلوب ومعادلات العلاوة الدورية السابقة لها التي في الخلية رقم c138 والمأخوذة من الجدول المساعد في الخلية رقم af196 المأخوذة أيضا من الجدول المساعد من الخلية رقم ak245 . المطلوب الثاني :-في ورقة عمل ( مفردات_مرتب ) وحتي تظهر المفردات سنكتب في كود الموظف رقم 10 ونكتب في الحالة الاجتماعية رقم 4 ستظهر المفردات نريد عمل صف ليس به معادلات وأسفل حافز اضافي 2025 ونضيف صف حافز اضافي 2026 بقيمة 750 جنيه بنفس طريقة اضافة حافز اضافي 2025 بحيث عند عمل معاينة للمفردات تظهر قيمة حافز اضافي 2026 بقيمة 750 ...ملحوظة هامة جدا… لكي يعمل البرنامج ويظهر التدرج نكتب في خانة تاريخ التعيين 1/7/1978 ونكتب في خانة درجة التعيين درجة 3 مرفق صورة اسم البرنامج التي يتم التعديل عليه

لا لا اخي فادي تفكيرك ذهب بعيدا على كل سارفق الية عمل التطبيق الذي اعمل علبه وارفق انتقادات CHATGPY عليه تستطيع الشبك على MCP الذي انا عملته او على اي واحد اخر فكثير جدا متوفر على الجت هب واجعل الفايب كودنج ينتقد وينشء الافضل. ستعرض عليه الملف وسينشء لك الافضل طبعا لو عندي اشتراك ب CLUDE FABLE5 متاكد سيكون الاقتراح والعمل افضل AI_LOCAL_ACCESS.docx

وعليكم السلام ورحمه الله وبركاته اليك الحل بالكود لعله يكون المطلوب 👇 Sub SeparateSubjects() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim outputRow As Long Dim subjects() As String Dim subject As Variant Set ws = ThisWorkbook.Sheets(1) lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row outputRow = 6 ws.Range("D6:E1000").ClearContents For i = 6 To lastRow Dim subjectsText As String subjectsText = ws.Cells(i, "C").Value Dim seatNumber As String seatNumber = ws.Cells(i, "b").Value subjects = Split(subjectsText, " - ") For j = LBound(subjects) To UBound(subjects) ws.Cells(outputRow, "D").Value = seatNumber ws.Cells(outputRow, "E").Value = Trim(subjects(j)) outputRow = outputRow + 1 Next j Next i MsgBox "تم فصل المواد بنجاح!", vbInformation End Sub بالكود.xlsm

عدد القراءات كفيل بأن يجعلني أقوم بمفاجأتكم بنشر موضوع جديد قريباً،، 😉

برأيي المتواضع أنه لو كان توجهك التنفيذي بدون انترنت ، فحتماً ستضطر لبناء مكتبة استفسارات ضخمة تغذيها لجدول الإستجابة والردود التي سيطلقها رد التطبيق. يعني تغذية خوارزمية الإجابات ستكون ضخمة جداً مقارنة مع الـ 500 ميجا التي ذكرتها.

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام دمتم بكل الخير مرفق ملف به جدول مواد رسوب والطلوب من حاضرتكم تحويله كما هو موضح بالملف دمتم بالصحة والعافية تقديري 1.rar

حفظك الله والله عدلت كل شئ تمام كمان عدلت من القاعدة من الاعدادات كانت الدخول ل نموذج الدخول عملتها نون كما فى مثالك بالضبط اجدان عند الفتح نموذج يخرج رسالة تم الاتصال التلقائي لنجاح باستمرار فحصت مثالك تمام ونفذته كلل ما فيه لا ينقلني إلى نموذج تحديد المسار بل يستمر مرارا ويتكرر تم الاتصال بنجاح مشكوووور اخى مش عارف الخطأ اين بس بصراحة مجهود ممتاز ونماذج رائعة لذلك احتاج اضمها لقاعدة بياناتى اسف للاطالة

أخي أبو الحسن عد إلى هذه المشاركة وافتح الماكرو AutoEXEC لاحظ في الصورة الرقم 3 يشير إلى اسم أول نموذج يفتح في قاعدة البيانات .. عدله إلى اسم النموذج الذي لديك .. 🙂 ولا تنسى تعدل اسم الجدول أيضا والمشار إليه بالرقم 1 ..

اشكرك اخى موسىالحبيب الملف كبير قاعدة كبيرة جداو ل ونماذج ونموذج الدخول انا طبقت كل شى ما ضبط ارفع مثال لحضرتك

هذي المرة ضع ملفك أخي أبو الحسن 🙂

الف شكر أخي ابو مروان علي الاهتمام شرحت المطلوب بالمشاركة وأرفقت شيت تحميل البرنامج البرنامج اسمه salary_sale وعند فتح البرنامج يفتح علي الصفحة الافتراضية نكتب في خانة تاريخ التعيين 1/7/1978 وكتب في خانة الدرجة رقم 3 سيتم ظهور التدرج والدخول ب ctrl+w والنزول لأسفل الشيت والتعديل علي تاريخ 1/7/2026. شكرااا جزيلا… 🙏

بارك الله فيك أخي المهذب

السلام عليكم ورحمه الله وبركاته استاذ @ashrafelsisi حاول شرح المطوب وارفاق شيت للعمل عليه ما هو الطلوب بالتحديد

اتفضل الاكواد بعد التعديل لعله يكون المطلوب واخبرنا بالنتجه اليك بعض الاكواد ممكن تساعدك كود مسح الخلايا بعد الترحيل اخر كود الترحيل وغير النطاق زاي ما هو موضع wsSrc.Range("B13:J13").ClearContents لو مش عايز ترحل لو الخلايا فارغه قبل كود الترحيل وغير النطاق زاي ما هو موضح If WorksheetFunction.CountA(wsSrc.Range("B4:J4")) = 0 Then MsgBox "الخلايا فارغة لم يتم الترحيل.", vbExclamation Exit Sub End If Sub Transfer1() Dim wsSrc As Worksheet, wsDst As Worksheet Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil1") If WorksheetFunction.CountA(wsSrc.Range("B4:J4")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If If WorksheetFunction.CountA(wsSrc.Range("B6:I6")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If wsDst.Range("A6:I6").Value = wsSrc.Range("B4:J4").Value wsDst.Range("J6:Q6").Value = wsSrc.Range("B6:I6").Value End Sub Sub Transfe12() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil12") If WorksheetFunction.CountA(wsSrc.Range("B9:J9")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B9:J9").Value End Sub Sub Transfe13() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil13") If WorksheetFunction.CountA(wsSrc.Range("B13:J13")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B13:J13").Value wsSrc.Range("B13:J13").ClearContents End Sub Copy of Copy of Horaire-18-06-2026-(04.12.06) (3).xlsb