Foksh

غريب ، هذا هو كود الأستاذ @محمد احمد لطفى ، من جهازي ما هو اصدار الويندوز والأوفيس لديك ؟ 20240506_170555.zip

الكود يعمل معي على نسخة ويندوز 10 وإصدار أوفيس 64 ، ولكن يبدو انك بحاجة لإضافة PtrSafe لتحويل الكود للعمل على إصدار 64 . والشكر للأستاذ @محمد احمد لطفى على فكرته الجميلة وهذه فكرته لا أتعدى عليه ولا أحصد ثمر مجهوده الثمين ، وإنما بلمستي Hide Icon Desktop.accdb

خرجت مع أختها دي IIf(IsNull([YourTextBoxt]),0,([YourTextBox])

بالدرجة الأولى أثناء تصميمك للجداول ، اجعل القيمة الافتراضية للحقول الرقمية = 0 وتستطيع في هذه الحالة أن تجعل لمربعات النص التي تريدها أن تجعل في حدث عند الخروج الكود التالي كمثال :- If IsNull(Me.YourTextBoxName) Or Me.YourTextBoxName = "" Then Me.YourTextBoxName = 0 End If * من وجهة نظري

اخي الكريم @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

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

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