ابو ياسين المشولي

صحيح كلامك لكن اخونا لم يرفق مثال وقلنا له لكي يوقف التنقل قلته له اكست صب

اضف بعد الرسالة Exit Sub او ارفع مثال مصغر يطبق عليه

بالتوفيق اخي

الخطاء اخي جعفر ان الاخ محمد لم يرتب المجلدات بالاسم الصحيح D:\مصطفى\الصور\تحليل بيانات العيادة\اكرم.jpg انظر الى ترتيبها في الجدول

اخي الكريم مجلد بالدي اسمه مصطفى داخله مجلد اسمه الصور داخله مجلد اسمه تحليل بيانات العياده يفترض فيه صورة بسم اكرم.jpg

Me.[اسم مسار الصور].Visible = False غير مسار الصورة حسب ماهو مسمى عندك

عفو اخي لم يكتمل تحميلك للملف تاحد من رفعه مرة اخرى https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=147046

اكيد يعطي نفس النتيجه اهم شب الاسم بالنموذج مطابق للاسم Me![ImagePath]

وعليكم السلام ورحمة الله وبركاته بارك الله فيك اخي جعفر

اخيShivan Rekany انا عارف انه بيحسب هكذ انا ما اريده انه حقل dete_add2 هو تاريخ الخصم والحقل dete_add هو تاريخ مدفوع فانا اريد المدفوع في تاريخ الخصم اي خلال فترة الخصم لنفس الفاتورة لذلك حبيت اعرف كيف اضيف شرط الفاتورة

الكود هو نفس كود فقط اضفت له هذا DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNext

اخي Shivan Rekany انا بعتذر منك مازالت نفس المشكلة ياليت تحمل اخر مرفق عدلته المفروض بيطلع مبلغ المدفوع 50 ولكن لم يطلع خذ نظرة

معذور اخي ماقصرت الله يحفظك

تسلم اخي Shivan Rekany اتعبتك معي وكانت النتيجه هي خطاء مني في تاريخ الادخال والكود المطلوب هو هذا =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[tabol_sdad_mord]![fatora_no]=[fatora_no]" & "And [dete_add2] Between[snddate] And [snddate2]");0)

وهذا المثال فيه البينات الجديده Database161.accdb

الله يسلمك بالتوفيق اخي

تسلم اخي Shivan Rekany لكن ليس الطلب لم يطلع قيمه 50 الموجوده بالجدول انظر الصورة

جرب هذا Dim strFilter As String Dim lngflags As Long Dim varFileName As Variant strFilter = "All Files (*.*)" & vbNullChar & "*.*" _ & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*" lngflags = tscFNPathMustExist Or tscFNFileMustExist _ Or tscFNHideReadOnly varFileName = tsGetFileFromUser( _ fOpenFile:=True, _ strFilter:=strFilter, _ rlngflags:=lngflags, _ strDialogTitle:=" ÇáÑÌÇÁ ÇÎÊíÇÑ ãáÝ ") If IsNull(varFileName) Then Else Me![ImagePath] = varFileName DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNext End If cmdAdd_End: On Error GoTo 0 Exit Sub cmdAdd_Err: Beep MsgBox Err.Description, , "Error: " & Err.Number _ & " in file" Resume cmdAdd_End Me.Refresh

الجدول dataموجود والمشكلة هي في جدول tabol_sdad_mord اريد الداله تاخذ القيمه من جدول tabol_sdad_mord

اتفضل برنامج اجازات التكليف 1بالاعياد الأصل.accdb

عند تحميل ملفك هل انت قمت بحذف الملف ؟ https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=147003

للاسف يوجدخطاء اخي Shivan Rekany اليك المثال هذا مثال الداله في خانه المبلغ المدفوع Database161.accdb

نفس الشي اخي يعطيني خطاء #Name?

السلام عليكم ورحمه الله وبركاته اخواني الكرام اين الخطاء في هذة الدالة مع العلم fatora_noهي رقم وليس نص =Nz(DSum("[item_preis]";"tabol_sdad_mord";"[fatora_no]=" & [fatora_no] And [dete_add2] Between [snddate] And [snddate2] & "");"0")