ابو عارف

آمين و إياك

وعليكم السلام و رحمة الله و بركاته تفضل المطلوب في المرفق VV.accdb

اجابتك تم اختيارها كأفضل إجابة أو لم يتم ، و لكن ولا اجابتك يخلو أفضلية استاذ @Foksh ماشاء الله عليك اخيرا جئت بحل سؤال الأخير خاصتا دالة Clng كانت ضائعة مني من يومين ابحث في ملفاتي و الحين وجدتها في مشاركتك الكريمة و بارك الله فيك دايما الى الامام.

اوفيس لدينا 2019 جربت من 1/5/2025 و 1/6/2025 لمدة شهرين و نتيجة كانت كما في صورة

للأسف لم يعمل

إن شاء الله، جاري تجربة

تم حذف مشاركة

طيب ممكن عنوان الصفحة

وعليكم السلام و رحمة الله ممكن سؤال بعد إذنك على أي برنامج تم إنشاء الملف الاول ،

بنسبة ملف الأول خانة جرامات : MOD( SUM(C3:C53), 1000) كسور حقل C بعد تجميع و تقسيم على 1000 و خانة كيلوات: SUM(D3:D53)+INT(SUM(C3:C53)/1000) تجميع حقل D + عدد صحيح ، تجميع حقل C و تقسيمه على 100 و الملف الثاني : تم دمج خانتين ومعادلة: تجميع حقل C + تجميع حقل D

تفضل أخي عملت لك على طريقتين تختار الملف ما يناسبك بتوفيق. شغل.xlsx شغل2.xlsx

و عليكم السلام و رحمة الله و بركاته تفضل اليك التعيل إن شاء الله يكن حسب المطلوب test (5).accdb

شكرا على حسن ظنكم بارك الله فيكم ،بس اريد من حضرتكم خدمة الا و هي استعادة اتمام الإجابة لمكانها السابق و اكن لك من شاكرين.

اخي الكريم و استاذنا الجليل @ابو جودي باختصار شديد ايضاً ، ضم دالتين (Isnull) و (="") يتحقق من جميع تلك الأخطاء و ما اظن ان يبق مجال لدوال اضافية هذا اولا و ثانيا نحن سلطنا ضوء كلها على شرط الثاني في السؤال و ما اذا اورد تلك الأخطاء في جقل xxx مثلا لان xxx برضو مش معصوم من الخطاء و لك منا الف تحايا. ملحوظة: بسبب عدم استطاعتي كتابة لغة عربية صحيحة ، قد تعذر علي وصولكم فهمي بسهولة و وصفكم بكلمات ما يناسبكم ايضا ارجو ان لا تفكروني بانني غير مهتم، والله وراء الفصد.

لاشك ان دالتين مهمتين جدا في بعض الاحيان ولكن سؤالي كان دور دالتين في إطار موضوع الحالي فقط على العموم ،اسطرك الجميلة منح رونق اضافي للموضوع و يسعدني مشاركتك القيمة.

اي كلام ده!!! اباجودي يستأذن!! مش معول🤔 تفضل عزيزي @ابو جودي حياك الله إذننا دائما معك سؤال خطر ببالي حول دالتين Nz و Trim ولكن دالتين هذا يفيدنا في حالة استخدام قيمة متغير او عنصر ،Trim لإزالة مسافات يمين و يسار قيمة و Nz لإرجا فراغ عند عدم وجود قيمة ، ولكن هنا مطلوب التأكد ان كان حقل فارغ ام لا ، اذا فارغ خلاص قد تم ايفاء شرط و الا الشرط لايفي سواء بمسافات يمين و يسار أو بدونهم هذا حسب علمي طبعا و لو استاذنا كشف فيه ميزة اضافية ممكن يكرمنا بمثال بسيط الفرق بين استخدام تلك دالتين من عدمه.

جرب هذا If me. xxx <> 0 and (isnull (me.yyy) or me.yyy="") then هنا مكتب الحدث Else Ebd if

قوفل شيت و الأكسس افضل برامج لجلب بيانات من جداول في مواقع حتى اكسل نفسه، الصق عنوان موقع و نحن نساعدك إن شاء الله.

تفضل أخي Private Sub Form_Current() If Me.External_lab = "البرج" Then Me.B.Visible = True Me.M.Visible = False ElseIf Me.External_lab = "المختبر" Then Me.B.Visible = False Me.M.Visible = True ElseIf IsNull(External_lab) Or Me.External_lab = "" Then Me.B.Visible = False Me.M.Visible = False End If End Sub jo2025.accdb

وعليكم السلام و رحمة الله أخي الكريم من اجل تجنب أخطاء مستقبلا ، عليك متابعة مواضع كما اشار اليه الأستاذ @Foksh لان اسماء حقول محتوي فواصل و كذالك الرموز الاقواس و علامات استفهام مثلا و شيء آخر عند الحاق جول بجدول آخر يجب استثناء حقل ترقيم تلقائي في جدول الهدف على العموم حاليا جرب الكود من الافضل تجربة في قاعدة اساسية لان هناك بعض جداول مرتبطة Private Sub Commande1_Click() '------------------------------------------------- On Error Resume Next Dim SQl As String Dim SQl2 As String Dim DB As DAO.Database Dim rst As Recordset Dim rst2 As Recordset Dim fld As Field Dim fld2 As Field Set DB = CurrentDb '----------------------------------------------------- Dim mfile As String 'ÇÎÊíÇÑ ãáÝ ÅßÓá mfile = GetFileName ' Ýí ÍÇáÉ ÚÏã ÇÎÊíÇÑ ãáÝ íÊã ÇáÅáÛÇÁ æÇáÎÑæÌ ãä ÇáÚãáíÉ If mfile = "" Or IsNull(mfile) = True Then Exit Sub ' ÇÓÊíÑÇÏ ÇáÌÏæá æÊÓãíÊå ÈMyTable DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "MyTable", mfile, True 'ãÓÍ ãÍÊæíÇÊ ÌÏæá ÇáÅÌãÇáíÉ ÞÈá ÇáÅáÍÇÞ CurrentDb.Execute "DELETE ÇáÅÌãÇáíÉ.* FROM ÇáÅÌãÇáíÉ;" 'ÅáÍÇÞ ÈíÇäÇÊ ÇáÌÏæáMyTable ÈÌÏæá ÇáÅÌãÇáíÉ '===================================================== For Each fld In DB.TableDefs("ÇáÅÌãÇáíÉ").Fields For Each fld2 In DB.TableDefs("MyTable").Fields If fld.Name = fld2.Name And (fld.Attributes And dbAutoIncrField) <> 16 Then SQl = SQl & "MyTable.[" & fld.Name & "],": SQl2 = SQl2 & "[" & fld.Name & "]," Next Next SQl = Left(SQl, Len(SQl) - 1) SQl2 = Left(SQl2, Len(SQl2) - 1) SQl = "INSERT INTO ÇáÅÌãÇáíÉ (" & SQl2 & ") SELECT " & SQl & " FROM MyTable;" DB.Execute (SQl) If Err.Number > 0 Then MsgBox Err.Description '====================================================== ' 'ÍÐÝ ÇáÌÏæá CurrentDb.Execute "DROP TABLE [MyTable]" ' ÊÍÏíË ÈíÇäÇÊ ÇáãÕÏÑ Me.Requery End Sub Handicapés (1).accdb

تفضل أخي test (3).accdb

اتفضل أخي @2024HISHAMKAMAL تجميع حسب نوع الفاتورة.accdb

تفل أخي @فؤاد الدلوي حسب ما فهمت من السؤال test (2).accdb

مشاركة مع الأخي/ @Foksh من يسار الى اليمين =IIf(Month(Date())>=9,Year(Date())+1 & "-" & Year(Date()),Year(Date()) & "-" & Year(Date())-1) من يمين الى اليسار =IIf(Month(Date())>=9,Year(Date()) & "-" & Year(Date())+1,Year(Date())-1 & "-" & Year(Date())) AcademicYear.rar

شكرا أخي @kanory انا اعرف طباعة صفحات محددة برمجيا و الفكرة موجودة في برنامج مشاركات سابقة ايضا لو القيت نظرة على سطر مقتبس هناك طلب عرض معاينة من صفحة ٢ الى ٥ مثلا لا طباعة، و انا قلت افضل طريقة تصفية تقرير على معيار تلك صفحات بدلا من تحديد صفحات للمعاينة او لطباعة.