ابوخليل

توليد رمز الاسم من الثنائي وحتى السداسي 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

الحمد لله على سلامتك اخي خليفة .. وعودا حميدا

تفضل عملت لك دالة تعمل توليد للرمز الذي تريده ( حرفين من كل اسم ثلاثي) الدالة سهلة يمكنك ان تعدل عليها حسب رغبتك ملحوظة : حتى تعمل الدالة على الوجه الأكمل يجب تنظيف حقل الاسم من المسافات الزائدة .. ويفضل ايضا حذف المسافة بعد كلمة عبد ، والله يعينك باقي نور الدين واشباهه 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- اتصور انه اسهل واخف واسرع حينما اكتب الاسم واسم الاب وابحث عنهما من ان اكتب تجميعة حروف من الاسماء من الامثلة : الاسم محمد علي شمس الدين يمكنني البحث بـــــــ علي شمس .. اي بالاسم الثاني وجزء من الاسم الثالث

مشكلتك في الفرز انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس .. طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا ويضعه في الأعلى --------------------------------------------------------------------------------- كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار والتاريخ مؤكد سوف يتجدد حسب السجل الجديد بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر stock19 .rar

يمكن ذلك ولكن يلزم اخراج مصدر التقرير ليصبح استعلاما ظاهرا لوجود معايير به يلزم ان تسبق تجميع الارصدة 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 النتيجة اكبر من التعويض اذا يستحق كامل التعويض لا نستغني عن المقترحات والافكار منكم احبتي واخواني

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

بعد اجالة الفكر .. عدلت عن فكرة المالك او تدخل الموظف .. وافكر بطريقة تكون خفيفة وآلية ما لون بالاحمر هو ما كنت افكر به عند طرحي للموضوع : ولكن كما ذكرت صرفت النظر عن التدخل البشري .. واريد ان يتم الأمر آليا عن طريق الزبون الفكرة لم تتبلور بعد ------------------------------------------------------------------------------------------ قبل ان ابدأ بتنفيذ الفكرة سوف اطرح الخطوات لأستنير بآرائكم وأنهل من علمكم