Foksh

العفو اخي الكريم 😇

ههههههه سؤال قوي ، حبة الدوا ما بتعرف راسها من رجليها ..

وعليكم السلام ورحمة الله وبركاته .. باعتقادي أن الطريقة التي تم تسجيل فيها وقت الحضور ، و وقت الخروج لكل موظف هي بحد ذاتها غير سليمة ( لم أقل غير صحيحة ) . فالأصل ان يتم تسجيل الحضور والخروج بشرطين . رقم الموظف وتاريخ اليوم . هذا اذا كان الموظف لا يسجل حضور في تاريخ ويسجل خروج في تاريخ اليوم التالي ( كأن يكون هناك شفت أو وردية ليلية ) . ولكن لتلبية طلبك ، جرب هذا الاستعلام :- SELECT T1.emp_name AS [اسم الموظف], T1.emp_ID AS السجل, T1.StartDate AS التاريخ, T1.StratTime AS [وقت الدخول], (SELECT EndTime FROM Tbl1 WHERE emp_ID = T1.emp_ID AND StartDate = T1.StartDate AND EndTime IS NOT NULL) AS [وقت الخروج], Format(DateDiff("n",T1.StratTime,(SELECT EndTime FROM Tbl1 WHERE emp_ID = T1.emp_ID AND StartDate = T1.StartDate AND EndTime IS NOT NULL))\60,"00") & ":" & Format(DateDiff("n",T1.StratTime,(SELECT EndTime FROM Tbl1 WHERE emp_ID = T1.emp_ID AND StartDate = T1.StartDate AND EndTime IS NOT NULL)) Mod 60,"00") AS [عدد ساعات العمل] FROM Tbl1 AS T1 WHERE (((T1.StratTime) Is Not Null)); عذراً ، معلمي الفاضل @ابوخليل ، صدقاً لم أنتبه الى ردك ، حيث كنت في الصفحة ولم ألحظ الإشعار بوجود رد .. لكن ما قمت بطرحه وهو جوهر السبيل الصحيح فقد كان تلخيصاً لخبرتك التي نتعلم منها فعلاً ..

أستاذ عبدالله ، جزاك الله خيراً على لفت انتباهي ، ولكن لتشاركني ضحكتك بصوت عالي كما فعلت أنا الآن ، هو أنني قرأتها على أنها العمود المسؤول وليس عمود المسؤول نفسه ، لانني قرأت أسماء الأوراق وربطت الأمر بحيث يتم نقل لكل ورقة بيانات اسمها حسب المدينة . اما خلاف ذلك فهنا سأقف في صمت لمحاولة الفهم المتضادة في الطلب نفسه . عدة صفحات = المسؤول ما علاقة ؟؟؟؟؟ ما الرابط بين الصفحات المسماه بأسماء المدن و عمود المسؤول 🙄 في لهجتنا نقول هذا السؤال طعج مخي 😂 أي أن تفكيري كان يسير في خط مستقيل ولكن هذا السؤال قام بلويه وثنيه وكسره هههههههه ننتظر التوضيح ما لم يكن لديك حل آخر تتحفني به ، فأنت في مجالك هنا - وتبارك الله عليكم جميعاً - من المميزين في قسم الأكسل .

تم اكتشاف السبب الرئيسي للمشكلة التي يعاني منها الكثير من المطورين ، في هذا الرد هنا .

بفضل الله وكرمه ،تم اكتشاف السبب الرئيسي لمشكلة فرض لوحة المفاتيح عند فتح معظم مشاريع آكسيس على أجهزة المطورين . السبب وعن تجربة مؤكدة هو استخدام المصمم لخيار لمربعات النص عند تصميمه لقاعدة بياناته . فيضطر آكسيس للإحتفاظ بأصل اللغة التي تم تعريفها حسب لغة الترميز في نسخة الويندوز المشغل كما في الصورة :- وتأكيداً على ما تم اكتشافه :- أولاً ، قم بتغيير هه الخاصية في مربعات النص ، من :- إلى :- ، وهو الخيار الإفتراضي في آكسيس لمربعات النص والعناصر التي تقبل الإدخال . ثانياً ، قم بحذف اي لغات مفاتيح باستخدام الأداة المرفقة في هذا الموضوع هنا ، وتأكد من أنه يوجد لديك لغتين فقط ( العربية حسب دولتك ، والإنجليزية ) ، ثم قم بفتح نفس النموذج الذي تم تغيير الخاصية من العربية إلى System ، وستجد أنه لن ولن ولن يقوم بإضافة أي لغات تخطيط مدمجة في ملف قاعدة البيانات . وإلى هنا وأترك لك التجربة . والنتيجة ستكون مرضية لك بعد معرفة السبب . فإذا عُرف السبب .. بطُل العجب اما عن إزالة لوحات المفاتيح ، فالأداة وبعد تجربتها مراراً وتكراراً تعمل لكفاءة باسترجاع اي لغة عربية قمت باختيارها بمجرد أن تعيد تشغيل الويندوز .

وعيكم السلام ورحمة الله وبركاته ,, جرب هذه الفكرة البسيطة ، في زر داخل الورقة "2025" ، تم استخدام الكود التالي :- Sub Btn_Tr_Click() Dim wsSource As Worksheet Dim lastRow As Long, i As Long Dim cityName As String Dim wsTarget As Worksheet Dim sourceRow As Range Dim targetRow As Range Dim targetLastRow As Long Dim isDuplicate As Boolean Dim col As Variant Dim keyCols As Variant Dim copiedCount As Long, skippedCount As Long Dim skippedList As String Dim pasteType As XlPasteType Dim userChoice As VbMsgBoxResult Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False userChoice = MsgBox("هل ترغب في الترحيل مع التنسيق الكامل" & vbCrLf & _ "اضغط 'نعم' للترحيل مع التنسيق ، أو 'لا' للترحيل بالقيم فقط", vbYesNoCancel + vbQuestion + vbMsgBoxRight, "") If userChoice = vbCancel Then GoTo Cleanup If userChoice = vbYes Then pasteType = xlPasteAll Else pasteType = xlPasteValues End If Set wsSource = ThisWorkbook.Sheets("2025") lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row keyCols = Array(1, 2, 3, 4, 5, 6) For i = 3 To lastRow cityName = Trim(wsSource.Cells(i, 2).Value) If cityName <> "" Then On Error Resume Next Set wsTarget = ThisWorkbook.Sheets(cityName) On Error GoTo 0 If Not wsTarget Is Nothing And wsSource.Cells(i, 2).Value = wsTarget.Name Then Set sourceRow = wsSource.Range(wsSource.Cells(i, 1), wsSource.Cells(i, 10)) isDuplicate = False For targetLastRow = 3 To wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row Set targetRow = wsTarget.Range(wsTarget.Cells(targetLastRow, 1), wsTarget.Cells(targetLastRow, 10)) isDuplicate = True For Each col In keyCols If sourceRow.Cells(1, col).Value <> targetRow.Cells(1, col).Value Then isDuplicate = False Exit For End If Next col If isDuplicate Then Exit For Next targetLastRow If Not isDuplicate Then targetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1 sourceRow.Copy wsTarget.Range("A" & targetLastRow).PasteSpecial Paste:=pasteType Application.CutCopyMode = False copiedCount = copiedCount + 1 End If Else skippedCount = skippedCount + 1 skippedList = skippedList & "- " & cityName & vbCrLf End If End If Next i MsgBox "? تم الترحيل بنجاح" & vbCrLf & _ copiedCount & ":عدد الصفوف المنسوخة " & vbCrLf & _ skippedCount & ": عدد الصفوف التي تم تجاهلها " & IIf(skippedCount > 0, vbCrLf & ": المدن التي تم تجاهلها " & vbCrLf & skippedList, ""), vbInformation + vbMsgBoxRight, "" Cleanup: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True End Sub TR 2025.zip

حمد لله على سلامتكم أستاذنا الغالي .. افتقدناكم

وعليكم السلام ورحمة الله وبركاته ,, أخي الفاضل رغم أن عملك ليس كاملاً بالطريقة التي تتبعها ، ولكنني سأفترض أن كل ملف PDF له اسم = رقم المعاملة . وأن هذه الملفات موجودة في مجلد اسمه Foksh بجانب قاعدة البيانات . لذا جرب هذه الفكرة :- Private Sub رقم_المعاملة_DblClick(Cancel As Integer) Dim pdfPath As String pdfPath = CurrentProject.Path & "\Foksh\" & Me.رقم_المعاملة.Value & ".pdf" If Dir(pdfPath) <> "" Then Application.FollowHyperlink pdfPath Else MsgBox "الملف غير موجود", vbInformation + vbMsgBoxRight, "" End If End Sub

تمام أخي اكريم ، سيتم التعديل على الفكرة بحيث نبتعد عن تثبيت اللغات المفضلة عند التشغيل للويندوز ، وسنذهب باتجاه آخر .. أعانك الله على الإنتظار والمتابعة

بالضبط ، سيتم تنفيذ الباتش دائماً ( فقط يلزمك تشغيله مرة واحدة ) بإعادة تثبيت اللغة العربية للدولة اتي اخترتها ( وأفترض = مصر ) عند كل تشغيل ويندوز . هذا يعني انه عند تشغيل الويندوز سيتم اعادة ضبط اللغات لتكون اثنتين فقط بدلاً من 4 أو أكثر

الحل هنا

أخواني وأساتذتي ومعلمينا ( دون استثناء ) بعد قراءتي لموضوع الأخ @mohammed farhat في هذا الموضوع :- ازالة لوحة المفاتيح العربية الزائدة الناتجة عن اعدادت اللغة لتشغيل الاكسيس تبادر لي استخراج فكرة من مشروعي السابق ( تغيير لغة النظام في Unicode ) ، بحيث كانت فعلاً مشكلة تؤرق مطوري ومبرمجي آكسيس . حيث كانت النتيجة من تعداد الملفات التي نقوم بتحميلها تؤدي إلى إضافة أكثر من لغة في لوحات المفاتيح في نسخة الويندوز الخاصة بالمطور . وهنا يجدر بي الذكر إلى أن أحد أهم الأسباب أن بعض ملفات قواعد البيانات التي نقوم بتحميلها تأتي مرفقة بإعدادات لغة أو تخطيط لوحة مفاتيح مخصصة حسب جهاز المصدر ، خاصة إذا تم إنشاؤها أو تعديلها على أنظمة تشغيل بلغات مختلفة . فعند تشغيل الملف ، قد يقوم النظام تلقائياً بإضافة تلك اللغات لتوافق التنسيق أو الترميز المستخدم . وهنا ذَهبَت بي الحلول بعد تعددها إلى إنشاء باتش يجبر الويندوز عند التشغيل لإستعادة لوحات المفاتيح التي تهم المطور وهي عادةً :- اللغة الإنجليزية + اللغة العربية الخاصة ببلده . وفي التالي صورة من الموضوع الأصلي لشكل لوحات المفاتيح الغير مرغوب بها :- وسيلاحظ المستخدم إنه سيضطر للضغط على مفاتيح التبديل بين لغات لوحة المفاتيح اكثر من مرة للوصول الى اللغة التي يريدها . ومن هنا خرجتُ بفكرة الباتش الذي ما علينا إلا تشغيله مرة واحدة فقط لا غير ، واختيار البلد الذي نرغب بتثبيت لغة لوحة مفاتيحها ، من خلال الواجهة التالية :- لاحظوا أنني قمت بإضافة الدول العربية فقط لا غير ( الفكرة قابلة للتطوير لاحقاً للغات أخرى ثابتة ) . فمثلاً ولنفترض أنني اريد تثبيت لوحة المفاتيح العربية للأردن ، فسنختار رقم 3 ( كمثال ) ثم مفتاح الإدخال Enter فقط . وسيتكفل الباتش بترتيب الأمور بحيث عند كل تشغيل للويندوز سيتم تثبيت فقط اللغة الانجليزية والعربية للأردن كما في المثال . الباتش يعمل بصمت من خلال الأكواد التالية ، وقد تم إضافة شرح بسيط لكل حدث تلافياً من الخوف من أي ملفات أو خطوات غامضة :- ::attrib +r "%~f0" @echo off @echo off mode con:cols=75 lines=35 setlocal enabledelayedexpansion for /f %%a in ('echo prompt $E^| cmd') do set "ESC=%%a" set "blue=%ESC%[1;34m" set "green=%ESC%[1;32m" set "cyan=%ESC%[1;36m" set "red=%ESC%[1;31m" set "yellow=%ESC%[1;33m" set "magenta=%ESC%[1;35m" set "reset=%ESC%[0m" echo. echo %blue%**********************************************%reset% echo %green%*** ***%reset% echo %cyan%*** %yellow%FFFFF%red%F %magenta%OOO %blue%KK KK %green%SSSS %cyan%HH HH %cyan%***%reset% echo %yellow%*** %red%FF %magenta%O O %blue%KK KK %green%SS %cyan%HH HH %yellow%***%reset% echo %red%*** %magenta%FFFFF %blue%O O %green%KKK %cyan%SS %yellow%HHHHHH %red%***%reset% echo %magenta%*** %blue%FF %green%O O %cyan%KK KK %yellow%SS %red%HH HH %magenta%***%reset% echo %blue%*** %green%FF %cyan%OOO %yellow%KK KK %red%SSSSS %magenta%HH HH %blue%***%reset% echo %green%*** ***%reset% echo %cyan%********************%yellow%2 %red%0 %magenta%2 %blue%5%cyan%*******************%reset% echo. :: باقي الكود يبقى كما هو... echo Select the Arabic country to add its keyboard layout: echo 1 - Egypt echo 2 - Saudi Arabia echo 3 - Jordan echo 4 - Iraq echo 5 - Morocco echo 6 - UAE echo 7 - Syria echo 8 - Lebanon echo 9 - Tunisia echo 10 - Algeria echo 11 - Kuwait echo 12 - Bahrain echo 13 - Oman echo 14 - Qatar echo 15 - Libya echo 16 - Sudan echo 17 - Yemen set /p choice=Enter the number of your choice (1-17) or 'X' to remove startup task: :: التحقق إذا كان المستخدم يريد إزالة المهمة if /i "%choice%"=="X" ( echo. echo Removing startup task... :: حذف المهمة المجدولة schtasks /Delete /TN "KeyboardShutdownFix" /F 2>nul :: حذف الملفات من مجلد Startup if exist "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\KeyboardFix.bat" ( del "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\KeyboardFix.bat" ) if exist "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\RunHidden.vbs" ( del "%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\RunHidden.vbs" ) echo Startup task removed successfully! echo. echo Closing automatically in: timeout /t 1 /nobreak >nul & echo 3... timeout /t 1 /nobreak >nul & echo 2... timeout /t 1 /nobreak >nul & echo 1... exit /b ) set "localeID=" set "localeName=" if "%choice%"=="1" set localeID=00000C01& set localeName=ar-EG if "%choice%"=="2" set localeID=00000401& set localeName=ar-SA if "%choice%"=="3" set localeID=00002C01& set localeName=ar-JO if "%choice%"=="4" set localeID=00000801& set localeName=ar-IQ if "%choice%"=="5" set localeID=00001801& set localeName=ar-MA if "%choice%"=="6" set localeID=00003801& set localeName=ar-AE if "%choice%"=="7" set localeID=00002801& set localeName=ar-SY if "%choice%"=="8" set localeID=00003001& set localeName=ar-LB if "%choice%"=="9" set localeID=00001C01& set localeName=ar-TN if "%choice%"=="10" set localeID=00001401& set localeName=ar-DZ if "%choice%"=="11" set localeID=00003401& set localeName=ar-KW if "%choice%"=="12" set localeID=00003C01& set localeName=ar-BH if "%choice%"=="13" set localeID=00002001& set localeName=ar-OM if "%choice%"=="14" set localeID=00004001& set localeName=ar-QA if "%choice%"=="15" set localeID=00001001& set localeName=ar-LY if "%choice%"=="16" set localeID=00002C01& set localeName=ar-SD if "%choice%"=="17" set localeID=00002401& set localeName=ar-YE if not defined localeID ( echo. echo Invalid selection. Exiting... timeout /t 3 /nobreak >nul exit /b ) echo Applying keyboard settings immediately... reg delete "HKCU\Keyboard Layout\Preload" /f >nul 2>&1 reg delete "HKCU\Keyboard Layout\Substitutes" /f >nul 2>&1 reg add "HKCU\Keyboard Layout\Preload" /v 1 /t REG_SZ /d 00000409 /f reg add "HKCU\Keyboard Layout\Preload" /v 2 /t REG_SZ /d %localeID% /f reg add "HKCU\Keyboard Layout\Substitutes" /v %localeID% /t REG_SZ /d %localeID% /f set psFile=%TEMP%\UpdateLang.ps1 echo $langList = Get-WinUserLanguageList > "%psFile%" echo $langList.Clear() >> "%psFile%" echo $langList.Add("en-US") >> "%psFile%" echo $langList.Add("%localeName%") >> "%psFile%" echo Set-WinUserLanguageList $langList -Force >> "%psFile%" powershell -ExecutionPolicy Bypass -File "%psFile%" set "shutdownScript=%TEMP%\KeyboardShutdownFix.bat" echo @echo off > "%shutdownScript%" echo reg delete "HKCU\Keyboard Layout\Preload" /f >nul 2^>^&1 >> "%shutdownScript%" echo reg delete "HKCU\Keyboard Layout\Substitutes" /f >nul 2^>^&1 >> "%shutdownScript%" echo reg add "HKCU\Keyboard Layout\Preload" /v 1 /t REG_SZ /d 00000409 /f >> "%shutdownScript%" echo reg add "HKCU\Keyboard Layout\Preload" /v 2 /t REG_SZ /d %localeID% /f >> "%shutdownScript%" echo reg add "HKCU\Keyboard Layout\Substitutes" /v %localeID% /t REG_SZ /d %localeID% /f >> "%shutdownScript%" echo exit >> "%shutdownScript%" set "taskName=KeyboardShutdownFix" set "taskXml=%TEMP%\ShutdownTask.xml" echo ^<?xml version="1.0" encoding="UTF-16"?^> > "%taskXml%" echo ^<Task version="1.2" xmlns="http://schemas.microsoft.com/windows/2004/02/mit/task"^> >> "%taskXml%" echo ^<RegistrationInfo^> >> "%taskXml%" echo ^<Description^>Fix keyboard layout before shutdown^</Description^> >> "%taskXml%" echo ^</RegistrationInfo^> >> "%taskXml%" echo ^<Triggers^> >> "%taskXml%" echo ^<SessionStateChangeTrigger^> >> "%taskXml%" echo ^<Enabled^>true^</Enabled^> >> "%taskXml%" echo ^<StateChange^>SessionLock^</StateChange^> >> "%taskXml%" echo ^</SessionStateChangeTrigger^> >> "%taskXml%" echo ^</Triggers^> >> "%taskXml%" echo ^<Principals^> >> "%taskXml%" echo ^<Principal id="Author"^> >> "%taskXml%" echo ^<UserId^>%USERDOMAIN%\%USERNAME%^</UserId^> >> "%taskXml%" echo ^<LogonType^>InteractiveToken^</LogonType^> >> "%taskXml%" echo ^<RunLevel^>HighestAvailable^</RunLevel^> >> "%taskXml%" echo ^</Principal^> >> "%taskXml%" echo ^</Principals^> >> "%taskXml%" echo ^<Settings^> >> "%taskXml%" echo ^<MultipleInstancesPolicy^>IgnoreNew^</MultipleInstancesPolicy^> >> "%taskXml%" echo ^<DisallowStartIfOnBatteries^>false^</DisallowStartIfOnBatteries^> >> "%taskXml%" echo ^<StopIfGoingOnBatteries^>false^</StopIfGoingOnBatteries^> >> "%taskXml%" echo ^<AllowHardTerminate^>true^</AllowHardTerminate^> >> "%taskXml%" echo ^<StartWhenAvailable^>false^</StartWhenAvailable^> >> "%taskXml%" echo ^<RunOnlyIfNetworkAvailable^>false^</RunOnlyIfNetworkAvailable^> >> "%taskXml%" echo ^<IdleSettings^> >> "%taskXml%" echo ^<StopOnIdleEnd^>true^</StopOnIdleEnd^> >> "%taskXml%" echo ^<RestartOnIdle^>false^</RestartOnIdle^> >> "%taskXml%" echo ^</IdleSettings^> >> "%taskXml%" echo ^<AllowStartOnDemand^>true^</AllowStartOnDemand^> >> "%taskXml%" echo ^<Enabled^>true^</Enabled^> >> "%taskXml%" echo ^<Hidden^>false^</Hidden^> >> "%taskXml%" echo ^<RunOnlyIfIdle^>false^</RunOnlyIfIdle^> >> "%taskXml%" echo ^<WakeToRun^>false^</WakeToRun^> >> "%taskXml%" echo ^<ExecutionTimeLimit^>PT5M^</ExecutionTimeLimit^> >> "%taskXml%" echo ^<Priority^>7^</Priority^> >> "%taskXml%" echo ^</Settings^> >> "%taskXml%" echo ^<Actions Context="Author"^> >> "%taskXml%" echo ^<Exec^> >> "%taskXml%" echo ^<Command^>"%shutdownScript%"^</Command^> >> "%taskXml%" echo ^</Exec^> >> "%taskXml%" echo ^</Actions^> >> "%taskXml%" echo ^</Task^> >> "%taskXml%" schtasks /Delete /TN "%taskName%" /F 2>nul schtasks /Create /TN "%taskName%" /XML "%taskXml%" /F set "startupBat=%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\KeyboardFix.bat" set "vbsFile=%APPDATA%\Microsoft\Windows\Start Menu\Programs\Startup\RunHidden.vbs" echo @echo off > "%startupBat%" echo reg add "HKCU\Keyboard Layout\Preload" /v 1 /t REG_SZ /d 00000409 /f >> "%startupBat%" echo reg add "HKCU\Keyboard Layout\Preload" /v 2 /t REG_SZ /d %localeID% /f >> "%startupBat%" echo reg add "HKCU\Keyboard Layout\Substitutes" /v %localeID% /t REG_SZ /d %localeID% /f >> "%startupBat%" echo exit >> "%startupBat%" echo Set WshShell = CreateObject("WScript.Shell") > "%vbsFile%" echo WshShell.Run "cmd /c call ""%startupBat%""", 0, False >> "%vbsFile%" echo. echo Keyboard settings applied successfully! echo. echo English (US) set as default. echo Arabic layout for selected country added as secondary. echo. echo Note: The system will maintain these settings automatically echo on every startup (no window will be visible). echo. echo Closing automatically in: timeout /t 1 /nobreak >nul & echo 3... timeout /t 1 /nobreak >nul & echo 2.. timeout /t 1 /nobreak >nul & echo 1. النتيجة مرهونة بتجاربكم طبعاً 😊 . الباتش تمت تجربته على العديد من إصدارات ويندوز 10 فما فوق . أي لم يتم تجربته على الإصدارات الأقل من ويندوز 10 ❌ الفكرة غير موجودة في أي منتدى عربي أو غربي . وهذا ما يميز منتديات أوفيسنا 😎 Foksh Layout.zip

جاري تجربة الحل الذي تم استنباطه من فكرة تغيير لغة الترميز .. اعتقد أن الفكرة تستحق الإنتظار ، لأنها قيد التجارب على أكثر من كمبيوتر 😁

إلى كل من ساهم في إنجاح فكرتي ، والتي ترتكز على تطوير فكرة التفعيل من خلال الإنترنت ( دون الحاجة إلى أي رمز تفعيل يتلقاه المستخدم أو العميل من خلال مطور ومبرمج قاعدة البيانات ) . وقد تم من خلال التجارب التي شاركتموني إياها الحصول على جميع الأخطاء ، وحلها بشكل كامل وجذري بإذن الله . وقد تم تحديث الملفين السابقين ( للإصدارين 64 و 32 ) ليتعاملا مع الأخطاء المكتشفة سابقاً . فعلى من يرغب باستمرار دعمه بتجربة الملف بعد إصلاح الأخطاء فله وللجميع جزيل الشكر على دعمه لي . الملف بإصدار النواة التي توافق إصدار الأوفيس لديك .. سخة تعمل على النواة 64 :- Officena 64.zip سخة تعمل على النواة 32 :- Officena 32.zip المشاركة إختيارية وليست إجبارية ، ولا عتب على من لا يرغب ، يكفينا أنه أنار المنتدى بمروره الكريم ، وسيتم تفعيل اشتراك أي مستخدم تلقائياً لحذف ملفات التفعيل السابقة ، استخدم ملف الحذف التالي حسب إصدار الأوفيس لديك . Clear64.zip أو Clear32.zip

يعمل بكفاءة .. شكراً لجهودك وعطاءك المستمرين أستاذ @عبدالله بشير عبدالله

جزاك الله خيراً أستاذ عبدالله ، كملاحظة :- الملف يعمل عند الاختيار بدون الفلترة بشكل صحيح 100% ، لكن عند الفلترة ، انظر الصورة التوضيحية

يغلق .. آخر مشاركة عمرها 9 سنوات .. تستطيع فتح موضوع جديد والإشارة إلى هذا الموضوع إذا أردت أي طلب وتعديل خاص .

يغلق .. آخر مشاركة عمرها 6 سنوات .. تستطيع فتح موضوع جديد والإشارة إلى هذا الموضوع إذا أردت أي طلب وتعديل خاص .

أخي وائل ، تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

وزائر آخر ينضم إلى كوكبة المسجلين حضورهم ، ينتهي بالرقم 146252 ، وزيارة عابرة كالعادة 😇

هذا السطر وظيفته فقط هي استخراج آخر رقمين من سنة الميلاد من الرقم القومي ، وبالتالي لن تكون النتيجة مثلا 1985 أو 2010 على سبيل المثال بل ستكون 85 أو 10 ( كما في المثالين ) . ولذا فأن الجزء المصحح أعلاه سابقاً ، وظيفته إعادة دمج رقم القرن مع رقم السنة المستخرج ..

لاعب جديد ينضم إلى قائمة المسجلين لحضورهم على السيرفر ، ينتهي بالرقم 375526 ، وأيضاً لم يطالب بالتفعيل

شكراً لذوقك الرفيع 😎

باعتقادي استخدام كما هو الحالي ، هو أفضل حل لك