اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Foksh

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4427

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    188

 نوع المحتوي 

مشاركات المكتوبه بواسطه Foksh

    طلب تثبيت تطبيق واتس اب على ويندوز سيرفر 2022

    في قسم الأكسيس Access

    قام بنشر

    55 دقائق مضت, at_aziz said:

    بس عند هذا الامر ظهر لي الخطاء التالي في الصوره

    اهاااا ، المشكلة الظاهرة الآن بسبب عدم وجود الـ 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

     

    حاولت الربط بين جدولين ب full outer jion و لم اوفق

    في قسم الأكسيس Access

    قام بنشر

    5 ساعات مضت, AMINYOUSIF said:

    اشكرك على  المتابعة و الاهتمام  و حسن النصيحة 

     

    العفو أخي الكريم ..

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

    ولكن بنظري أن تصحيح المسار أفضل من السير في تعرج :yes:

    • Like 1

    طلب تثبيت تطبيق واتس اب على ويندوز سيرفر 2022

    في قسم الأكسيس Access

    قام بنشر

    7 ساعات مضت, at_aziz said:

    وظهر لي هذه الاخطاء كماهو موضح بالصوره

    يبدو أن الروابط قديمة ولا تعمل .. طيب خلينا نجرب فكرة ثانية ..

    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

     

    طلب تثبيت تطبيق واتس اب على ويندوز سيرفر 2022

    في قسم الأكسيس Access

    قام بنشر

    3 ساعات مضت, at_aziz said:

    والسيرفر مثبت عليه Windows Server 2022

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

    سؤالي الأول لك ، هل نسخة الويندوز سيرفر مثبت عليها WinGet = مدير حزم ويندوز ؟؟؟

    إن كان نعم فيمكنك تثبيت تطبيق واتس اب لسطح المكتب من خلال الملف ( ExE ) المرفق . وإذا لم يكن لديك هذه الحزمة .. فقم بالتالي ( ما لم يكن هناك تحديثات قد فاتتني ) :-

    1. افتح PowerShell كمسؤول .
    2. انسخ السطرين التاليين ( كل سطر بشكل منفصل ) واضغط انتر بعد كل سطر .. 
      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

    Return.png.8f6df0d380e0a3056fed63d89fe36923.png وهنا سيكون ظاهراً لك إصدار الأداة التي تم تثبيتها ( لا مانع من تزويدنا بصورة ) ، وهو دلالة على نجاح العملية 

    :excl: وللعلم بأنه لن يتم تحديث WinGet تلقائياً عبر المتجر في إصدار السيرفر 2022 ، لذا ستحتاج لتكرار الخطوات عند الرغبة في التحديث لإصدار أحدث :excl:

     

     

    WhatsApp Installer.zip

    حاولت الربط بين جدولين ب full outer jion و لم اوفق

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته ..

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

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

    لذا نرجو منك تصويب الأوضاع في الجدولين كي تجد من يحاول المساعدة ..

    فلترة السجلات في النموذج الفرعي

    في قسم الأكسيس Access

    قام بنشر

    40 دقائق مضت, سلمان الشهراني said:

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

    وعليكم السلام ورحمة الله وبركاته ...

    بعد تتبع مصدر مربع النص 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

    • Thanks 1

    تصدير الى اكسيل مع الاجماليات

    في قسم الأكسيس Access

    قام بنشر

    30 دقائق مضت, jo_2010 said:

    انا اسف لما حدث ولن يتكرر مرة اخرى

    لا عليك .. تفضل ملفك بعد التعديل باستخدام الحدث التالي :- 

    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

    تجزئة الجدول إلى استعلامات

    في قسم الأكسيس Access

    قام بنشر

    53 دقائق مضت, omran2015 said:

    لكن لا أريد هذه الطريقة !!!
    قلت لعله يوجد طريقة اخرى غير هه الطريقة والتي أضطر إلى تقسيم أو تجزئة الجدول إلى ثلاث استعلامات ثم عمل استعلام يتم تجميع فيه هذه الاستعلامات الثلاث في استعلام واحد
    والجدول يوضح نجاح هذه الطريقة

    ما فهمت عليك بشكل جيد :excl:

    تصدير الى اكسيل مع الاجماليات

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام أخي يوسف ..

    تفضل ملفك بعد التعديل ، حيث تم استخدام الحدث التالي في الزر :- 

    Private Sub أمر0_Click()
    On Error GoTo ErrorHandler
    
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Dim strFileName As String
    Dim strFilePath As String
    Dim strQueryName As String
    
    strSQL = "SELECT Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM (" & _
             "  SELECT 0 AS SortID, Tcode, Tname, Out_Lab, IN_Lab, Total, IN_Staff, Total_Staff FROM Tbl_Tests " & _
             "  UNION ALL " & _
             "  SELECT 1 AS SortID, '', 'المجموع الكلي', SUM(Out_Lab), SUM(IN_Lab), SUM(Total), SUM(IN_Staff), SUM(Total_Staff) FROM Tbl_Tests" & _
             ") " & _
             "ORDER BY SortID, Val(Tcode), Tcode;"
    
    strFileName = Format(Now, "yyyy-mm-dd_hh-nn-ss") & ".xlsx"
    strFilePath = CurrentProject.Path & "\" & strFileName
    
    strQueryName = "TempExportQuery"
    Set db = CurrentDb
    
    On Error Resume Next
    db.QueryDefs.Delete strQueryName
    On Error GoTo ErrorHandler
    
    Set qdf = db.CreateQueryDef(strQueryName, strSQL)
    
    DoCmd.OutputTo acOutputQuery, strQueryName, acFormatXLSX, strFilePath, False
    
    db.QueryDefs.Delete strQueryName
    
    MsgBox "تم تصدير البيانات بنجاح", vbInformation + vbMsgBoxRight, "تم التصدير"
    
ExitProcedure:
    Set qdf = Nothing
    Set db = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "حدث خطأ أثناء عملية التصدير", vbCritical + vbMsgBoxRight, "خطأ"
    Resume ExitProcedure
End Sub

     

    وسيتم انشاء ملف اكسل باسم = الوقت الحالي وتاريخ اليوم ، وتستطيع تغيير اسم الملف كما تريد .

    JO.zip

    تجزئة الجدول إلى استعلامات

    في قسم الأكسيس Access

    قام بنشر

    وعليكم السلام ورحمة الله وبركاته ..

    جرب هذا الاستعلام 😉 :- 

    SELECT S.StudentID, S1.on1 AS S1_on1, S1.on2 AS S1_on2, S1.on3 AS S1_on3, S1.on4 AS S1_on4, S1.on5 AS S1_on5, S1.on6 AS S1_on6, S1.on7 AS S1_on7, S1.on8 AS S1_on8, S1.on9 AS S1_on9, S1.to1 AS S1_to1, S1.to2 AS S1_to2, S1.to3 AS S1_to3, S1.to4 AS S1_to4, S1.to5 AS S1_to5, S1.to6 AS S1_to6, S1.to7 AS S1_to7, S1.to8 AS S1_to8, S1.to9 AS S1_to9, S1.tr1 AS S1_tr1, S1.tr2 AS S1_tr2, S1.tr3 AS S1_tr3, S1.tr4 AS S1_tr4, S1.tr5 AS S1_tr5, S1.tr6 AS S1_tr6, S1.tr7 AS S1_tr7, S1.tr8 AS S1_tr8, S1.tr9 AS S1_tr9, S2.on1 AS S2_on1, S2.on2 AS S2_on2, S2.on3 AS S2_on3, S2.on4 AS S2_on4, S2.on5 AS S2_on5, S2.on6 AS S2_on6, S2.on7 AS S2_on7, S2.on8 AS S2_on8, S2.on9 AS S2_on9, S2.to1 AS S2_to1, S2.to2 AS S2_to2, S2.to3 AS S2_to3, S2.to4 AS S2_to4, S2.to5 AS S2_to5, S2.to6 AS S2_to6, S2.to7 AS S2_to7, S2.to8 AS S2_to8, S2.to9 AS S2_to9, S2.tr1 AS S2_tr1, S2.tr2 AS S2_tr2, S2.tr3 AS S2_tr3, S2.tr4 AS S2_tr4, S2.tr5 AS S2_tr5, S2.tr6 AS S2_tr6, S2.tr7 AS S2_tr7, S2.tr8 AS S2_tr8, S2.tr9 AS S2_tr9, S3.on1 AS S3_on1, S3.on2 AS S3_on2, S3.on3 AS S3_on3, S3.on4 AS S3_on4, S3.on5 AS S3_on5, S3.on6 AS S3_on6, S3.on7 AS S3_on7, S3.on8 AS S3_on8, S3.on9 AS S3_on9, S3.to1 AS S3_to1, S3.to2 AS S3_to2, S3.to3 AS S3_to3, S3.to4 AS S3_to4, S3.to5 AS S3_to5, S3.to6 AS S3_to6, S3.to7 AS S3_to7, S3.to8 AS S3_to8, S3.to9 AS S3_to9, S3.tr1 AS S3_tr1, S3.tr2 AS S3_tr2, S3.tr3 AS S3_tr3, S3.tr4 AS S3_tr4, S3.tr5 AS S3_tr5, S3.tr6 AS S3_tr6, S3.tr7 AS S3_tr7, S3.tr8 AS S3_tr8, S3.tr9 AS S3_tr9, S3.TotalSum, S3.average, S3.Grade, S3.FailCount, S3.Result
FROM ((TBL_Students AS S LEFT JOIN TBL_Final1 AS S1 ON S.StudentID = S1.StudentID AND S1.SemesterID = 1) LEFT JOIN TBL_Final1 AS S2 ON S.StudentID = S2.StudentID AND S2.SemesterID = 2) LEFT JOIN TBL_Final1 AS S3 ON S.StudentID = S3.StudentID AND S3.SemesterID = 3;

    تم استخدام LEFT JOIN بدلاً من INNER JOIN لضمان ظهور الطالب في التقرير حتى لو نقصت بيانات أحد الفصول الدراسية (في هذه الحالة ستظهر درجات ذلك الفصل فارغة بدلاً من اختفاء الطالب تماماً من التقرير) .

     

    واخبرنا بالنتيجة :smile:

    مساعدة في تصفية تقرير

    في قسم الأكسيس Access

    قام بنشر

    منذ ساعه, basem1978 said:

    اولا شكرا جزيلا على سرعة الرد

    كما أشار بالتعديل الأستاذ خليفة ، استبدل الاستعلام التالي بالاستعلام الذي هو مصدر التقرير :- 

    SELECT 
    [استعلام اساسي التكليف].[رقم الموظف],
    [استعلام اساسي التكليف].[اسم الموظف],
    [استعلام اساسي التكليف].[رقم القسم],
    [استعلام اساسي التكليف].[اسم القسم],
    [استعلام اساسي التكليف].[رقم الموظف - التكليف],
    [استعلام اساسي التكليف].[تاريخ تسجيل التكليف],
    [استعلام اساسي التكليف].[مدة التكليف],
    [استعلام اساسي التكليف].[تاريخ التكليف],
    [استعلام اساسي التكليف].[ملاحظات التكليف],
    [استعلام اساسي التكليف].[رقم نوع التكيف],
    [استعلام اساسي التكليف].[التكليف - رقم نوع التكليف],
    [استعلام اساسي التكليف].[نوع التكليف],
    [استعلام اساسي التكليف].[المسمى الوظيفي],
    [استعلام اساسي التكليف].[اسم يوم التكليف],
    [استعلام اساسي التكليف].[اسم شهر التكليف],
    [استعلام اساسي التكليف].[الى تاريخ],
    [استعلام اساسي التكليف].[رقم صلاحية التشغيل],
    [استعلام اساسي التكليف].[نوع صلاحية التشغيل],
    [استعلام اساسي التكليف].[رقم شهر التكليف],
    [استعلام اساسي التكليف].[المسئول المباشر],
    [استعلام اساسي التكليف].[اسم المسئول],
    [استعلام اساسي التكليف].[سنة التكليف]
FROM [استعلام اساسي التكليف]
WHERE [استعلام اساسي التكليف].[رقم شهر التكليف] = [ادخل رقم شهر التكليف]
  AND [استعلام اساسي التكليف].[رقم الموظف] IN (
        SELECT [رقم الموظف]
        FROM [استعلام اساسي التكليف]
        WHERE [رقم شهر التكليف] = [ادخل رقم شهر التكليف]
        GROUP BY [رقم الموظف]
        HAVING Count(*) > 10
  )
ORDER BY [استعلام اساسي التكليف].[تاريخ التكليف];

     

    مساعدة في تصفية تقرير

    في قسم الأكسيس Access

    قام بنشر

    27 دقائق مضت, basem1978 said:

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

    وعليكم السلام ورحمة الله وبركاته .. لم يكن شرحك دقيقاً للطلوب ، ولكن كتجربة ، تابع نتيجة الإيستعلام التالي إن كانت هي المطلوبة أم لا .. 

    SELECT التكليف.[رقم الموظف - التكليف] AS رقم_الموظف, التكليف.[تاريخ التكليف]
FROM التكليف
WHERE (((التكليف.[رقم الموظف - التكليف]) In (SELECT التكليف.[رقم الموظف - التكليف]
    FROM التكليف
    WHERE Month([تاريخ التكليف]) = [ادخل رقم الشهر]
    GROUP BY التكليف.[رقم الموظف - التكليف]
    HAVING Count(*) > 10
)) AND ((Month([تاريخ التكليف]))=[ادخل رقم الشهر]))
ORDER BY التكليف.[رقم الموظف - التكليف];

     

    * ملاحظاتي ..

    إن أردت النجاح في عملك ، ابتعد عن التسميات العربية لعناصر ومكونات مشروعك .

×
×
  • اضف...

Important Information

  I accept