ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته
استاذتى الكرام رواد المنتدى المحترمين 
اولا :  بعد أذن استاذى الجليل ومعلمى القدير الاستاذ @منتصر الانسي  
 
---------------------------
قمت بتحميل مرفق للاستاذ منتصر جزاه الله عنا كل خير من هذا الموضوع الشيق :
 

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

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

هذا الموضوع يعد مهماً وحيوياً لمصممي ومطوري النظم أكثر من المستخدم العادي
خاصة عند استخدام حدث Timer مع أي نموذج ويريد مطور النظام فتح محرر الأكواد (VBA) في نفس وقت عرض النماذج هنا تحدث المشكلة الكلاسيكية:
المطور لا يستطيع تعديل أي كود لأن التايمر النموذج يعطل التركيز داخل المحرر و يسبب أخطاء 
بفضل هذه الفكرة الثورية  هذا الأمر أصبح من الماضي السحيق
فكرة العمل باختصار
1 - عند فتح النموذج يبدأ TimerInterval تلقائياً 2 - إذا تم فتح محرر VBA بأى طريقة كانت يتم إيقاف التايمر فوراً 3 - عند إغلاق المحرر والعودة إلى النماذج يتم تشغيل التايمر من جديد تلقائياً وفوراً 4 - لا حاجة لتمرير اسم النموذج الرئيسي أو اسم عنصر الـ Subform يدوياً 5 - المطلوب فقط هو تمرير اسم عنصر التحكم الذي سيتم عرض الوقت فيه (Label أو TextBox) حسب الحاجة والرغبة  مميزات الحل
ذكـي : يكتشف النموذج الرئيسي والفرعي تلقائياً متعدد : يعمل مع أكثر من نموذج في نفس الوقت مـــرن : يدعم Label و TextBox كعناصر عرض للوقت آمـــن :  إذا تم حذف الوحدة النمطية يتحول تلقائياً إلى Fallback Mode باستخدام دالة الوقت الرئيسية :  Now() خفيف :  لا يعتمد على Timer إضافي للمراقبة جاهــز : يعمل مع النماذج الرئيسية و الفرعية أو الرئيسية المستقلة أو الرئيسية والفرعية معا -----------------------------------------------------


الوحدة النمطية العامة
الاسم المقترح: basClockManager
الكود...
Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetWinEventHook Lib "user32" ( _ ByVal eventMin As Long, _ ByVal eventMax As Long, _ ByVal hmodWinEventProc As LongPtr, _ ByVal pfnWinEventProc As LongPtr, _ ByVal idProcess As Long, _ ByVal idThread As Long, _ ByVal dwFlags As Long) As LongPtr Private Declare PtrSafe Function UnhookWinEvent Lib "user32" ( _ ByVal hWinEventHook As LongPtr) As Long Private Declare PtrSafe Function GetAncestor Lib "user32" ( _ ByVal hwnd As LongPtr, _ ByVal gaFlags As Long) As LongPtr #Else Private Declare Function SetWinEventHook Lib "user32" ( _ ByVal eventMin As Long, _ ByVal eventMax As Long, _ ByVal hmodWinEventProc As Long, _ ByVal pfnWinEventProc As Long, _ ByVal idProcess As Long, _ ByVal idThread As Long, _ ByVal dwFlags As Long) As Long Private Declare Function UnhookWinEvent Lib "user32" ( _ ByVal hWinEventHook As Long) As Long Private Declare Function GetAncestor Lib "user32" ( _ ByVal hwnd As Long, _ ByVal gaFlags As Long) As Long #End If Private Const EVENT_SYSTEM_FOREGROUND As Long = &H3 Private Const WINEVENT_OUTOFCONTEXT As Long = &H0 Private Const GA_ROOT As Long = 2 Private gHook As LongPtr Private gAccessHwnd As LongPtr Private gClocks As Object Private Sub EnsureClockStore() If gClocks Is Nothing Then Set gClocks = CreateObject("Scripting.Dictionary") End If End Sub Private Function MakeClockKey(frm As Access.Form) As String On Error GoTo ErrorHandler Dim vParentForm As Access.Form Dim vControlName As String Set vParentForm = frm.Parent vControlName = GetSubformControlName(vParentForm, frm) If Len(vControlName) > 0 Then MakeClockKey = vParentForm.Name & "|" & vControlName & "|" & frm.Name Exit Function End If ErrorHandler: MakeClockKey = frm.Name End Function Private Function CreateClockState(frm As Access.Form, _ ByVal pControlName As String, _ ByVal pIntervalMS As Long) As Object Dim vState As Object Set vState = CreateObject("Scripting.Dictionary") Dim vIsSubform As Boolean Dim vParentName As String Dim vSubCtlName As String On Error Resume Next vParentName = frm.Parent.Name vSubCtlName = GetSubformControlName(frm.Parent, frm) vIsSubform = (Len(vSubCtlName) > 0) On Error GoTo 0 vState.Add "Key", MakeClockKey(frm) vState.Add "HostFormName", frm.Name vState.Add "ParentFormName", vParentName vState.Add "SubformControlName", vSubCtlName vState.Add "IsSubform", vIsSubform vState.Add "ControlName", pControlName vState.Add "WasStoppedByVBE", False vState.Add "IntervalMS", pIntervalMS Set CreateClockState = vState End Function Public Sub StartSmartClock(frm As Access.Form, _ ByVal pControlName As String, _ Optional ByVal pIntervalMS As Long = 1000) On Error GoTo ErrorHandler EnsureClockStore Dim vKey As String Dim vState As Object vKey = MakeClockKey(frm) If gClocks.Exists(vKey) Then gClocks.Remove vKey Set vState = CreateClockState(frm, pControlName, pIntervalMS) gClocks.Add vKey, vState frm.TimerInterval = pIntervalMS If gAccessHwnd = 0 Then gAccessHwnd = Application.hWndAccessApp If gHook = 0 Then gHook = SetWinEventHook( _ EVENT_SYSTEM_FOREGROUND, _ EVENT_SYSTEM_FOREGROUND, _ 0, _ AddressOf ForegroundChangedProc, _ 0, 0, _ WINEVENT_OUTOFCONTEXT) End If Exit Sub ErrorHandler: End Sub Public Sub StopSmartClock(frm As Access.Form) On Error Resume Next EnsureClockStore Dim vKey As String vKey = MakeClockKey(frm) frm.TimerInterval = 0 If gClocks.Exists(vKey) Then gClocks.Remove vKey End If If gClocks.Count = 0 Then If gHook <> 0 Then UnhookWinEvent gHook gHook = 0 End If Set gClocks = Nothing End If End Sub Public Sub SmartClockTimer(frm As Access.Form) On Error Resume Next EnsureClockStore Dim vKey As String Dim vState As Object vKey = MakeClockKey(frm) If Not gClocks.Exists(vKey) Then Exit Sub Set vState = gClocks(vKey) If IsVbeOpen() Then vState("WasStoppedByVBE") = True frm.TimerInterval = 0 Exit Sub End If Dim vTimeText As String vTimeText = Format$(Now(), "dd/mm/yyyy hh:nn:ss AM/PM") If Len(vState("ControlName")) > 0 Then UpdateControlDisplay frm, vState("ControlName"), vTimeText End If End Sub Private Function IsVbeOpen() As Boolean On Error Resume Next IsVbeOpen = Application.VBE.MainWindow.Visible If Err.Number <> 0 Then IsVbeOpen = False On Error GoTo 0 End Function Private Sub UpdateControlDisplay(frm As Access.Form, ByVal pControlName As String, ByVal pDisplayText As String) On Error Resume Next Dim vControl As Access.Control Set vControl = frm.Controls(pControlName) If vControl Is Nothing Then Exit Sub Select Case vControl.ControlType Case acTextBox If vControl.Value <> pDisplayText Then vControl.Value = pDisplayText End If Case acLabel If vControl.Caption <> pDisplayText Then vControl.Caption = pDisplayText End If End Select End Sub Private Function GetSubformControlName(vParentForm As Access.Form, vChildForm As Access.Form) As String On Error Resume Next Dim vControl As Access.Control For Each vControl In vParentForm.Controls If vControl.ControlType = acSubform Then If vControl.Form Is vChildForm Then GetSubformControlName = vControl.Name Exit Function End If End If Next vControl End Function Private Function GetStateTargetForm(vState As Object, ByRef vForm As Access.Form) As Boolean On Error GoTo ErrorHandler If vState("IsSubform") Then If (SysCmd(acSysCmdGetObjectState, acForm, vState("ParentFormName")) And acObjStateOpen) = 0 Then Exit Function Set vForm = Forms(vState("ParentFormName")).Controls(vState("SubformControlName")).Form Else If (SysCmd(acSysCmdGetObjectState, acForm, vState("HostFormName")) And acObjStateOpen) = 0 Then Exit Function Set vForm = Forms(vState("HostFormName")) End If GetStateTargetForm = Not (vForm Is Nothing) Exit Function ErrorHandler: Set vForm = Nothing End Function #If VBA7 Then Public Sub ForegroundChangedProc( _ ByVal hWinEventHook As LongPtr, _ ByVal eventId As Long, _ ByVal hwnd As LongPtr, _ ByVal idObject As Long, _ ByVal idChild As Long, _ ByVal dwEventThread As Long, _ ByVal dwmsEventTime As Long) #Else Public Sub ForegroundChangedProc( _ ByVal hWinEventHook As Long, _ ByVal eventId As Long, _ ByVal hwnd As Long, _ ByVal idObject As Long, _ ByVal idChild As Long, _ ByVal dwEventThread As Long, _ ByVal dwmsEventTime As Long) #End If On Error Resume Next If gClocks Is Nothing Then Exit Sub If gClocks.Count = 0 Then Exit Sub If GetAncestor(hwnd, GA_ROOT) <> gAccessHwnd Then Exit Sub Dim vKey As Variant Dim vState As Object Dim vForm As Access.Form For Each vKey In gClocks.Keys Set vState = gClocks(vKey) If vState("WasStoppedByVBE") Then If GetStateTargetForm(vState, vForm) Then vForm.TimerInterval = vState("IntervalMS") Dim vTimeText As String vTimeText = Format$(Now(), "dd/mm/yyyy hh:nn:ss AM/PM") If Len(vState("ControlName")) > 0 Then UpdateControlDisplay vForm, vState("ControlName"), vTimeText End If vState("WasStoppedByVBE") = False End If End If Next vKey End Sub -----------------------------------------------------

طريقة الاستدعاء في النماذج
نموذج يعرض الوقت في Label
الكود...
Private Sub Form_Load() Application.Run "StartSmartClock", Me, "lblTime", 1000 End Sub Private Sub Form_Timer() Application.Run "SmartClockTimer", Me End Sub Private Sub Form_Unload(Cancel As Integer) Application.Run "StopSmartClock", Me End Sub -----------------------------------------------------

نموذج يعرض الوقت في TextBox 
الكود...
Private Sub Form_Load() Application.Run "StartSmartClock", Me, "txtTime", 1000 End Sub Private Sub Form_Timer() Application.Run "SmartClockTimer", Me End Sub Private Sub Form_Unload(Cancel As Integer) Application.Run "StopSmartClock", Me End Sub -----------------------------------------------------

نموذج بدون عرض نصي للوقت
الكود...
Private Sub Form_Load() Application.Run "StartSmartClock", Me, "", 1000 End Sub Private Sub Form_Timer() Application.Run "SmartClockTimer", Me End Sub Private Sub Form_Unload(Cancel As Integer) Application.Run "StopSmartClock", Me End Sub -----------------------------------------------------
 
كما تلاحظون الاستدعاء سهل وموحد سواء أردنا عرض الوقت في TextBox أو Label
Application.Run "StartSmartClock", Me, "", 1000
ملاحظة هامة حول معامل : TimerInterval وهو المعامل الثالث فى الاستدعاء  (Interval) 
الرقم:  1000 هو قيمة TimerInterval يمثل الفاصل الزمني بالميلي ثانية
القيمة الافتراضية : 1000 (ثانية واحدة) تم ضبطها مسبقاً داخل الوحدة النمطية
هل هو إجباري؟
لايمكن حذفه والاعتماد على القيمة الافتراضية
طرق الاستدعاء المختلفة مع المعامل :
' الطريقة الأولى: تمرير قيمة مخصصة (مثلاً نصف ثانية) Application.Run "StartSmartClock", Me, "lblTime", 500 ' الطريقة الثانية: حذف المعامل (يتم استخدام 1000 تلقائياً) Application.Run "StartSmartClock", Me, "lblTime" في بعض الحالات  قد يرغب المصمم في عمل التالى :
ساعة عادية لذلك سوف تكون قيمة : TimerInterval =1000 (ثانية واحدة) ساعة دقيقة (Stopwatch) تكون قيمة  TimerInterval = 100 (جزء من الثانية) ساعة بطيئة (تحديث نادر) تكون قيمة TimerInterval = 5000 (5 ثوانٍ) لهذا السبب تم جعل هذا المعامل اختيارياً مع  استخدام القيمة الإفتراضية المنطقية مع إتاحة المجال للمصمم لتغييره حسب احتياجاته
-----------------------------------------------------

 نموذج مع Fallback ( منتهى الأمان )
الكود...
Option Compare Database Option Explicit Private mIsSmartClockActive As Boolean Private Sub Form_Load() AttemptStartSmartClock End Sub Private Sub Form_Timer() Dim vTimeText As String vTimeText = Format$(Now(), "dd/mm/yyyy hh:nn:ss AM/PM") If mIsSmartClockActive Then Application.Run "SmartClockTimer", Me Me.txtDClock = vTimeText Else ' Fallback: النموذج يحدث نفسه بنفسه Me.txtDClock = vTimeText Me.lblDClock.Caption = vTimeText End If End Sub Private Sub Form_Unload(Cancel As Integer) On Error Resume Next If mIsSmartClockActive Then Application.Run "StopSmartClock", Me End If Me.TimerInterval = 0 On Error GoTo 0 End Sub Private Sub AttemptStartSmartClock() On Error GoTo FallbackMode Application.Run "StartSmartClock", Me, "lblDClock", 1000 mIsSmartClockActive = True Exit Sub FallbackMode: Err.Clear mIsSmartClockActive = False Me.TimerInterval = 1000 End Sub -----------------------------------------------------


الخلاصة النهائية :الاستدعاء المناسب
عرض الوقت في : Label LabelStartSmartClock Me, "lblTime" عرض الوقت في : TextBox StartSmartClock Me, "txtTime" بدون عرض نصى للوقت مثلا : ساعة عقارب (بدون عرض نصي) StartSmartClock Me, "" نموذج فرعي (Subform) نفس الكود - يتم اكتشافه تلقائياً
نماذج متعددة في نفس الوقت مدعوم بالكامل

ملاحظات مهمة
إعدادات الأمان     : يجب تفعيل Trust access to the VBA project object model في إعدادات Trust Center إصدار Access      :  يعمل مع Access 2007 والإصدارات الأحدث مراجع إضافية      :  لا يحتاج إلى إضافة أي مراجع  Fallback Mode   :  إذا تم حذف الوحدة النمطية، يتحول النموذج تلقائياً إلى استخدام Now()  
مع هذا الحل الفريد أصبح :
التحكم في TimerInterval أثناء فتح محرر VBA أمراً تلقائياً بالكامل، دون أي تدخل يدوي أو تعقيدات سهولة فتح محرر VBA و إضافة أو تعديل أى أكواد في نفس وقت عرض النماذج وبدون أن تحدث المشكلة الكلاسيكية بسبب : TimerInterval استمتع بتجربة تطوير سلسة وخالية من المشاكل
 
 
   

تم التعديل ليتناسب مع نسخ الاوفيس بدأ من 2007 وحتى 2021 للنوتان 32 , 64
التطبيق اهداء الى منتدانا الحبيب ورواد المنتدى 
العمل حتى يخرج بهذه الصورة يعلم الله وحده الجهد المبذول به اسال الله تعالى ان يتقبل هذا العمل صدقة جارية الى ما شاء الله تعالى 
ms access becomes an authorized e-invoicing solution provider in Saudi Arabia by www.officena.net
Start your e-invoicing journey
حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية
يتم قراءة الرمز الناتج ان شاء الله عبر القارىء الرسمي الخاص بالهيئة ( تطبيق جوال ) حمل من هنا : التطبيق الرسمي لهيئة الزكاة والضريبة والجمارك
يتم قراءة الرمز الناتج ان شاء الله عبر قارىء خاص ( تطبيق جوال ) حمل من هنا : تطبيق قرائة رمز الاستجابة طبقات لمتطلبات هيئة الزكاة والضريبة والجمارك
متطلبات التشغيل :
Framework الاصدار  4
-------------------------------------------------------------------------------
يمكن تحميل الملف الاتى هو يقوم بالتحديثات اللازمة سواء ويندوز 7 , 10 , 11
إذهب الى موقع التحميل  :   من هنا   ( تحميل مباشر من mediafire .. من رفعي انا على حسابي الشخصي بالموقع  )
ميزات برنامج All in one Runtimes:
سهل الاستخدام و مفيد للغاية في تقليل الزمن الضروري للبحث عن الأدوات كلٍ على حدا.
مجاني بشكل كامل و يقدم الكثير من الفائدة و يمكنه حمايتك من المواقع التي قد تصيب جهازك بفيروسات سيئة عند التحميل منها.
يعمل بشكل ذكي حيث يقوم بتحديد ما يحتاجه حاسبك و لن يقوم بتثبيت كل الأدوات بشكل عشوائي.
يقدم مجموعة كبيرة من الأدوات الضرورية في حاسبك و أهمها:
.NET Framework 4.6 + Updates
Java Runtime Environment 8
DirectX 9.0c Extra files
General runtime files
Microsoft Visual C++ Runtimes (v2005 – v2015)
Microsoft Visual J# 2.0 SE
Microsoft Silverlight 5
Shockwave Player 12 (Internet Explorer Plugin)
-------------------------------------------------------------------------------
الجديد فى هذا الموضوع وسبب تطوير تلك القاعدة .
نظرا للمشاكل التي واجهت أحبابي سابقا بسبب تسجيل الملفات .. تم بفضل الله تعالى حل كل المشاكل تقريبا
لن نحتاج الى نقل مجلد ملفات مكتبات الـ DLL الى أي مكان  يتم إنشاء المجلد اليا بنفس مسار القاعدة  يتم تحميل الملفات من قاعدة البيانات اليا تشغيل ملف التسجيل Register.bat اليا.. عند فتح القاعدة للمرة الأولى ومحاولة انشاء رمز الـ Qr وفى حالة عدم تسجيل مكتبة الجافا يتم اغلاق القاعدة اليا وفتح ملف التسجيل كمسؤول نظام دون أي تدخل من المستخدم نهائيا  مميزات القاعدة 
الحفاظ على الملفات الهامة بحملها داخل القاعدة وتحميلها لمسار القاعدة فى كل مرة يتم فيها فتح القاعدة شغيل ملف التسجيل Register.bat اليا عند الحاجة لذلك  يدعم النواتان 64 , 32  تشفير البيانات طبقا لمتطلبات هيئة الزكاة والضريبة والجمارك السعودية الاحتفاظ بالبيانات المشفرة لكل سجل حجم الصورة الخاصة برمز الاستجابة السريع QR CODE صغير جدا لمن يريد الاحتفاظ بهم لكل سجل أتمنى لكم تجربة ممتعة ... 
الفائدة من تصميى المتواضع وافكارى والمميزات
حمل ملفاتى الهامة داخل القاعدة وبذلك لن يتم فقدانها مطلقا لاى سبب الا بفقد القاعدة نفسها عند نقل القاعدة لاى جهاز يتم وضع الملفات بتحميلها من القاعدة الى الجهاز اليا فى مسار القاعدة فلن يشغل بال المستخدم اى شئ بخصوص ملفات المكتبات عند عدم تسجيل المكتبات يتم ذلك اليا دون ادنى تدخل من المستخدم  يتم فتح الملف الدفعى اليا فى حالة عدم تسجيل المكتبات وهو يعيد تشغيل نفسه كمسؤل ويقوم باللازم عند الانتها للملف الدفعى من التسجيل للمكتبات يعيد فتح القاعدة اليا واغلاق نفسه  
وجب التنويه لبعض النقاط لمن يريد نقل الافكار الى عمله
مراعاة والاخذ فى الاعتبار عند محاولة تغيير اسم القاعدة ان اردتم
لابد من تغيره كذلك بنفس الاسم الجديد فى الملف الدفعى حيث انه يقوم بفتح القاعدة اليا بعد التسجيل مراعاة الاخذ فى الاعتبار عند محاولة تغيير اسم النموذج frmElcInvoicing تغير الاسم كذلك فى نموذج البدأ UsysfrmInsertAllObjects الحرص على وجود الجدول  UsystblBlob و الموديول UsysmodBlob والنموذج UsysfrmInsertAllObjects لانهم المختصون بحمل ملفات المكتبات داخل القاعدة وتحميلها وتسجيلها بشكل آلى بالهناء لكم وبالتوفيق للحميع ان شاء الله
 
 

- تلميح داخل مربع النص مع علامة مائية عند التركيز 
- يختفى كل من التلميح والعلامة المائية بمجرد كتابة البيانات داخل مربع النص أو عند فقدان التركيز اذا كان مربع النص لا يختوى على اى قيم
 

السلام عليكم ورحمة الله وبركاته
اليكم التحكم الكامل فى انشاء إختصار برمجيا إما للقاعدة الحالية أو لقاعدة بيانات أخرى مع القليل من المزايا المتقدمة والتى أتمنى أن تنال إعجابكم
للأهمية
وجب التنويه إلى أنه تم إستخدام الأكواد الخاصة بالاستاذ @SEMO.Pa3x فى هذا المرفق والذى تفضل بها مشكورا  بالمشاركة معنا فى الموضوع السابق
 
له منا كل الشكر والتقدير 

.
السلام عليكم ورحمة الله تعالى وبركاته
تواجهنا الكثير من المشاكل عند محاولة تحديث لقاعدة بيانات على الشبكة بسبب اتصال المستخدمين بها
الان اهديكم هذا العمل المتواضع الذى ينهى هذه المعاناه 
- الشرح قم بنقل جميع الكائنات الموجودة بالقاعدة التى تحمل اسم test  الى قاعدتك حتى تستطيع التحكم بها عن بعد
اترككم مع التجربة وانتظر افادتكم

Monitored Database.rar

السلام عليكم ورحمة الله تعالى وبركاته
اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا
آلية العمل
-عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية
- البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة
أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به
-المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية
-المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك
وهنا على سبيل المثال قاعدة الخلفية ArchivingTables2018 تم عمل باسورد لها للتجربة وهو  2018
اما القاعدة ArchivingTables2019 لم يتم عمل باسورد لها وكما تشاهدون فى الصورة تم التنقل بكل سهولة وبكل اريحية بين القاعدتين
هناك ميزة اخرى ولكن لم استطع تجربتها وهى الاتصال كذلك بجهاز كمبيوتر اخر والذى يحتوى على قاعدة الخلفية فى حالة الشبكة المحلية
وذلك بكتابة اسم مستخدم الجهاز كلمة المرور المخصصة للاتصال بالجهاز 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' _ +--officena------oOo-------oOo--------+ _  ' ' /o)| |(o\ ' ' / / | منتــديات اوفسيـنا | \ \ ' ' ( (_ | _ _ | _) ) ' ' ((\ \)+-/o)----oOo----oOo---------------(o\-+(/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/ \____/ ' ' ===============================oOo----oOo============ ' ' ----{ By Mohammed Essam )---- ' ' ----{ www.officena.net/ib/profile/129737-ابا-جودى )---- ' ' ======================oOo-------oOo================== ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''  

فى انتظار تجربتكم وابداء آرائكم القيمة وأبداعاتكم بأفكاركم الرائعة ☺
Automatically relink Access tables.rar Automatically relink Access tables.zip

السلام عليكم ورحمة الله تعالى وبركاته
لن اطيل عليكم كثيرا الجوب من العنوان
 

ScreenToGif   تصور صورة متحركة من شاشة الكمبيوتر للشرح

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