متقاعد

9 دقائق مضت, الحلبي said:

لاحظ معى عند جمع 5. + 625. ( ينتج 1.125 والصحيح هو 1.25)

لانك اشرت الى ان الراتب 2000 فيكون 9 دقائق تساوي 1.25

اما في المثال الراتب 1800 فيكون الحسم = 1.125

فقط عدل راتب الموظف الى 2000 تجد ان معادلة الاستاذ الكبير صحيحة

16 دقائق مضت, الحلبي said:

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

بالنسبة للموضوع الاساسي اقول :

اذا حضر الماء بطل التيمم

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

حسم ساعات التأخير تتم من خلال تجميع الدقائق والساعات التي يتأخر فيها الموظف بحيث اذا اكتملت سبع ساعات فانه يحسم عليه غياب يوم كامل

وفي حالة ان عدد ساعات التأخير اقل من سبع ساعات فيتم ترحيلها للشهر التالي وتنتهي بنهاية السنة المالية

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

تحياتي

8 ساعات مضت, طاهر الوليدي said:

اخيرا استطعت تحويل السنه من ميلادي الى هجري

لا اتفق معك استاذنا العزيز طاهر

مثلا الان نحن في شهر 9 ميلادي 2 هجري

لو حولت التاريخ وفقا لما صنعت سيكون الميلادي 2022 والهجري 1444 وهذا تمام جزئيا لكون الاشهر الستة الاولى من شهر 2022 توافق العام 1443

بعد اربعة اشهر يكون الميلادي 2023 والهجري وفقا لعملك 1445 وهذا غير صحيح لكوننا مازلنا في الشهر السادس 1444

ايضا جزء من عام 2024 سيكون ضمن العام الهجري 1445 والعام  1446 وعام 2025 سيكون ضمن العام 1446 والعام 1447 هجري

ايضا العام 2030 بحسابك سيكون 1453 بينما يفترض ان يكون 1451 والعام 1452

اعتقد ان العمل يحتاج الى اعادة النطر والتحويل بالسنة بدون اليوم والشهر لن يعطي النتيجة المطلوبة

رأي شخصي غير ملزم

يستاهل ابو احمد مع تمنياتي له بالتوفيق

49 دقائق مضت, Moosak said:

بالنسبة لتنفيذ هذا الأمر ..  هل يوضع على ملف Bat ؟ أم يمكن تنفيذه بالـ VBA ؟

جميعها ممكن ولكن يتطلب بعض التعديل مثلا اذا اردنا ان نعمل على ملف دفعي bat

او من خلال vba لابد من بعض التعديلات

ولكن لماذا التعقيد فقط افتح المفكرة واحفظ الملف بامتداد reg

ليكون الكود ⬇️

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1]
"Path"="\\\\DESKTOP-AOJOU45\\test2\\"
"AllowSubfolders"=dword:00000001
"Description"=""

اما اذا اردنا عن طريق ملف دفعي فيمكن كتابته هكذا

@Echo Off

cd %systemroot%\system32
call :IsAdmin

Reg.exe add "HKCU\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1" /v "Path" /t REG_SZ /d "\\DESKTOP-AOJOU45\test2\\" /f
Reg.exe add "HKCU\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1" /v "AllowSubfolders" /t REG_DWORD /d "1" /f
Reg.exe add "HKCU\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1" /v "Description" /t REG_SZ /d "" /f
Reg.exe add "HKCU\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1" /v "Date" /t REG_SZ /d "09/01/2022 16:54" /f
Exit

Cls

لم اقم بمراجعة الكود الخاص بالباتش كتبته بشكل سريع لا نشغالي والامر ليس ذو اهميه لكون تنفيذة من خلال الرجيسيتري اسهل

دائما عندما نتحدث عن اي اكواد للرجيسيتري او ملفات الباتش فليس الهدف نسخ الكود وتنفيذه

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

لذا نشير اليها احيانا ولا نتوسع في الحديث

تحياتي

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

اشكرك كانت المشكلة المسار طبقت طريقتك ونجح في انشاء مجلد موثوق به 

الشكر لله استاذ احمد

من اسهل الطرق لانشاء المجلد عمل ملف يعدل على الرجيستري وهذا مفيد عند تعدد المستخدمين بدلا من ان تقوم بالتعديل اليدوي لكل جهاز

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location1]
"Path"="\\\\DESKTOP-AOJOU45\\test2\\"
"AllowSubfolders"=dword:00000001
"Description"=""

هذا المسار خاص بمجلد الشبكة الخاص بي واذا اردت استخدامة ضع مسار الشبكة الخاصة بك

السطر الثالث يعني ان المجلدات الفرعية امنه ايضا وفي حالة عدم الرغبة فقط احذف السطر

-------------------------------------------------

دائما لا انصح بالتعديل على سجل النظام الا اذا كنت على معرفة بما تعمل

قبل اي تعديل انصح بحفظ نسخة احتياطية من سجل النظام

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

تحياتي

56 دقائق مضت, AbuuAhmed said:

عملت فحص للدالة وكانت مخرج الدالة فارغ Empty وليس صفر ، والـ vba يتعامل مع الفارغ كصفر في العمليات المحاسبية.

كما اشرت سابقا الاجراء الاسلم استخدام القيمة البديلة وعدم اهمال كتابتها

ولكن العملية الحسابية سوف تعطي نتيجة صحيحة سواء استخدمناها في الكود او في منشئ التعبير

ومن تجربة

ايضا شركة ميكروسوفت اوضحت ذلك في شرح الدالة وان القيمة البديلة هي وسيط اختياري مالم يكن الاستخدام في الاستعلام

22 ساعات مضت, محمد احمد لطفى said:

في حال عدم تعيين القيمة الثانية تعيد لنا هذه الدالة القيمة صفر

كلام صحيح ولكن اذا استخدمناها في استعلام فلابد من كتابة القيمة البديلة

وفي جميع الاحوال الافضل كتابة القيمة البديلة

تحياتي

منذ ساعه, احمد الفلاحجي said:

اتفضا اخى @alaaldin2010 ان شاء الله يكون ما تريد

مشاركة مع استاذنا @احمد الفلاحجي

طريقة اخرى باستخدام عبارة not in

لتكون جملة الاستعلام ⬇️ وهنا لسنا بحاجة الى عمل علاقة بين الجدولين في الاستعلام

SELECT [2].[رقم العائلة]
FROM 2
WHERE ((([2].[رقم العائلة]) Not In (SELECT [1].رقم
FROM 1;)));

الملف مرفق استعلام q_2

والعكس لو اردنا ان نحصل على السجلات المشتركة بين الجدول فقط نحذف عبارة not لتكون جملة الاستعلام ⬇️

SELECT [2].[رقم العائلة]
FROM 2
WHERE ((([2].[رقم العائلة]) In (SELECT [1].رقم
FROM 1;)));

ملاحظة استخدام ارقام لاسماء الجداول ليست صحيحة

تحياتي

مثال_1.accdb

18 دقائق مضت, ahmad_mustafa said:

اشكرك تعاونك لكني جربت نجت على اي قرص من نفس الكميوتر لك على مجلد في كمبيوتر اخر معمول عليه مشاركة لم تنجح معي تظهر رسالة اختر موقع اخر

جرب اكتب مسار الشبكة

انا جربت الان وتعمل بدون مشاكل

لمعرفة مسار مجلد المشاركة انقر بزر الفارة الايمن على المجلد المشترك ثم خصائص ثم تبويب مشاركة تجد المسار مكتوب انظر للصور المرفقة

2 ساعات مضت, ahmad_mustafa said:

وهل من طريقة لاظهارها الخانة

نعم توجد ولكني اعتذر عن شرحها

وسوف اشرح طريقة انشاء مجلد امن

الشرح لاصدارات من 2016 الى 2021

نقوم بانشاء مجلد على درايف c او d انا عملته على c وسميته kha ونسخت له ملف قاعدة البيانات

في قائمة ملف في اكسس اختار خيارات ثم مركز التوثيق ثم اعدادات مركز التوثيق ثم المواقع الموثوق بها ثم اضافة موقع جديد واختار المجلد

انظر الصور

تحياتي

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

وكيف يمكنني جعل المجلد موثوق به في شبكة داخلبة

هذا الخيار موجود في نفس الطريقة التي شرحتها ☝️ولكنه غير مستحسن

13 ساعات مضت, ahmad_mustafa said:

اليوم اتفاجأ توقف البرنامج وظهور رسالة من ميكروسوفت مخاطر الامان

هذه المشكلة من يومين واعتقد انها مرتبطة بتحديث نظام التشغيل

بالاضافة لما اشار اليه الاستاذ جعفر

ممكن فتح المجلد الذي يحتوي على الملف ثم وضع المؤشر على الملف ونقر الزر الايمن ثم خصائص

ثم الغاء الحظر

هذه الخانه قد لاتظهر لك في الخصائص اذا لم يسبق لك التعامل مع امان النظام

18 دقائق مضت, Moosak said:

Select Case bYear
    Case Is = 3: AutoStage = "حضانه"
    Case Is = 4: AutoStage = "روضه"
    Case Is = 5: AutoStage = "تمهيدي"
    Case Is = 6: AutoStage = "الأول"
    Case Is = 7: AutoStage = "الثاني"
    Case Is = 8: AutoStage = "الثالث"
    Case Is = 9: AutoStage = "الرابع"
    Case Is = 10: AutoStage = "الخامس"
    Case Is = 11: AutoStage = "السادس"
    Case Is = 12: AutoStage = "السابع"
    Case Is = 13: AutoStage = "الثامن"
    Case Is = 14: AutoStage = "التاسع"
    Case Is = 15: AutoStage = "أول ثانوي"
    Case Is = 16: AutoStage = "ثاني ثانوي"
    Case Is = 17: AutoStage = "ثالث ثانوي"
    Case Else:   AutoStage = ""
End Select

عمل جميل استاذنا موسى

وكذلك عمل الاستاذ مجمد البرناوي ⬇️

Me.CLASSE = Switch([mo] = 6, "الأول", [mo] = 7, "الثاني", [mo] = 8, "الثالث", [mo] = 9, "الرابع", [mo] = 10, "الخامس", [mo] = 11, "السادس")

بالنسبة لي لو اني مازلت مبرمج فسوف اعمل بطريقة اخرى عن طريق وضع هذه القيم في جدول باعتبارها قيم ثابتة

تحياتي

14 ساعات مضت, طاهر الوليدي said:

لكن في حالة كان الجداول غير مشتركه او يضاف لكل مجموعه جداول مخصصه وكومبوا منفصل وعمل برمجيات اخفاء وظهار كل كومبو

مادام الامر كذلك الافضل ان تلغي افضل اجابة وتعيد رفع الموضوع حتى تجد تفاعل من الاخوة

تحياتي

25 دقائق مضت, طاهر الوليدي said:

الله يبارك فيك وفي جميع اخواني واحبابي في المنتدى

بالتوفيق اخي طاهر

25 دقائق مضت, طاهر الوليدي said:

وانا كمان شايب مثلك

الله يعطيك الصحة والعافية ويبارك لك في عمرك

نصيحة انظر لمشاركة الاستاذ @Moosak فيها شرح مبسط لكيفية ربط القوائم المتعددة

تحياتي

منذ ساعه, طاهر الوليدي said:

ماعدى الكومبوا الرابع صعب علينا ربطه بالجدول الثالث

شوف انا شايب وفهمي على قدي

جرب لعلني فهمت

بعض اختيارات القائمة الثالث ليس لها بنود ؟

حساب.accdb

منذ ساعه, jjafferr said:

استخدم ctrl+G

ممتاز يامعلم يعمل بجدارة

11 ساعات مضت, مبرمج متقاعد said:

هذه المشكلة واجهتها سابقا والسبب كان من برنامج GeForce Experience

وهذا ايضا الرد من موقع الاستفسارات الخاص بميكروسوفت ومن خلالة عالجت المشكله التي اشرت اليها في ردي الاول

اقتباس

If you still problem with activating VBA Editor (Alt+F11), please check (mabye you have) Nvidia Geforce Experience. I just have the same problem and solve it by changing preferances

ولكن بما ان العم ابو حسن لا يستخدم كروت شاشة نيفادا فان حل الاستاذ جعفر قد ينهي المشكله باذن الله

6 ساعات مضت, abouelhassan said:

بس انا معنديش هذا البرنامج ومع هذا لأيام فتح محرر الاكواد بعد أن غيرت شي بس انا مش عارفه 

هل تستخدم مفتاح F11 كمفتاح اختصار مع اي برنامج اخر

مثل برامج تصوير الشاشة او تصوير الفيديو .. ااخ

اذا كان نعم احذف مفتاح الاختصار وجرب لا هذا السبب المرجح مشكلتك

تحياتي

النتيجة بعد حذف الاختصلر

15 دقائق مضت, abouelhassan said:

فى حاجة انا غيرتها فى الاعدادات بتاعة التصميم هى التى جعلت alt+f11فى وضع عدم التصميم لا يعمل بارك الله فيكى

هذه المشكلة واجهتها سابقا والسبب كان من برنامج GeForce Experience

كان البرنامج يستخدم مفتاح الاختصار ALT & F11

فقط حذفته وانتهت المشكلة

46 دقائق مضت, عبد الله قدور said:

عند الضغط عليه مرة ثانية يفتح لي فاتورة المبيعات مرة ثانية وتبقى الفاتورة المفتوحة سابقا موجودة

اقتباس

 

35 دقائق مضت, أكسس وبس said:

حياكم الله وجزاكم الله خيرا

بالتوفيق استاذ ولاثراء الموضوع واضافة طريقة اخرى

ممكن الاستغناء عن النموذج الفرعي واظهار السجلات من خلال مربع قائمة

وفي خصائص مربع القائمة اجعل مصدر الصف استعلام قيمته تساوي ⬇️

SELECT table2.ID, table2.Name, table2.Age
FROM table2
WHERE (((table2.ID)=[Forms]![frm_table1]![select_id]));

تحياتي

13 دقائق مضت, أكسس وبس said:

خصائص النموذج الفرعى ليكون الشكل كما فى الصورة لم اجد ما اريد حتى بحثت على النت ولكن لم اجد اجابة 

ولن تجد لانك جعلت تنسيق النموذج الفرعي ورقة بيانات غير طريقة العرض الى نماذج مستمر وحينها افعل ما تريد

5 دقائق مضت, أكسس وبس said:

تظهر بياناته فى النموذج الفرعى على شكل الصورة

جرب المرفق

aaa.mdb

28 دقائق مضت, rockjone33 said:

كان وقتها سهلات

صحيح الان التعاملات الالكترونية والاتمته سهلت الحياة بشكل كبير ولكن ايضا سلطت الضوء على امور اخرى يمكن النظر لها باكثر من زاوية

بصراحة مشاركاتك جميلة جدا وممتعة وشيقة ولكن ساتوقف هنا لكونها امور خارج نطاق الموضوع الاساسي

لا اريد اغضاب الاساتذة الكبار 👑 بالخروج عن النص والمسار المحدد سلفاً لقواعد المشاركة

تحياتي ولنا لقاء في موضوع اخر ان ارد الله