Foksh

وعليكم السلام ورحمة الله وبركاته .. نرجو منك ارفاق ملف بسيط كي يتمكن الإخوة والأساتذة من التطبيق عليه

راودتني هذه الفكرة فعلاً ، ولكن اتضح لي انها تقوم بعمل اختصار من المتصفح فقط وليس تطبيق مثبت فعلاً مع العلم انني على وشك ان اقوم بتنصيب ويندوز سيرفر 2022 على جهازي للتجربة الشاملة والحقيقية وليست كأفكار مبنية على معلومات قديمة .

وعليكم السلام ورحمة الله وبركاته .. تفضل هذا الملف بعد التعديل البسيط :- ربط واجهات.zip

بما أن أداة 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