Moosak

العفو أخي العزيز 😊🌼 طبعا هذه الخطوة ستضعها في موضوع جديد إن شاء الله ( حسب القوانين ) 😉👌🏻

هذه والله أعلم بسبب أنك لم تضغط على [تمكين] في الشريط الأصفر الذي يظهر لك في الأعلى أول ما تفتح الملف .. 🙂 وبالنسبة لهذه .. فهاك ما طلبت (فقط تأكد من صحة العملية الحسابية) : 🙂 الملف : ‏‏Sum Them All 2.1 - Moosak.accdb

قمت بتعديل الترقيم 🙂 : Sum Them All - Moosak.accdb

تم بحمد الله 🙂 ما رأيك في هذه النتيجة ؟ ( قمت بتغيير تشكيلة الجدول عن المثال الذي أرفقته لتسهيل قرائة الأرقام 🙂 ) وهذا هو الكود الذي ينفذ الأمر : Option Compare Database Option Explicit Private Sub DoSumBtn_Click() '"planWWB" '"Temp_Sum_T" On Error GoTo HandleError Dim db As DAO.Database Dim Rs1 As DAO.Recordset Dim Rs2 As DAO.Recordset Dim x As Long, i As Integer x = 1 CurrentDb.Execute "DELETE * FROM Temp_Sum_T;" Set db = CurrentDb Set Rs1 = db.OpenRecordset("SELECT * FROM planWWB ORDER BY m;") If Not Rs1.BOF And Not Rs1.EOF Then Rs1.MoveFirst While (Not Rs1.EOF) For i = 3 To 6 CurrentDb.Execute "INSERT INTO Temp_Sum_T (No, m, Operation1, Result1 ) " & _ "VALUES (" & x & "," & Rs1!m & ",'" & Rs1.Fields(i).Name & "'," & Rs1.Fields(i).Value & ");" Set Rs2 = db.OpenRecordset("SELECT * FROM planWWB where m <> " & Rs1!m & " ;") If Not Rs2.BOF And Not Rs2.EOF Then Rs2.MoveFirst While (Not Rs2.EOF) Dim s1 As String, s2 As String, s3 As String, s4 As String s1 = Rs1.Fields(i).Name & " + " & Rs2.Fields(3).Name s2 = Rs1.Fields(i).Name & " + " & Rs2.Fields(4).Name s3 = Rs1.Fields(i).Name & " + " & Rs2.Fields(5).Name s4 = Rs1.Fields(i).Name & " + " & Rs2.Fields(6).Name CurrentDb.Execute "INSERT INTO Temp_Sum_T (No, m, m2, Operation1, Result1, Operation2, Result2, Operation3, Result3, Operation4, Result4 ) " & _ "VALUES (" & x & "," & Rs1!m & "," & Rs2!m & ",'" & _ s1 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(3).Value) & ",'" & _ s2 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(4).Value) & ",'" & _ s3 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(5).Value) & ",'" & _ s4 & "'," & (Rs1.Fields(i).Value + Rs2.Fields(6).Value) & ");" Rs2.MoveNext DoEvents Wend End If Next i x = x + 1 Rs1.MoveNext DoEvents Wend End If Rs1.Close Rs2.Close Set db = Nothing Set Rs1 = Nothing Set Rs2 = Nothing DoCmd.OpenTable "Temp_Sum_T" MsgBox "تم جمع كل السجلات" HandleExit: Exit Sub HandleError: If Err.Number = 0 Then Resume Next Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit End Sub لحذف الحسابات السابقة وإعادة الحساب من جديد تضغط على الزر : الملف : Sum Them All - Moosak.accdb

كنت سأسأل نفس السؤال 🙂 طيب أخي عصام .. الطلب واضح لدي .. وعندي تصور مبدأي للحل .. لكن أريدك أن تعطينا مثال لشكل النتيجة النهائية كيف تريدها أن تكون .. ؟؟ ممكن تصمم جدول بالأكسل عادي وتضع فيه نتيجة السجل الأول كمثال .. لأن تصوري للنتيجة سيكون عن طريق إنشاء جدول آخر ( مؤقت ) تظهر فيه السجلات ( وليس استعلام ) وكذلك سيحصل تداخل في البيانات وستظهر لك السجلات متشابهة .. ولن تعرف كيف تميز بينها !! حيث سيكون هناك 16 سجل ناتج للسجل رقم 6001 وحده .. كيف ستعرف أيها ل split1 أو split2 أو split3 أو split4 ؟

وعليكم السلام ورحمة الله وبركاته .. 🙂 تفضل .. ستجد طلبك في الاستعلام Last_Mission_Detail_Q مهام الموظفين.accdb

أخي @Hema_Elhelow تكرما قم بفتح موضوع جديد لطلبك لتحصل على الدعم اللازم .. 🙂

أهلا وسهلا بك أخي عبد الباقي @Abdalbagi Hassan 🙂 🌹🌼 وبما أنك عضو جديد .. تفضل عزيزي وخذ لك نبذة عن قوانين المشاركة في المنتدى : قواعد المشاركة فى الموقع : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة ولا تنسى استخدام خاصية البحث للحصول على النتائج السابقة عن المواضيع التي تحتاجها وقبل أن تسأل عنها :

الحمدلله أكتملت الفكرة والتنفيذ 🙂 عملت نموذجين .. وتبقى تكملة المشروع لتكون صفحة تسجيل دخول مكتملة 🙂 النمط الأول : النمط الثاني : للتحميل : MoosaK_Pattern_Lock.accdb

فكرة جميلة وتحد رائع 😊 بالنسبة لي جار العمل وهذا هو الحد الذي وصلت إليه ( ولازال العمل مستمر ... لا يزال يحتاج لتطوير ) : تحدي جميل تعلمت من خلاله كيفية تحريك الخطوط 👍😉

هذا الموضوع ممتلىء حد الكفاية ( 10 صفحات 😅🖐) .. :: يغلق :: قم بفتح موضوع جديد حتى يأخذ حقه من التركيز والانتباه 🙂 🌹🌼

شكرا لك أخي @Foksh 🙂 الكود يجلب أرقام ال IP adress للأجهزة بدون اسم الجهاز .. للعلم

حسب تصوري يمكن تنفيذ ذلك عن طريق 3 استعلامات تجميعية كالتالي : حاله مشابة لطريقة استخراج الأرصدة المالية ( الداخل - المصروف = المتبقي ) 🙂

شكرا جزيلا لك 🙂🌹🌼

مشاركتي حول هذه النقطة 🙂 : فتح البرامج عن طريق كتابة اسمه مباشرة بدون الحاجة لمعرفة مسار البرنامج في الويندوز شرح الكود: تعمل عن طريق إحضار مسار البرنامج المسجل في الريجيستري الكود: Sub OpenApp(AppName As String) On Error GoTo Error_Handler Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Shell WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\" & AppName & "\"), vbMaximizedFocus Set WSHShell = Nothing 'Examples: 'MS Excel '>>> OpenApp("excel.exe") 'Groove '>>> OpenApp("GROOVE.EXE") 'Internet Explore '>>> OpenApp("IEXPLORE.EXE") 'Info Path '>>> OpenApp("infopath.exe") 'MS Access '>>> OpenApp("MSACCESS.EXE") 'MS One Note '>>> OpenApp("OneNote.exe") 'MS Outlook '>>> OpenApp("OUTLOOK.EXE") 'PowerPoint '>>> OpenApp("powerpnt.exe") 'MS Word '>>> OpenApp("Winword.exe") 'WordPad '>>> OpenApp("WORDPAD.EXE") 'Write '>>> OpenApp("WRITE.EXE") Error_Handler_Exit: On Error Resume Next Exit Sub Error_Handler: If Err.Number = 0 Then Resume Next MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: OpenApp" & vbCrLf & _ "Error Description: " & Err.Description & _ Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _ , vbOKOnly + vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Sub

آآآآآآه فعلا 🙈 سبحان الله ما شفتهاش .. لا مواخذه شكلي كان مغمى عليه 😂 🏃🏻‍♂️🏃🏻‍♂️🏃🏻‍♂️

@ابو جودي وطويلب العلم ده .. طلباته مش أوامر برده ولا أييييييه ؟؟ 😅💪🏻

وعليكم السلام ورحمة الله وبركاته .. تم فصل السؤال في موضوع جديد أخي @frqd بناءا على قواعد المنتدى ( كل سؤال في موضوع منفصل ) 🙂

استخدم هذا الكود للحصول على امتداد الصورة الأصلية .. ثم انقله للمسار الجديد ... 🙂 Function GetFileExt(strPath As String) As String ' دالة للحصول على إمتداد الملفات مع النقطة Dim strFile As String strFile = Right(strPath, Len(strPath) - InStrRev(strPath, "\")) GetFileExt = Right(strFile, Len(strFile) - InStrRev(strFile, ".") + 1) End Function

ما الحكمة ؟ 🙂 ليش ؟

وهذه لمسة جمالية بالتنسيق الشرطي 🙂 قائمة قابلة للزيادة حسب عدد السجلات.accdb

جرب هذا 🙂 : قائمة قابلة للزيادة حسب عدد السجلات.accdb

وعليكم السلام ورحمة الله وبركاته أستاذ @Foksh .. 🙂 تقريبا لدي فكرة لهذا .. قد طبقتها في أحد البرامج التي أصممها حاليا ( لو كان فهمي للسؤال صحيحا ) 😅 ولكن قبل أن أستعجل التفصيل .. أقول لك ضع مرفق ليتم التطبيق عليه

شكرا لمروركم جميعا 🙂 الأساتذة والخبراء والمبدعين .. @Foksh @عمر ضاحى @ابوخليل @زياد الحسناوي @TQTHAMI @kkhalifa1960 ... لكم كل التحية والتقدير .. 😊🌼🌷🌹 وشكرا لمشاعركم الطيبة وكلماتكم الرقراقة .. إنما نتعلم منكم .. وهي بضاعتكم نردها إليكم 🙂🌺

كفكرة أيضا يمكن استخدام أداة متصفح الإنترنت WebBrowser لاستعراض الملفات ( صور + PDF) .. وفيها كود للتكبير والتصغير .. 🙂 للاستفادة أكثر :