نجوم المشاركات

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

┌──────────────────────────────────────────────┐ │ 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 جيجيا

وعليكم السلام ورحمه الله وبركاته اليك الحل بالكود لعله يكون المطلوب 👇 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

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

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

شكرا جزاكم الله خيرا