ابوخليل

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

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

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

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

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

في التقرير : في حدث التحميل اذا انت تعرض التقرير قبل طباعته او في حدث الطباعة اذا انت تطبع مباشرة ضع السطر التالي Private Sub Report_Load() Me.Caption = [Forms]![frm_Section]![cbo_Class] End Sub اعجبني جمال العرض في السؤال .. مع ان الطلب يمكن ايضاحه بسطرين او ثلاثة اتمنى نراك قريبا تتصدر الاجابات للأعضاء على هذه الطريقة

تقصد انك تعمل مجلد بجانب قاعدة بيانات الجداول .. ويتم حفظ الملفات في المجلد .. مهما تغير مكان هذه القاعدة بمعنى اوضح .. قاعدة الجداول على الجهاز السيرفر .. وتريد حفظ الملفات من اي واجهة فرعية على السيرفر؟ اذا صح .. نعم يمكن

الملف مضغوط .. يجب فك الضغط اولا .. يبدو انك لم تنتبه لهذا .. او ليس لديك برنامج ضغط وفك الملفات وما دمت حصلت على مرادك فضلا اقفل الموضوع باختيار افضل اجابة

له من اسمه نصيب .. عذاب .. نسأل الله السلامة اول مشاركة لي .. الحل فيها متكامل فقط يضع في اعلى الكود او اسفله : سطر اضافة سجل جديد

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

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

البحث وتعديل درجات8.rar

شكرا للمشاركة اخي ابو بسملة تفضل تعديل كامل على الكود مع المرفق Dim db As Database Dim td As TableDef Set db = CurrentDb() For Each td In db.TableDefs If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue DoCmd.RunSQL "DELETE * FROM " & td.Name & ";" Continue: Next MsgBox " all records in all tables are deleted" Me.Requery Database2.rar

العلاقات بين الجداول .. تأكد منها خاصة .. خاصية تتالي الحذف