رمهان

استاذ عبدالفتاح ماهي المشاكل ؟ وانا اصلا مش مقتنع ان استخدم فكرة الدوران ! ساعود بحل مختصر ان شاء الله

اعتذر عن التاخر والاستاذ جعفر فيه البركة وكفى ووفى وحبيت لو مرفق بسيط نشوف طرق ثانيه تحياتي

جربت .. ذهبت للسجل 4 ثم حذفت ثم مباشره نقرت على زر الاضافة اعطاني رقم 4 هنا تعديل بسيط فقط في الذهاب للسجل الاول Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي يمكن نحتاج Me.Requery في بداية الكود Private Sub ÃãÑ7_Click() Me.Requery DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي

هذا كود لنفس فكرة الكود باول مشاركة ولكن باختصار وتخفيف على الذاكره Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone: rs.MoveFirst If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub وطبعايمكن الاختصار اكثر بفكره اخرى ولكن السؤال : هل ممكن بدون كود ؟ بالتوفيق

اخ وائل الموضوع سهل في طلبك ولكن انا كنتافكر كيف يظهر التقرير او الاستعلام الجدولي عالعموم هذا حسب طلبك الاخير Private Sub week_1_Click() Me.from = DateSerial(Year(dat), Month(dat), 1) Me.to = DateSerial(Year(dat), Month(Date), 7) End Sub Private Sub week_2_Click() Me.from = DateSerial(Year(dat), Month(dat), 8) Me.to = DateSerial(Year(dat), Month(dat), 14) End Sub Private Sub week_3_Click() Me.from = DateSerial(Year(dat), Month(dat), 15) Me.to = DateSerial(Year(dat), Month(dat), 21) End Sub Private Sub week_4_Click() Me.from = DateSerial(Year(dat), Month(dat), 22) Me.to = DateSerial(Year(dat), Month(dat) + 1, 0) End Sub بالتوفيق

جرب استاذ جعفر عند اول فتح للنموذج ثم الذهاب مباشره للسجل عباس ثم دبل كليك والحقيقه اعتقد الاخ لطفي يريد ان الفلتره عند الدبل كليك فخلينا نشوف الاخ لطفي وجد ماريد بملف الاستاذ جعفر فنكتفي تحياتي

معناته ظهرت اشكاليه هنا ادعو لك بالتوفيق ولو تطرح الافكار او الميجانيزم للبرنامج يمكن يكون هناك نقاش وقبل التنفيذ

او Private Sub namex_DblClick(Cancel As Integer) DoCmd.GoToRecord , Me.Parent.Name, acGoTo, Me.CurrentRecord End Sub هنا لم يعد ل bookmark فائده استاذ جعفر فهي ضمنيا مع recordset تقبلو تحياتي ممكن توضح اكثر

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

مبارك استاذ شيفان ماشاء الله عليك قفزات في مستوى المشاركات وبشكل سريع نتمنى لك التوفيق

ماشاء الله بداية الغيث قطره ولكن هناك شي وقف امامي في هذ النقطة عندما اتى الاصدار 32 بت و 64 بت ومع الاصدار 2010 فلا يقبل احدهما الاخر وخصوصا بعد التحويل الى accde او كان mde حبيت اطرح تجرتي في ذلك ولكم اجمل تحية

باذن الله ولكن احتاج تعقيب الاستاذ عبدالفتاح حتى اتاكد وساشارك باذن الله تحياتي

1. موقع الحدث في الحالي لا اعتقد مناسب حتى وان كان هناك جملة شرط ان السجل جديد . فالحدث ينطلق عند كل تنقل وخصوصا لو كبر عدد السجلات : اعتقد ان وضعه خلف الزر جديد هو انسب 2. هل جربت: - حذف السجل الاخير - ضغط زر جديد ثم التراجع ب esc ثم الضغط مرة اخرى - هل جربت حذف السجل الاول وهذا هو الاهم في التعقيب 3. الموضوع اعادة الترتيب ولكن الاقرب هو "استخدام الارقام المحذوفه في الترقيم" : وهنا لابد ان يعلم المستخدم ان ما يضاف اخيرا لن يكون اخيرا بل حسب مكان ماحذف اخيرا تقبل تحياتي

لي تعقيب بسيط جدا وبعد اذنك استاذ عبدالفتاح

حياك الله اخي محمد اعتقد المطلوب يختلف قليلا . . تكرما فتح موضوع جديد وبمثال مصغر به المطلوب ليتم التطبيق عليه تحياتي

لو كانت زابطه اصلا في التصميم فانا حستخدم الكود استاذ عبدالفتاح لانه حتما هناك متغيرات ومعايير اخرى مثل حسب اليوزر واصدقك القول ان اغلب البرامج التي اعملها تكون الاستعلامات في الكود مايسمى onfly . فانا ارشح الكود ويمكن تكون جلب المعايير ليس ب dlookup وانما بقيم موجوده بنموذج سواء في مربع سر او اي عنصر اخر المهم تكون من النموذج وحسب معايير اخرى تحياتي

تمام استاذ جمال نفهم ان هناك محرك انجن وسيط فياليت لو تشرح اكثر واعتقد انت بتفكر في لو المساله جدول او جدولين لو عندي نظام به 70 جدول وعمليات استيراد لسجلات 1000 سجل مع حذف وتعديل بعض البيانات وتقارير وايميلات بترسل تلقائي ووووو وبعدين عايزيزن قبل كل شي هل كل المستخدمين عندهم نفس الايميل اي نفس الحساب ؟ عالعموم احنا عايزين نشوف وحتما حنستفيد ولك جزيل الشكر

اعتقد انه يمكن كذلك Me.TextBox.setfocus DoCmd.RunCommand acCmdCopy بالتوفيق

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

باذن الله اشوف الموضوع واعتقد هو كيفية استخدام ال eval بشكل اصح والشكر موصول لك استاذ عبدالفتاح تحياتي

عن طريق الكود مشت معانا عن طريق تصمبم الاستعلام حشوف كيف جرب Sub gg() xsql = "select * from t1 where " & DLookup("[fieldn] & [my_parameter]", "tbl_parameters", "[select_Parameter] =true") CurrentDb.QueryDefs("qq1").SQL = xsql DoCmd.OpenQuery "qq1" End Sub تحياتي متاكد ياباشا ؟؟؟؟

ممكن مرفق مطبق به ممكن المرفق ؟

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

هذا الذي كنت عايز اسولف معاك فيه .. وهو ان يكون لدي جدول به ثلاث حقول اسم الحقل والمعيار والقيمه وها انت ماشاء الله وبيقول المثل الحر تكفيه الاشاره بالتوفيق

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