ابوخليل
-
Posts
12986 -
تاريخ الانضمام
-
Days Won
242
Community Answers
-
ابوخليل's post in مطلوب اظهار درجات اختبار المادة بدلا من الوان المادة was marked as the answer
تفضل
تحقيق طلبك باقل ما يمكن من ادوات
Data121.rar
-
-
ابوخليل's post in تغيير صورة ( شعار / صورة / غير ذلك ) في النماذج والتقارير was marked as the answer
في حدث تحميل او فتح : النموذج / التقرير اكتب
Me.picture= "مسار الكليشة" على اعتبار الكليشة ستكون خلفية للخطاب
-
ابوخليل's post in اضافة مادة للمجموع was marked as the answer
هذا مثال : قم بنقل الاستعلام الى برنامجك ثم شغله
بعد التحديث والتأكد قم بحذفه فقد انتهت مهمته
وعدل يدويا في نموذج التحكم بالدرجات
Database1.rar
-
ابوخليل's post in احصاء بنوع الوظيفة was marked as the answer
تفضل هذه احدى الحلول
لاحظ ان الاستعلام الجدولي يجب ان يشتمل على 3 حقول فأكثر
لذا اضفت حقل للجدول كمعرف للجنة
احصاء2.rar
-
ابوخليل's post in عمل رصيد تراكمي لحسابات العملاء was marked as the answer
جربي الآن
اضفت معيار معرف العميل في مصدر بيانات التقرير Bill_info subreport
databasebalance4.rar
-
ابوخليل's post in تصغير ارتفاع مربعات النص في تقرير بناء على شرط عدد السجلات was marked as the answer
السلام عليكم
ومشاركة مع اخي @Foksh
اضف هذا السطر الى جملتك البرمجية
Me.Datail.Height = Me.Datail.Height * 0.5 لاحظ فيما لو اردت تغيير نسبة ارتفاع الحقل ... نسبة مقطع التفاصيل ستكون مماثلة لنسبة مقاس ارتفاع الحقل
BASE_F.rar
-
ابوخليل's post in حفظ معلومات بالجدول was marked as the answer
وهذا تعديل طفيف عند النقر على لست الأب .. سيظهر الابناء مع ارقام امهاتهم
اضفت رقم الأم الى الكود
CNA_8.rar
-
ابوخليل's post in امكانية الارتباط بقاعدة الجداول عند تغيير الامتداد ( اللاحقة) was marked as the answer
انا اعتراضي على العنوان : اكسس والتعامل مع ملفات Dll
مهما غيرت امتدادها فاكسس ينظر الى ما بداخلها ويعرف انها جداول اكسس
من سنوات عديدة مضت ولا زلت وانا استخدم هذه الطريقة .. ليس من باب الحماية بل من باب منع العبث
ويمكننا تسميته تمويه وليس حماية
اي ان المستهدف هو الشخص المتصفح المستعجل الذي يفتح الملفات بحثا عن شيء ما . مثلا يريد فتح واجهات البرنامج فيخطيء ويفتح قاعدة الجداول
-
ابوخليل's post in مساعدة في مربع تحرير was marked as the answer
من خصائص مربع التحرير / تنسيق
اجعل عدد الاعمدة 2 أو ثلاثة بدلا من 1
333.rar
-
ابوخليل's post in ضبط درجة ايام الحضور للصفين الأول والثاني was marked as the answer
انتهيت الى هذا
بفضل الله .. ثم بمشاركتكم تولدت الأفكار والحلول
Database29.rar
-
ابوخليل's post in رسالة خطأ (لا يمكن الذهاب إلى السجل المحدد) was marked as the answer
مشاركة مع اخي فادي للفائدة العامة
مشروع تأجير المركبات :
1- تكون المركبة هي رأس الهرم في المشروع ، اما العميل فهو فرع
سبب بسيط بديهي :
المركبة يتناوب عليها الكثير من العملاء وقد يستأجرها عميل طارىء مرة واحدة فقط
المركبة هي المصدر المالي للمشروع ويجري عليها العمليات المختلفة : تحصيل اجور/ نفقات صيانة / تأمين / مبالغ للوقود / اجرة سائق ان وجد ..... الخ
-
ابوخليل's post in تعديل علي ملف الدرجات was marked as the answer
طريقتك في ادخال الغياب ضمن جدول الدرجات مقبولة بل جيدة .. وايضا تسهل عليك الرصد
نأتي لشرح التعديل حسب طلبك فارجو القراءة بتمعن وحرص :
اولا :
1- جدول Tbl_materil اساسي ومهم جدا ضبطه بالصورة الصحيحة
وانا قمت بضبطه حسب اجابتك اعلاه
فالمادة اما ان تكون خاصة بالصفوف العليا او خاصة بالدنيا او مشتركه بينهما
ايضا الدرجة ستبقى كما هي عمود للعليا وآخر للدنيا
2- جدول الصف يتم ضبط النوع رقم 1 للدنيا ورقم 2 للعليا
ثانيا : النماذج
1- نموذج الرأس : اظهرت لك الحقل المخفي safType من اجل تطلع على التغيير عند التغيير في مربع الصف
2- مربع الصف عند الاختيار يصبح قيمة safType تساوي 1 للصفوف الدنيا و 2 للصفوف العليا
3- حقل safType نستخدمه كمعيار في استعلام مربع المواد لعرض المواد الخاصة بالدنيا او العليا + رقم 3 لأن رقم 3 يمثل المواد المشتركة بينهما
الى هنا اعتقد كل شيء واضح تماما .
نأتي لشرط عدم ادخال قيمة اعلى من الدرجة المقررة
تم الاعلان عن متغير رقمي عام varHiDarjh تجده في الوحدة النمطية
في نموذج الرأس وعند حدث بعد التحديث لمربع المواد عملنا هذا
If Me.safType = 1 Then varHiDarjh = Nz(Me.mater.Column(5), 0) Else varHiDarjh = Nz(Me.mater.Column(4), 0) End If المتغير يأخذ الدرجة من مربع المواد .. لأن الدرجات موجودة في الاستعلام مصدر المربع سواء الدنيا او العليا ، فالاولية في العمود الخامس بينما درجة الصفوف العليا في العمود الرابع
الآن المتغير يحمل القيمة وجاهز لاستخدامه
نذهب الى النموذج الفرعي والى حقل الدرجة deg لنطلع على الحدث قبل التحديث سنجده كالتالي :
If deg.Value > varHiDarjh Then Beep MsgBox "القيمة اكبر من المقرر" واعتقد ان هذا واضح ولا يحتاج شرح
البحث وتعديل درجات4.rar
-
-
ابوخليل's post in ممكن تصحيح هذا الكود, عند الانتقال للسجل بشرط ؟ was marked as the answer
Private Sub Form_Open(Cancel As Integer) Dim i As Boolean i = Nz(DLookup("Name_ID", "Name_Tbl", "Name_ID=" & crMyfrmId), 0) If i = True Then DoCmd.GoToRecord , , , crMyfrmId Else DoCmd.GoToRecord , , acNewRec End If End Sub crMyfrmId هو متغير عام يحمل رقم السجل
Tracking test to المنتدى.rar
-
ابوخليل's post in مساعدة فى حساب الحافز was marked as the answer
خطأ خفي استنفد وقتا طويلا جميع محاولاتي باءت بالفشل ، حتى انني ابتعدت عن الحاسبة اتمشى واجدد افكاري
وفي النهاية اكتشفته ..
انت تكتب الابتدائي هكذا الابتدائى وهو خطأ حيث نهابة الكلمة ياء وليست ألف مقصورة
المهم تم ضبط الاستعلام
تجد نموذجا جديدا يشتمل على زر وخلفه كود يستند الى الاستعلام .. هذا الزر يحدث بيانات الجدول الجديدة والقديمة معا في اي وقت تريد
يمكنك نقل الزر وكوده الى اي نموذج تريد
ملحوظة : المدير والوكيل يجب ان تكتب في حقل المرحلة .. مدير او وكيل ولا تتركه خاليا .. طبعا من خلال تسجيل جديد سيقوم اكسس بكتابته
جرب ووافني بملاحظاتك
برنامج حساب الحافز 6.rar
-
ابوخليل's post in منع ادخال الوقت اذا كان هناك حجز مسبق was marked as the answer
بعد المحاولة والتجربة خرجت بالنتائج التالية :
1- اي عملية حجز يراد التعديل عليها أو تحديثها الأفضل ان يتم الغاؤها .. اي حجبها فلا تظهر في بحث الحجز .. سواء كان القصد استبدال الزبون او تغيير وقت الحجز .
2- الإلغاء او الحجب عبارة عن حقل نعم/ لا يتم تفعيله عند الإلغاء
بعد حجب الموعد :
البديل الجديد او الزبون الذي يريد تغيير وقت الحجز يتم تسجيل حجز جديد له
في المرفق ادناه : نموذج خاص بالإلغاء
لن تظهر الملاحظات الا بعد التجربة المكثفة
مواعيد دخول وخروج3.rar
-
ابوخليل's post in كود ايقاف عمل النموذج بعد عدد معين من الادخالات was marked as the answer
ما تزعقش ياخوي يا عبداللطيف 😫
تفضل جرب
ادخل اكثر من 3 سجلات وشوف النتيجة
بعد ادخالك 4 سجلات اغلق النموذج ثم افتحه من جديد
الافضل كتجربة : كل سجل تدخله اغلق النموذج ثم افنح من جديد حتى تصل الى السجل الرابع .. كي تتأكد من جودة الحماية
ممنوع دخول الخبراء ..
اوفسنا كود ايقاف2.rar
-
ابوخليل's post in برجاء المساعدة في برمجة شيت بصمة حضور الموظفين was marked as the answer
ما يتم استيراده يبقى ولا يتم حذفه بل يزيد بشكل تراكمي .. فقط لا يقبل التكرار .. اي لا يمكن ان تجد موظف مكرر في تاريخ يوم محدد
المهم والعمدة هو المصدر .. اي مصدر البيانات الذي هو مصنف اكسل
واشتغل وحاول .. وفقك الله وسددك
-
-
ابوخليل's post in اظهار سجلات التصفية was marked as the answer
طيب على راحتك
نحن نتعلم .. لنتجاوز أخطاءنا .. ونطبق الطرق السليمة كي نطور انفسنا
كتابة الحقول بحروف عربية ستتعبك كثيرا ويصعب عليك التعلم ..
تفضل :
تم تحقيق طلبك كما تريده بالضبط من دون اي تعديلات على المرفق..
If Me.TXT = "مقيم" Then Me.Form.Filter = "مقيم like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه كفيل" Then Me.Form.Filter = "[لديه كفالة] like '" & "نعم" & "'" Me.Form.FilterOn = True ElseIf Me.TXT = "لديه اقامة" Then Me.Form.Filter = "[لديه اقامة] like '" & "نعم" & "'" Me.Form.FilterOn = True End If
test4.rar
-
ابوخليل's post in إنشاء رمز للطلاب وفق معايير محددة was marked as the answer
معالجة جميلة استاذ فادي
وهذه محاولة مني لإدراج الترقيم في الجدول
Dim rs As Recordset Dim i As String Dim ii As Integer Dim x As Integer Set rs = CurrentDb.OpenRecordset("Query1") rs.MoveLast rs.MoveFirst i = Me.GRADE1.Column(1) ii = Me.GRADE1.Column(2) Do While Not rs.EOF rs.Edit rs!code_stagiere = i & (ii + x) rs.Update x = x + 1 rs.MoveNext Loop
baseAA.rar
-
ابوخليل's post in كود او استعلام لتحديث تاريخ النفاد دفعة واحدة was marked as the answer
تفضل
New.rar
-
ابوخليل's post in عدم امكانية التعديل على البيانات بعد انتهاء اليوم was marked as the answer
مشاركة مع اخي الاستاذ عمر
حل آخر باستخدام التنسيق الشرطي
sick2.rar
-
ابوخليل's post in تجاوز رسالة التنبيه was marked as the answer
عليكم السلام
اعتقد لو وضعت هذا السطر في اعلى الكود سيتجاوز الخطأ ولن تظهر الرسالة ، ولكن لن يتم التحديث على الحقل
On Error Resume Next