Accessna

مثال مرفق LaborNameSplit.rar

هذه دالة صغيرة في حجمها كبيرة في أدائها : Function CountWkDay(ByVal Date1 As Long, _ ByVal Date2 As Long, _ WkDay As Byte) As Variant If Date1 <= Date2 Then Date1 = Date1 - 1 Else Date2 = Date2 - 1 End If Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Abs(Date2 - Date1) End Function رابط المشاركة : http://www.officena.net/ib/index.php?s=&am...dpost&p=656 WeekdayCount.rar

هذه الدالة تذكرني بدالة قديمة من موقع الفريق العربي . للفائدة : Function LaborNameSplit(ByVal InName As String, PartNo As Byte) As String Dim FullName As String Dim Part As String Dim Part2 As String Dim LPart As String Dim Pos As Byte Dim Pos2 As Byte Dim K As Integer LaborNameSplit = "" FullName = Trim(Nz(InName)) & " " Do Pos = InStr(1, FullName, " ") If Pos > 0 Then FullName = Left(FullName, Pos) & Mid(FullName, Pos + 2) Loop Until Pos = 0 Do K = K + 1 Pos = InStr(1, FullName, " ") Part = Left(FullName, Pos) Select Case Part Case "آل ", "عبد ", "عبدرب ", "Al ", "Abdul " Pos = InStr(Pos + 1, FullName, " ") Case Else Pos2 = InStr(Pos + 1, FullName, " ") If Pos2 > 0 Then Part2 = Mid(FullName, Pos + 1, Pos2 - Pos) Select Case Part2 Case "الله ", "الحق ", "الإسلام ", "الدين " Pos = Pos2 End Select End If End Select If Pos = 0 Then If PartNo > 0 Then If (K - 1) = PartNo Then LaborNameSplit = "" Else LaborNameSplit = LPart End If Exit Function End If If K = PartNo Then LaborNameSplit = Left(FullName, Pos - 1) LPart = Left(FullName, Pos - 1) FullName = Mid(FullName, Pos + 1, Len(FullName)) Loop End Function

اعتقد هو الحل الأفضل وهو عمل حقل في الجدول نعم/لا وليتم تخزين القيم لا مشكلة ، فقط عند فتح النموذج تحتاج إلى استعلام تحديث للحقل لجعل كل قيم السجلات لا . هناك حلول أخرى منها مثلا عمل جدول آخر للاختيارات بعد النقر المزدوج (مثلا) على السجل المطلوب وترى الناتج فورا في قائمة سرد List Box .

أنت في هذا الموضوع مسير وليس مخير عند إنشاء قاعدة بيانات جديدة سيكون امتدادها تلقائيا MDB أما الـ MDE فهو امتداد تكون فيه مخيرا وليس مسيرا في ما إذا أردت أن تحمي البرنامج .

آمل أن يكون التعديل الأخير هو المطلوب تماما . NewEmployees_01.rar

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

لقد عملت التعديل على عجل ولم أفحصه . افحصه جيدا قد يكون به أخطاء . Employees_05.rar

اجابتك غير كافية إذا ممكن تعبئ الجدول بالبيانات ثم رفع للمنتدى مرة أخرى

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

مرفق المثال بعد التعديل التعديل يصلح في حال أن المهنة محصورة في سائق وعامل فقط ، ولكن لو هناك مهن أكثر فستحتاج إلى حل مختلف . ________02.rar

ما فائدة طلبكم هذا ؟ تعامل مع الإستعلام كأنه جدول وانسى أن تصنيفه ككائن وصفه "استعلام" في قاعدة البيانات . يمكن التعديل ولكن ستضطر إلى تعديلات كثيرة وستمس فيها عمل المصمم ، فإذا كنت مصرا على طلبك أحيلك على مصمم المثال ، أما أنا فأعتذر عن التعديل لعدة أسباب أحدها انتفاء الحاجة وعدم قناعتي بصحة ما طلبت . أنا آسف .. فاعذرني .

المطلوب غير واضح ولكني فهمت أنك تريد أن ترى خيارات التصفية في جدول "الرئيسي" بالأسماء وليس بالأكواد عليه قمت بتصميم استعلام يظهر لك الخيارات بالأسماء مع تعديل نوع الحقول في جدول "الرئيسي" حتى يمكن ربطه بجداول الأكواد/الثوابت Filter_By_3_Combobox_02.rar

المرفق بعد التعديل Iqama_06.rar

المثال يجيب على ماتريد وأكثر ..... جرب أكثر من مرة

العفو يا سادة يا كرام

المنتدى يحتوي على مثال جميل لتفقيط قوي يسمى بالتفقيط الشامل ابحث عنه .. ستجده .

تم التعديل كما فهمت وهو توزيع كل صف إلى فريقين متساويين . تبقى مشكلة تكرار المسلسل في الفصل الواحد ، ويمكن حلها بعمل كود لإعادة الترقيم . bd3_02.rar

المثال كان ولايزال يسمح بكتابة التاريخ يدويا ، فهل جربت ؟ المثال الآن مكتمل ، بانتظار ملاحظاتك الأخيرة . ________05.rar

لقد توقعت خطأك من قبل ولكن أحببت أن أتأكد أخي هناك صندوقين للميلادي وصندوقين لأم القرى التواريخ الهجرية ستظهر على اليمين في صندوقين أم القرى والغريب أني كتبت كودا لتصحيح التاريخ في صندوقين التاريخ الميلادي فكيف أتت التواريخ الهجرية في مكان التواريخ الميلادية !!!! "كأنك يابو زيد ماغزيت" أتوقع أنك أدخلت التاريخ عن طريق الجدول وليس النموذج .. أليس صحيحا ؟ أكتب التاريخ يدويا أو أنقر مرتين لطلب التقويم/النتيجة على صندوق الميلادي ثم اختر زر أم القرى ثم أدخل التاريخ ثم انقر موافق مرتين أو أنقر مرتين لطلب التقويم/النتيجة على صندوق أم القرى واكتب التاريخ ثم انقر موافق مرة واحدة فقط . الأمر بسيط ولكنك تحتاج إلى قليل من التركيز .

جربت المثال وهو يعطيني نتائج صحيحة 100% أرجو أن ترفق صورة النموذج وهو يظهر النتائج الخاطئة التي أخبرت عنها .

أخي آسف للتأخير أنا غير متواجد دائما أمام الكمبيوتر .. وقد تراني اختفي بستة أشهر متصلة دون الدخول للمنتدى . يرجي ملاحظة أن جميع الأكواد مأخوذة من الموقع وليست من تصميمي ما عدا الوحدة النمطية CalsAccessna بالإستفادة من الوحدات الأخرى . التاريخ الهجري سوف يظهر تاريخ أم القرى للسنوات من 1300 إلى 1500 وللهجري المعياري خارج هذا النطاق . التنبيه بالألوان عن طريق التنسيق الشرطي ، الأحمر للمنتهي والأصفر للثلاثين يوم قبل الإنتهاء . عساكم من عواده وكل عام وأنتم بخير ________04.rar

المطلوب أن تخبرني هل البرنامج يستخدم بالسعودية أم بدولة عربية أخرى ؟ لا أعتقد السؤال صعب . أخي إذا كان تاريخ النهاية معلوم .. لماذا لا (تدخل/تسجل) تاريخ الإنتهاء بدلا من السنة والشهر واليوم ؟ يا اخي التعديل الأول "هشك بشك" يعني بلا مؤاخذة طريقتك ومعالجتي للمطلوب أي كلام ولن تحصل على الدقة أبدا فأنت تستخدم التقويم الميلادي للهجري وهذا خطأ كبير أنا سأجعلك تستخدم الهجري بتخزين التاريخ الميلادي دون أي مشاكل وبدون أي غلبة وبدون أخطاء فقط يا أخي أعطني أجاباتك على أسئلتي ولك شي سوف يكون على أحسن حال .

يجب أن تحدد التقويم المطلوب ، هل الهجري أم أم القرى ؟ هل تاريخ النهاية معلوم أم أنه مجهول ولابد من إدخال السنة والشهر واليوم ؟ ما الفترة التي تريدها للتنبيه قبل تاريخ النهاية (يعني قبل شهر مثلا) ؟ على كل حال حتى توضح الرؤية لدي تماما سأقوم بالتعديل النهائي وإضافة التنبيه . ________03.rar

حسب ما فهمت أن البرنامج قائم وأن ما أرفقته هو مثال يحاكي الأصل . لذلك حاولت أن لا أغير أي في تركيبة الجدول ولا في الفكرة . صممت لك دالة بسيطة لإخراج تاريخ الإنتهاء كتاريخ هجري كما تاريخ البداية ! ولكن بقيم ميلادية . - لا أنصح بتخزين التاريخ بهذه الطريقة . - يمكنك تخزين التواريخ بالميلادي بعد عملية تحويلها بدوال التحويل . - يمكنك استخدام تقويم أم القرى إذا كنت تعمل بالسعودية . - يمكنك تخزين تاريخ الإنتهاء مباشرة بدلا من تسجيل المدة (سنة - شهر - يوم) ثم حساب تاريخ الإنتهاء . - ما فائدة تفقيط المدة للإقامات ؟!. التعديل في المرفق . Iqama_02.rar