Foksh

بما أن أداة winget متوفرة على نظامك الآن .. جرب السطر التالي في الـ PowerShell كمسؤول مرة أخرى :- winget install 9NKSQGP7F2NH --accept-source-agreements --accept-package-agreements

ارفق ملف للعمل عليه ، ومتأكد أنك ستجد أفكار أخرى جميلة وكثيرة أكثر من فكرتي المتواضعة ..

تحفيزاً .. سأقوم بطرح فكرتي التي تمت من خلال مجموعة التحديات التي تقام كل فترة بين أعضاء مجموعة "مجتمع آكسيس جروب" على الواتس أب .. التحدي 10 _ التقييم 5 نجوم.zip

وعليكم السلام ورحمة الله وبركاته.. هل تقصد كهذه الفكرة على سبيل المثال :-

او استخدم الرابط التالي في الجملة الأولى ان كان الرابط غير صحيح .. https://get.microsoft.com/installer/download/9NKSQGP7F2NH?cid=website_cta_psi

اهاااا ، المشكلة الظاهرة الآن بسبب عدم وجود الـ framework في النسخة 2022 . طيب خلينا نجرب حل ثاني . $whatsappUrl = "https://web.whatsapp.com/desktop/windows/release/x64/WhatsAppSetup.exe" $outputPath = "$env:USERPROFILE\Downloads\WhatsAppSetup.exe" Invoke-WebRequest -Uri $whatsappUrl -OutFile $outputPath Start-Process -FilePath $outputPath -ArgumentList "/S" -Wait Write-Host "WhatsApp Desktop installed successfully!" -ForegroundColor Green

العفو أخي الكريم .. يسعدنا أن تستفيد من المعلومة بشكل أكبر من الحلول الجاهزة التي ستتعرض لها مستقبلاً , جميع الجهود مشكورة لمن يحاول المساعدة . ولكن بنظري أن تصحيح المسار أفضل من السير في تعرج

يبدو أن الروابط قديمة ولا تعمل .. طيب خلينا نجرب فكرة ثانية .. 1. ابدأ بالرابط المحدث التالي في PowerShell كالسابق . نحتاج لتثبيت VCLibs ( مكتبة Visual C++ Runtime ) :- Add-AppxPackage -Path "https://aka.ms/Microsoft.VCLibs.x64.14.00.Desktop.appx" 2. تثبيت Microsoft.UI.Xaml كل سطر بشكل منفصل :- Invoke-WebRequest -Uri "https://github.com/microsoft/microsoft-ui-xaml/releases/download/v2.8.6/Microsoft.UI.Xaml.2.8.x64.appx" -OutFile "Microsoft.UI.Xaml.2.8.x64.appx" Add-AppxPackage -Path ".\Microsoft.UI.Xaml.2.8.x64.appx" 3. تحميل وتثبيت WinGet :- Invoke-WebRequest -Uri "https://github.com/microsoft/winget-cli/releases/latest/download/Microsoft.DesktopAppInstaller_8wekyb3d8bbwe.msixbundle" -OutFile "WinGet.msixbundle" Add-AppxPackage -Path ".\WinGet.msixbundle" 4. وبالنهاية السطر التالي للتحقق من نجاح العملية :- winget --version بعد تثبيت WinGet بنجاح ، لتثبيت WhatsApp Desktop :- winget install --id 9NKSQGP7F2NH --source msstore أو إذا لم يعمل المتجر :- winget install --id WhatsApp.WhatsApp

وعليكم السلام ورحمة الله وبركاته أخي الفاضل .. سؤالي الأول لك ، هل نسخة الويندوز سيرفر مثبت عليها WinGet = مدير حزم ويندوز ؟؟؟ إن كان نعم فيمكنك تثبيت تطبيق واتس اب لسطح المكتب من خلال الملف ( ExE ) المرفق . وإذا لم يكن لديك هذه الحزمة .. فقم بالتالي ( ما لم يكن هناك تحديثات قد فاتتني ) :- افتح PowerShell كمسؤول . انسخ السطرين التاليين ( كل سطر بشكل منفصل ) واضغط انتر بعد كل سطر .. Invoke-WebRequest -Uri https://github.com -OutFile Microsoft.UI.Xaml.appx Add-AppxPackage -Path .\Microsoft.UI.Xaml.appx حيث ان تثبيته يتطلب مكتبات معينة ليعمل بشكل صحيح وهي مكتبة Microsoft.UI.Xaml ( الإصدار 2.8 متوافق مع سيرفر 2022 ) الآن الصق السطر التالي أيضاً واضغط انتر :- Invoke-WebRequest -Uri https://github.com -OutFile WinGet.msixbundle ثم وأخيراً نقوم بتثبيت الحزمة المطلوبة ولتثبيت WinGet من خلال السطر التالي :- Add-AppxPackage -Path .\WinGet.msixbundle بعد انتهاء الأوامر ، أغلق نافذة PowerShell وافتحها مرة أخرى كمسؤول أيضاً ، ثم اكتب الأمر التالي للتأكد من عمل الأداة :- winget --version وهنا سيكون ظاهراً لك إصدار الأداة التي تم تثبيتها ( لا مانع من تزويدنا بصورة ) ، وهو دلالة على نجاح العملية وللعلم بأنه لن يتم تحديث WinGet تلقائياً عبر المتجر في إصدار السيرفر 2022 ، لذا ستحتاج لتكرار الخطوات عند الرغبة في التحديث لإصدار أحدث WhatsApp Installer.zip

وعليكم السلام ورحمة الله وبركاته .. بدايةً لي تعليق بسيط تكرر في الكثير من مشاركات الأخوة الأعضاء الذين يستخدمون اللغة العربية في المسميات . لكن استخدامك للمد في أسماء الحقول هذا قطعاً غير صحيح ويسبب لك الكثير من المشاكل في استعلامات اكسيس . فمثلاً الحقل الخصــــــــــــــوم أو الحقل الاصـــــــول ، هل هي منطقية بنظرك ؟؟؟؟ أضف إلى ذلك بنية الجداول نفسها غير سوية وغير سليمة !!! أيضاً يجب أن يكون هناك حقل مشترك بين الجدولين مثل ID أو رقم الصف لتتم عملية الربط بشكل صحيح . لذا قم بإنشاء حقل ترقيم تلقائي أو مفتاح أساسي في كل جدول وربطهما عليه . لذا نرجو منك تصويب الأوضاع في الجدولين كي تجد من يحاول المساعدة ..

وإياكم أخي الحبيب

وعليكم السلام ورحمة الله وبركاته ... بعد تتبع مصدر مربع النص Text2 .. وجدت أن أفضل حل هو الحدث التالي بعد تحديث عنصر الـ Ch1 ، بحيث يكون :- Private Sub ch1_AfterUpdate() Dim subForm As Form Set subForm = Me.FMBoxCustomersSup.Form If Me.ch1 = True Then subForm.Filter = "([Sumمنtotalmainstax] - [Sumمنtotal_shop]) - [Price1] <> 0" subForm.FilterOn = True Else subForm.FilterOn = False End If End Sub وطبعاً في حدث عند التحميل للنموذج الرئيسي ، نقوم باستدعاء حدث بعد التحديث للعنصر Ch1 ، ليصبح كالتالي :- Private Sub Form_Load() DoCmd.Maximize ch1_AfterUpdate End Sub ملفك بعد التعديل :- اظهار واخفاء السجلات حسب قيمة الحقل.zip

جزاك الله خيراً أستاذنا الغالي .. ونسأل الله أن يرزقكم زيارة بيته معتمرين وحاجّين إن شاء الله

لا عليك .. تفضل ملفك بعد التعديل باستخدام الحدث التالي :- Private Sub EXCEL_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim rs As DAO.Recordset Dim strSQL As String Dim strFileName As String Dim strFilePath As String Dim strQueryName As String Dim strTempTable As String Dim strMonthYear As String If IsNull(Me.MS_YR) Or Me.MS_YR = "" Then MsgBox "الرجاء اختيار الشهر والسنة أولاً", vbExclamation + vbMsgBoxRight, "" Exit Sub End If strMonthYear = Me.MS_YR strQueryName = "TempExportQuery" strTempTable = "TempExportTable" Set db = CurrentDb On Error Resume Next DoCmd.DeleteObject acTable, strTempTable On Error GoTo ErrorHandler On Error Resume Next db.QueryDefs.Delete strQueryName On Error GoTo ErrorHandler strSQL = "TRANSFORM Count(All_Names.ID) AS CountمنID " & _ "SELECT All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "FROM ALL_Companys LEFT JOIN All_Names ON ALL_Companys.Name_comp = All_Names.Company " & _ "WHERE All_Names.Mon_Year = '" & strMonthYear & "' " & _ "GROUP BY All_Names.ID, All_Names.Ddate, All_Names.Pcode, All_Names.DCode, All_Names.Pname, All_Names.Price " & _ "PIVOT ALL_Companys.Name_comp In (""ثروة للتامين"",""مصر للتامين"",""دلتا للتامين"",""وثاق"",""ثروة حياة"",""رويال"",""جلوب ميد"",""بنك مصر"",""الحفر المصرية"",""التامين المصري السعودى"",""المصرية للاتصالات"",""بنك الإسكان"",""WE"",""GIG"",""AROPE"",""LIBANO SUISSE"",""QNB"");" Set qdf = db.CreateQueryDef(strQueryName, strSQL) DoCmd.RunSQL "SELECT * INTO " & strTempTable & " FROM " & strQueryName ' strFileName = "Export_" & Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx" 'هنا سيتم حفظ الملف حسب الوقت الحالي مع تاريخ اليوم strFileName = Replace(strMonthYear, "/", "-") & ".xlsx" 'هنا سيتم حفظ الملف برقم الشهر والسنة strFilePath = CurrentProject.Path & "\" & strFileName DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strTempTable, strFilePath, True DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير" ExitProcedure: Set rs = Nothing Set qdf = Nothing Set db = Nothing Exit Sub ErrorHandler: MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ" On Error Resume Next If Not db Is Nothing Then DoCmd.DeleteObject acTable, strTempTable db.QueryDefs.Delete strQueryName End If Resume ExitProcedure End Sub ولكن ارجو تحديد الحقول التي تريد الاجماليات لها ، أم جميعها ؟؟ لأنني لم أقم بإضافتها إلا بعد اعتماد الحل أعلاه JO_2.zip