Foksh

اخي الكريم @Mohamed Abo Elala بدايةً هل قمت بتعيين قيمة المتغير قبل البدء بتنفيذ الاستعلام ؟ وهل تم حجز المتغير X كمتغير رقمي بنوع ( Long أو Integer ) . هذا من وجهة نظري ، لعدم وجود مرفق 😊 .

ما نسيتك يا صديقي ، ولكن صدقاً انشغلت في العمل من جهة ، ومن جهة أخرى عندي بعض الطلبات لأخوة في المنتدى وفي جروب الواتس أب 🥺

في المرفق ليس هناك اي شيء يتعلق بالتصدير

جرب فكرتي نص طويل.accdb

مشكلتك في التجميع اللي في الاستعلام .

أخي @صالح الصالحي ، جزاك الله خير على ردك وتوضيحاتك التي ذكرتها ، ولكن لكثرة الحقول وتعدد العلاقات مع وبين الجداول وجدت ان الموضوع ليس بالهين 😇 وقد نستعين سويةً بخبرات أساتذة أتعلم منهم 🤗

ممكن توضح أكثر ؟؟؟؟؟؟؟ لأنه في مثالك المرفق لم توضح علاقة عجل الماوس في النموذج ؟؟؟؟؟؟؟

لا اعام ان كان ما فهمته صح أو لا ، لأنك توهتني في التوضيح الأخير المبهم . على العموم جرب هذا المرفق LAB_2024 - JO.zip

اخي الكريم ، الرسالة الاولى تظهر بسبب خطأ في المسار الناتج عند الحفظ ، لاحظ وجود أشارة / مكررة مرتين متتاليات في المسار الظاهر في الرسالة ، ثم سأرفق لك التعديل ولكن تأخري بسبب خروجي من العمل باكراً . وقد ساهم الأستاذ @سامي الحداد جزاه الله خيرا 🤗

اعتقد بسبب كثرة الفلترة التي تتم على النموذج . * مجرد رأي قابل للصواب والخطأ

شوف هذا التعديل هو المطلوب ؟؟ myArchfa.accdb

تم التحديث في المشاركة السابقة ، رغم ان الملف قام بالتحميل ، ولكن للتأكيد

لاحظت أن المشكلة في ان النموذج الفرعي يفقد مصدر سجلاته ، فقمت بتعديل بسيط ، جرب المرفق التالي :- Fillter.accdb

طيب يا صديقي ، ممكن تفسر أكتر المشكلة بعد ما تلغي الفلترة بالجملة دي ؟؟

أخي @aldaynee ، دون مرفق لا اعتقد أنك ستجد حل شافي ، ولكن انظر لهذا المرفق قمت بنسخ نص من ويكيبيديا يتجاوز أعتقد الـ 500 حرف ويظهر النص في التقرير بشكل كامل . عل المشكلة في نسخة الأوفيس !!! أو ارسل ملف يضم المشكلة Long Text.accdb

أخي @صالح الصالحي ، على السريع هذه فكرة غير مكتملة ؛ ولكن الق نظرة على النتائج ، اختر الشهر الحالي كبداية وانظر لنتيجة الاستعلام في التقرير ان كانت صحيحة أم لا 2المواقف - Test.accdb

جرب أخي @طير البحر filtererr.accdb

جرب هذه الفكرة أخي @jo_2010 . قمت بإنشاء مربع نص داخل النموذج الفرعي وجعلته يقوم بعد السجلات التي في النموذج الفرعي ، اذا كانت = 0 تظهر لك رسالة وتستطيع استبدالها بأي حدث تريده ، واذا كانت غير ذلك يتم اغلاق النموذج . LAB_2024 - JO.zip

تفضل أخي @العنزي العنزي ، تم إجاء تعديلات على زر اختيار ملف الـ PDF ، وعلى زر الحفظ :- في زر اختيار الملف :- On Error GoTo err: Dim dbox As Office.FileDialog Set dbox = Application.FileDialog(msoFileDialogFilePicker) With dbox .Title = "PDF" .Filters.Clear .Filters.Add "PDF files", "*.PDF" .AllowMultiSelect = False .Show book_Bath = .SelectedItems(1) Me.Image1.Picture = Me.book_Bath Me.Image1.Requery End With Set dbox = Nothing err: DoCmd.CancelEvent وفي زر الحفظ :- If IsNull(book_Num) Then Beep MsgBox "رقم الكتاب مطلوب" Exit Sub End If Dim targetFolder As String If Me.book_Type = "وارد" Then targetFolder = CurrentProject.Path & "\Files\Wared" ElseIf Me.book_Type = "صادر" Then targetFolder = CurrentProject.Path & "\Files\Sader" Else MsgBox "نوع الكتاب غير معروف" Exit Sub End If If Dir(targetFolder, vbDirectory) = "" Then MkDir targetFolder End If SourceFile = Me.book_Bath strmyfile = Right(book_Bath, Len(book_Bath) - InStrRev(book_Bath, ".")) DestinationFile = targetFolder & "\" & Me.book_Num & "." & strmyfile FileCopy SourceFile, DestinationFile MsgBox "تم حفظ الكتاب" Me.Requery myArchfa.zip

لإغلاق الموضوع قم باختيار أفضل إجابة 🤗

أنصحك بأن تفتح موضوع جديد وان ترفق مثال مع عدد بسيط من السجلات لتطبيق الفكرة 😊

استناداً لهذه الجملة ، جرب فكرتي 😅 Me.Child1.Form.FilterOn = False Me.Child1.Form.Requery وأهلاً بعودتك استاذنا @ابو جودي 🥰

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

تفضل اخي الكريم ، هل هذا طلبك ؟ Database.accdb

أهلاً بك معنا في منتدانا الكبير ، وأتمنى أن تجد الفائدة التي ترجوها . وما ذكرته لك حتى لا يتعرض موضوعك للإغلاق أخي @صالح الصالحي