أحمد مبارك الحيقي

وعليكم السلام ورحمة الله... الخطأهنا كما لا بد قد لاحظت أخي: SF.Form.AllowAdditions = Me.AllowAdditions وسببه أن النموذج الفرعي في النموذج 1 غير مربوط بأي مصدر (بأي نموذج) ولذلك لا يستطيع الأكسس التعرف على المقصود بالكائن SF.Form... الحل هو تعيين الخاصية sourc…

اجعل الكود بالشكل التالي: If Me.Texte0 >= Me.Texte4 Then Me.Texte6 = Me.Texte4 Else Me.Texte6 = Me.Texte0 End If لأنه كان يفترض أن Else بدون If بسبب اكتمال العبارة الأولى (برأيه) في السطر الأول... والله أعلم

الإخوة الكرام... تمهيداً للحلقة القادمة عن مخططات الكائنات والعلاقات Entity-Relationship Diagram أو اختصاراُ ERD، أرجو المشاركة بالرد على هذا السؤال: هل تعرف ERD؟ إن كان كذلك، ما هو مفهومك عنه؟ في انتظار المشاركة لمن تيسر له... أسأل الله أن يفتح علينا جميعاً..…

وعليكم السلام ورحمة الله وبركاته... بالفعل فكرة مميزة... شكراً لك.

وعليكم السلام أخي... هذه المشاركة تحوي نفس الفكرة... أرجو متابعتها حتى النهاية... /index.php?showtopic=199192

أخي العزيز محمد... لا داعي للقلق أبداً فليست هناك مشكلة على الإطلاق، وإنما هو خطأ في الإدخال... الكليات وإن تشابهت أسماؤها لا ينبغي أن يكون لها نفس الأب، وإنما ينبغي أن نختار لكل منها ما يناسبه من أب، وهذا هو الخطأ الذي تم في الإدخال، إذ تم اختيار كلية التجارة…

وعليكم السلام ورحمة الله وبركاته... أعتذر أخي بسبب خطأ في العبارة السابقة (نسيت إضافة 1 إلى الطرف الأيمن)، وعلى كل حال، هذا مثال يوضح الفكرة... DailySerial.rar

وعليكم السلام ورحمة الله وبركاته... لا بد أخي أن يكون لديك في الجدول حقل يدل على التاريخ، فتكون المسألة في غاية السهولة بالاستعلام عن أكبر رقم بتاريخ اليوم، وتضيف واحداًً... شيء كالتالي: serial = Nz(DMax("serial", "table", "xxxDate = #" & Date() & "#"), 0) وال…

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

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

أين بداية الــ LOOP؟

وعليكم السلام ورحمة الله... جرب فقط أن تبعد الــif 'If IsNull(ITEM_NO) Then ITEM_NO = (DLookup("code", "units", "units = '" & DES & "'") * 1000) + Right(Nz(DMax("item_no", "inventory", "des = '" & DES & "'"), 0) + 1, 3) 'End If

وأنا أعود وأقول: لا مجال للإثقال هنا، بالعكس، يسرني ويشرفني أن نتعاون معاً في هكذا مسائل... أرجو منك الاطلاع على الملف المرفق فإن فيه فكرة، لاحظ رجاء خاصية tag للحقول المعنية... في انتظار الرد (بدون أي ثقل).... qualification_testUP2.rar

وعليكم السلام ورحمة الله وبركاته... أرجو تعديل الكود إلى التالي: If IsNull(ITEM_NO) Then ITEM_NO = (DLookup("code", "units", "units = '" & DES & "'") * 1000) + Right(Nz(DMax("item_no", "inventory", "des = '" & DES & "'"), 0) + 1, 3) End If

ولكن السؤال مازال قائماً: كيف نعرف أن الصرف الفلاني تم للموظف الفلاني؟

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

رقم الحلقة (22) كنت قد كتبت هذه الحلقة قبل أن أرى مشاركة أخي محمد الأخيرة، وحين هممت بوضع الحلقة فوجئت بهذا الاقتراح الذي لا أستطيع أن أصفه بأقل من أنه عبقري ومناسب جداً... من قال بأنك لست مديراً بارعاً بالفعل؟ لا أدري كيف لا تخطر ببالي مثل هذه الأفكار، لكن من…

وعليكم السلام ورحمة الله وبركاته... على ذكر الدوال، هذه طريقة يمكن بها تفصيل المؤهل الكامل واحداً واحداً، باستخدام الدالة المريحة split... أضفت زراً إلى الملف المرفق السابق لتوضيح العملية، ويمكن استخدامها (على الطاير) وقت الحاجة أو استخدامها في تعبئة حقول إن ش…

وعليكم السلام ورحمة الله وبركاته أخي العزيز محمد... ولكن -من باب النقاش- أليس لدينا بالفعل تفاصيل المؤهل في الحقل المضاف ولو بشكل متصل؟ باستخدام هذا الحقل نستطيع استخراج التقارير المطلوبة، على سبيل المثال إذا تم طلب كل أصحاب المؤهل العالي يتم البحث في هذا الحق…

وعليكم السلام ورحمة الله أرجو أن يكون التعديل المرفق مفيداً، ما تم هو تعديل خاصية مصدر السجل للـ combobox إلى: SELECT [Courses].[Field1] FROM [Courses] where field1 not in (select tbl_coursename from emp_courses where tbl_id = forms!emp!tbl_id); مع إعادة استعل…