-
Posts
12,369 -
تاريخ الانضمام
-
Days Won
230
ابوخليل last won the day on نوفمبر 17
ابوخليل had the most liked content!
السمعه بالموقع
6,400 Excellentعن العضو ابوخليل
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
طالب علم
-
الإهتمامات
تحليل البيانات والتصميم
اخر الزوار
24,207 زياره للملف الشخصي
-
طلب مساعدة في تصميم جدول تقييم أداء الموظفين
ابوخليل replied to moho58's topic in قسم الأكسيس Access
تفضل baseM_11 .rar -
طلب مساعدة في تصميم جدول تقييم أداء الموظفين
ابوخليل replied to moho58's topic in قسم الأكسيس Access
اخي العزيز محمد يجب ان تتأكد من مثالك قبل رفعه .. لتلافي الاخطاء والنقص ايضا يجب اختصار الكائنات فلا تضع الا ما تحتاج للتعديل عليه مثالك المرفق لا يوجد به اكواد لفتح التقارير فقد تم حذفها .. ايضا تم حذف اكثر من مكتبة من مراجع القاعدة على كل حال تم عمل طلبك بشكل احترافي لن يخطر على بالك : 1- الاقتصار على تقرير واحد يقوم بالمهمة بدلا من 4 تقارير 2- وضع ضابط رسالة تنبيه عند عدم وجود بيانات حينما تتغير المدخلات في نموذج التقارير 3- التعديلات : - اضافة وحدة نمطية نيابة عن معيار النموذج المباشر (انظر الاستعلام) - اضافة دالة تحكم بمصدر بيانات التقرير ( تجدها في محرر التقرير ) baseM_10 .rar -
توليد رمز الاسم من الثنائي وحتى السداسي Dim rs As Recordset Dim na1, na2, na3, na4 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(2), 1, 2) & Mid(Split(rs!AsmGded, " ")(3), 1, 2) & _ Mid(Split(rs!AsmGded, " ")(4), 1, 2) & Mid(Split(rs!AsmGded, " ")(5), 1, 2) rs.Update rs.MoveNext Loop End Sub نموذج بحث6.rar
-
هذا هو الذي يعمله الكود ، ما المشكلة ؟ على فكرة : وحتى تكون على بينة .. قمت بازالة المعايير من الاستعلام ( الكود يجب ان يعمل على كامل السجلات).. بالنسبة للبحث اعمل استعلاما آخر مصدره الجدول مباشرة الكود واضح .. يأخذ الاسم الجديد من الاستعلام AAAَQ.. ويعالجه كرمز ويضيفه في الجدول TAAA
-
تفضل توليد من الاسم سواء كان ثلاثي او ثنائي الكود يأخذ الاسم من حقل الاستعلام ويضيفه في حقل الجدول Dim rs, rst As Recordset Dim na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF na3 = Split(AsmGded, " ")(2) rst.Edit If IsNull(na3) = False Then rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) Else rs!Rmz = Mid(Split(rs!AsmGded, " ")(0), 1, 2) & Mid(Split(rs!AsmGded, " ")(1), 1, 2) & Mid(Split(rs!AsmGded, " ")(2), 1, 2) End If rs.Update rs.MoveNext Loop
-
ابوخليل started following هل يمكن كسر كلمة سر قاعدة بيانات , @@@ مساعدة في رسالة غلق النموذج و فتحه @@@ , تعديل نموذج بحث و 1 اخر
-
@@@ مساعدة في رسالة غلق النموذج و فتحه @@@
ابوخليل replied to nabilbibo2255's topic in قسم الأكسيس Access
الحمد لله على سلامتك اخي خليفة .. وعودا حميدا -
تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("TAAA") rs.MoveLast rs.MoveFirst Do While Not rs.EOF rs.Edit rs!Rmz = Mid(Split(rs!Asm, " ")(0), 1, 2) & Mid(Split(rs!Asm, " ")(1), 1, 2) & Mid(Split(rs!Asm, " ")(2), 1, 2) rs.Update rs.MoveNext Loop نموذج بحث 2.rar
-
ما دمت مصر على رغبتك .. فالرأي المنضبط الذي لا غبار عليه ان تكتفي بالاسم الاول والعنوان ( 4احرف ) بكذا تتجاوز مسألة الفراغات ومسألة الاسماء المركبة .. والنقص في كامل الاسم مع اني ارى مشكلة في ال التعريف في العنوان بحيث يجب عمل تجاوز لها عند توليد الرمز اتمنى ان يروق لك هذا الاقتراح
-
عليكم السلام ورحمة الله وبركاته ماذا تصنع في الاسم الذي على هذه الهيئة : عبد الباسط عبد الصمد عبدالمقصود الاسم الاول والثاني فراغ بعد كلمة عبد ، وبين الاسم الثاني والثالث فراغين ، والاسم الثالث لا يوجد فراغ بعد كلمة عبد 1- مسألة اكثر من فراغ بين الكلمات امرها هين وبضغطة زر يمكن حذف الفراغ الزائد على مستوى قاعدة البيانات 2- ايضا الفراغ بعد كلمة عبد لو اردت حذفه يمكن ذلك بضغطة زر ايضا ، ولو اردت العكس ايضا يمكن اي تبحث عن كلمة عبد واي كلمة لا يوجد بعدها مسافة يضيف المسافة 3- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء من الامثلة : الاسم محمد علي شمس الدين يمكنني البحث بـــــــ علي شمس .. اي بالاسم الثاني وجزء من الاسم الثالث
-
إنشاء تقرير تتبع رصيد الأصناف عند كل حركة(تاريخ) في برنامج المخازن
ابوخليل replied to moho58's topic in قسم الأكسيس Access
مشكلتك في الفرز انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس .. طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا ويضعه في الأعلى --------------------------------------------------------------------------------- كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار والتاريخ مؤكد سوف يتجدد حسب السجل الجديد بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر stock19 .rar -
إنشاء تقرير تتبع رصيد الأصناف عند كل حركة(تاريخ) في برنامج المخازن
ابوخليل replied to moho58's topic in قسم الأكسيس Access
يمكن ذلك ولكن يلزم اخراج مصدر التقرير ليصبح استعلاما ظاهرا لوجود معايير به يلزم ان تسبق تجميع الارصدة stock17 .rar -
أنا متأكد ان الحلبي يسأل من اجل حماية نفسه .. وبياناته .. من باب العلم عن نفسي ومن باب التعلم حاولت مع امتداد mdb ونجحت ولم اقدر على accdb .. لذا اعتبرها اكثر أمانا
-
تمام عليك اخي فادي .. حول فكرتك نلف وندور سأقوم بشرح الخطوات : لدينا ثلاثة انواع من الاشتراكات : النوع الأول ذهبي ( مفتوح) بمعنى يتم حساب ايام الحضور فقط .. النوع الثاني فضي (جزئي ) اي يعوض عن جزء من ايام الغياب .. لنتفق على 3 ايام عن كل شهر النوع الثالث برونزي ( مغلق ) اي يحسب اشتراكه حسب التاريخ حيث لا يوجد تعويض ثلاثة اصدقاء اشتركوا في يوم واحد لمدة شهر .. وكل واحد منهم اشترك بنوع من هذه الانواع .. وسنمنحهم اسماء بنوع اشتراكاتهم الاصدقاء الثلاثة حضروا العشر الأيام الأولى ثم قرروا ان يقوموا برحلة صيد او رحلة بحرية لمدة 10 أيام .. يعني غابوا 10 ايام في اليوم 21 حضروا جميعا واستمروا بالحضور الى نهاية الشهر . العضو الذهبي سيتبقى له 10 ايام كرصيد .. حسابه يتم حسب ايام الحضور . ولم يحضر الا 20 يوما العضو البرونزي انتهى اشتراكه .. حسابه يتم حسب التاريخ : من/ الى .. نأتي الى العضو الفضي وهو محل النقاش .. الآن يستحق ثلاثة ايام كتعويض .. ولكن لنفترض ان شخصا ما غاب يوما واحدا فقط خلال الشهر .. هل سيتم منحه 3 ايام طبعا لا .. سيعوض عن يوم واحد فقط والعملية تتم بمقارنة ((( الحصة المعتمد في التعويض ) + الايام التي حضرها ..))) من جهة .. مع ايام الاشتراك المستحقة (شهر) بعملية حسابية وشرط عدم تجاوز عدد ايام الشهر يتم تعويضه فعندما نقول انه غاب يوما واحدا فستتم الحسبة على النحو التالي : عدد ايام التعويض النظامية = 3 ايام عدد ايام الحضور =29 عدد ايام الشهر 30 يوما 3 +29 = 32 .. .. الدالة سوف ترجع النتيجة الى 30 ولكن 30 -29 = 1 اذا يتم تعويضه يوما واحدا ----------------------------------- لو حسبناها على الصديق البرونزي فسوف تتم هكذا : ايام التعويض=3 ايام الحضور = 20 عدد ايام الشهر=30 3+20=23 ولكن 30-23 = 7 النتيجة اكبر من التعويض اذا يستحق كامل التعويض لا نستغني عن المقترحات والافكار منكم احبتي واخواني