Foksh

لا اعام ان كان ما فهمته صح أو لا ، لأنك توهتني في التوضيح الأخير المبهم . على العموم جرب هذا المرفق 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

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

ارجو أخي الكريم @صالح الصالحي ان تقوم بالغاء افضل إجابة ، واستخدامها لحين ان تجد الإجابة الصحيحة أياً كان مقدمها ، هذا أولاً ثانياً ، التزاماً بقواعد المنتدى ادراج بعض البيانات التي ترغب بانتاج البحث والتقارير عنها ، وليس ارفاق ملف فارغ وكأنك تريد ممن يقدم المساعدة أن يملأه ثالثاً ، للوصول لحلول لمشكلتك :- لا تستخدم أسماء عربية في مسميات الحقول . لا تستعمل المسافات بين الأسماء . لا تستعمل اسماء حقول محجوزة للبرنامج مثل ( Name,Date,To,From ..... إلخ ) لا تستعمل رموز ( #، @،$،& .... إلخ ) في مسميات الحقول . لا تستعمل الأرقام في أسماء حقول الجداول أو تبدأ بها . قواعد المشاركة بمنتدي أوفيسنا

جزاك الله خير على الهدية أخونا الفاضل @عبد اللطيف سلوم ، ولمشاركتك فكرة أستاذنا @ابو جودي ( رغم غيابه عنا في الفترة الأخيرة ) . إلا أني دائماً أتوجه إلى أن تكون بداية الأسبوع عندي يوم السبت وليس الإفتراضي حسب الكمبيوتر يوم الأحد ، فهذا تعديل لا يلمس شيء في هديتك سوى أنه يجعل احتساب الأسبوع يبدأ من يوم السبت لا الأحد . Private Sub salloum_AfterUpdate() Me.x1 = Me.salloum.Column(1) Select Case Me.salloum.Column(0) Case "1" Me.n1 = DateSerial(Year(Date), 1, 1) Me.n2 = DateSerial(Year(Date), 12, 31) Case "2" Me.n1 = DateSerial(Year(Date), Month(Date), 1) Me.n2 = DateSerial(Year(Date), Month(Date) + 1, 0) Case "3" Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date) Me.n2 = DateAdd("d", 6, Me.n1) Case "4" Me.n1 = DateSerial(Year(Date) - 1, 1, 1) Me.n2 = DateSerial(Year(Date) - 1, 12, 31) Case "5" Me.n1 = DateSerial(Year(Date), Month(Date) - 1, 1) Me.n2 = DateSerial(Year(Date) - 1, 12, 31) Case "6" Me.n1 = DateAdd("d", -Weekday(Date, vbSaturday) + 1, Date) - 7 Me.n2 = DateAdd("d", 6, Me.n1) Case "7" Me.n1 = Null Me.n2 = Null End Select End Sub

طيب كفكرة ، جرب هذا المرفق وخذ لقطة للشاشة وادرجها هنا لرؤية النتيجة :- اختيار ماسح ضوئي.accdb

اختلط علي الأمر هههههههه بسيطة دي يا دكتور .. احنا نحجز متغير من نوع Date وليكن اسمه التاريخ السابق ( PreviousDate ) ، ونحدد قيمته بناقص يوم للتاريخ الذي في مربع النص Text15 ، ثم نحدد قيمة مربع النص Text17 بتغيير بسيط ، ليصبح الكود كالآتي :- Dim PreviousDate As Date PreviousDate = DateAdd("d", -1, Me.Text15.Value) Me.Text17.Value = Nz(DLookup("rased", "T1", "mastedate = #" & Format(PreviousDate, "mm/dd/yyyy") & "#"), 0)

صديقي الدكتور @الحلبي ، أعلم جيداً انك قد توجهت للدالة Dlookup وأنك لم تحصل ما تطلبه والسبب هو باعتقادي أنه بالتاريخ المطلوب الذي حددته سيقرأ اكسيس التاريخ على انه تنسيق dd/mm/yyyy ولكنه في الواقع بهذا التنسيق mm/dd/yyyy ، لذا تفضل بتجربة هذا السطر في حدث بعد التحديث لمربع نص التاريخ Text15 :- Me.Text17.Value = Nz(DLookup("rased", "T1", "mastedate = #" & Format(Me.Text15.Value, "mm/dd/yyyy") & "#"), 0) الرصيد.accdb جرب وأخبرني بالنتيجة

فعلا الكود يعمل على نظام 32 بكفاءة ، لكن على نظام 64 فلا يعمل عند إضافة الجزء Ptrsafe كما حاول الأستاذ @عبد اللطيف سلوم 😉 . لربما موضوع أستاذنا جعفر واسع النطاق وأساس الإجابة كما تفضل استاذ خليفة .

لما شرحته في طلبك ، ارفق ملف ليتم العمل عليه 😊