ghassan1959 قام بنشر نوفمبر 4 قام بنشر نوفمبر 4 السلام عليكم اساتذتي ... انا مشترك قديم في الموقع ولكن لاسباب انقطعت لفترة طويلة محتاج مساعدتكم في عمل استعلام بالاكسس تكون الخانة الاول ارقام متسلسلة للمعلومات المعروضة ولكم فائق الشكر ويا ريت بالتفصيل .. اسم الجدول . قوانين
ابوخليل قام بنشر نوفمبر 4 قام بنشر نوفمبر 4 على اعتبار اسم الجدول tbl1 وهذا الجدول يحتوي على ترقيم تلقائي اسمه id ادرج ضمن الاستعلام الحقل id والصق في حقل جديد في الاستعلام هذا السطر : urAoutoNm: DCount("ID";"tbl1";"ID <=" & [ID]) 2
Foksh قام بنشر نوفمبر 4 قام بنشر نوفمبر 4 وعليكم السلام ورحمة الله وبركاته ,, وهذه مشاركة مع ومعلمي الحبيب @ابوخليل أيضاً . إذا أردت الحصول على ترقيم تسلسلي منتظم بغض النظر عن الفلاتر أو عوامل التصفية داخل الاستعلام سيتوجب عليك استخدام اسلوب الاستعلام المتداخل أو الفرعي ( استعلام داخل استعلام ) وهنا الحاجة لإرسالك ملف . هذا من وجهة نظري والله أعلم 1
ghassan1959 قام بنشر نوفمبر 4 الكاتب قام بنشر نوفمبر 4 الاستاذ الفاضل ابو خليل شكرا لحضرتك على الردجربت عدة مرات ولم انجح في ذلك .. هل من الممكن ارسال الملف مع التقدير والاحترام
Moosak قام بنشر نوفمبر 4 قام بنشر نوفمبر 4 32 دقائق مضت, ghassan1959 said: هل من الممكن ارسال الملف مع التقدير والاحترام أخي العزيز غسان @ghassan1959 🙂 .. قم أنت بإرسال ملفك وفيه الجدول والاستعلام المطلوب ترقيمه بحيث يكون فيه كم من البيانات 🙂 1
ghassan1959 قام بنشر نوفمبر 4 الكاتب قام بنشر نوفمبر 4 شكرا استاذي حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال واكون شاكر لكم جهودكم مع الشكر والتقدير
Foksh قام بنشر نوفمبر 4 قام بنشر نوفمبر 4 3 دقائق مضت, ghassan1959 said: حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال لا حاجة لإرسال المشروع كاملاً .. فقط الاستعلام والجداول الخاصة به ( بدون النماذج أو العناصر التي ليست لها علاقة في المطلوب ) .
ghassan1959 قام بنشر نوفمبر 4 الكاتب قام بنشر نوفمبر 4 السلام عليكم هذا هو الملف شكي وتقديري للجمبعghassan.accdb
Moosak قام بنشر نوفمبر 5 قام بنشر نوفمبر 5 وعليكم السلام أخي غسان .. مع أن الملف بدون بيانات ولكن عبأته لك ببيانات عشوائية .. وطبقت عليه فكرة والدنا العزيز @ابوخليل 🙂 والدور على معلمنا الحبيب @Foksh ليطبق فكرته 😊👌 ghassan.accdb 3
Foksh قام بنشر نوفمبر 5 قام بنشر نوفمبر 5 6 ساعات مضت, Moosak said: والدور على معلمنا الحبيب @Foksh ليطبق فكرته 😊👌 أهلاً مهندسنا الغالي .. بدايةً صدقاً ليس تعدياً ولكن كانت فكرتي ان يتم انشاء استعلام مبني على استعلام فرعي بحيث عند الفلترة على سبيل المثال في المرفق الذي وضعه أخونا غسان - ( مع إنه فارغ ولا بيانات ) وجزاك الله خيراً على طرحك للبيانات - يتم الترقيم حسب القيم الموجودة في الاستعلام النهائي . لذا في مديول بسيط نضع الكود التالي :- Dim Counter As Long Function GetSequentialNumber() As Long Counter = Counter + 1 GetSequentialNumber = Counter End Function وقمت بانشاء نموذج بسيط يحتوي مربع نص كمثال على الفلترة بالتاريخ في الحقل "تاريخ المباشرة" وزر لتنفيذ الأمر بأن يتم انشاء استعلام ( داخلي ) واستعلام مبني على الاستعلام الداخلي لعد السجلات وإدراج الترقيم التسلسلي في حقل جديد . في الزر ، وضعت هذا الكود ليقوم بالمهمة :- Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim sql As String Dim userCriteria As String Dim whereClause As String If Not IsNull(Me.Txt_Date) And Trim(Me.Txt_Date) <> "" Then userCriteria = Trim(Me.Txt_Date) whereClause = "WHERE M.[تاريخ المباشرة] = '" & Format(dateValue(userCriteria), "dd-mm-yyyy") & "'" Else whereClause = "" End If sql = "SELECT (SELECT COUNT(*) FROM Table1 AS T " & _ "WHERE T.ID IN (SELECT ID FROM Table1 AS M " & _ whereClause & " ) AND T.ID <= M.ID) AS [رقم تسلسلي], " & _ "M.ID, M.[اسم الموظف], M.[اسم الدائرة], " & _ "M.[تاريخ المباشرة], M.[العنوان الوظيفي], " & _ "M.[الدرجة الوظيفية] " & _ "FROM Table1 AS M " & _ whereClause & ";" Set db = CurrentDb On Error Resume Next db.QueryDefs.Delete "Foksh" On Error GoTo 0 Set qdf = db.CreateQueryDef("Foksh") qdf.sql = sql qdf.Close DoCmd.OpenQuery "Foksh" حيث يتم انشاء استعلام داخلي ( مع أو بدون المعيار ) ، ثم يتم انشاء استعلام جديد Foksh ويتم فتحه ليتم ترقيم السجلات بتسلسل حسب عددها وليس حسب رقمها في الجدول . الملف المرفق : Ghassan - 1.accdb 1
ghassan1959 قام بنشر نوفمبر 6 الكاتب قام بنشر نوفمبر 6 السلام عليكم وطيب الله انفاسكم الشكر والتقدير لكافة الاساتذه المحترمين على جهودهم اود ان ابين ما يلي انا عملت جدول وبه ملف كبير من المعلومات المختلفة حاولت ان اعمل استعلام لتحديد وفرز المعلومات المطلوبة واعرف عددها الكلي في الجدول الرئيسي ... وعند عمل الاستعلام تظهر نفس تسلسلاتها في الجدول وهذا لا يحقق ما اريده لذلك انا طلبت من حضراتكم ان يكون تسلسل الاستعلام يختلف عن ما موجود بالجدول ويضمن لي معرفة عدد الفقرات الموجودة ارجو المساعدة مع التقدير
Barna قام بنشر نوفمبر 6 قام بنشر نوفمبر 6 11 دقائق مضت, ghassan1959 said: واعرف عددها الكلي اذا كان الهدف ليس تسلسل ولكن عدد فقط استخدم count
Foksh قام بنشر نوفمبر 6 قام بنشر نوفمبر 6 وعليكم السلام ورحمة الله وبركاته أخي الكريم غسان بدايةً وبما انك قلت انك عضو سابق في المنتدى فهذا سبب كافي لفهمك أساسيات انشاء موضوع وشروط وسياسة المنتدى ، ففي البداية أتيت بطلب ضمن سطر ونصف فقط ، وعند تزويدك بملف مرفق كان الملف دون اي بيانات ، ومع ذلك تقدم معلمنا الجليل @ابوخليل بتقديم حل يسير لك غير معقد . وتبعه المهندس @Moosak بالتعديل على ملفك وإدراج بيانات فيه - مشكوراً - وقد أضاف الحل الى الملف . ثم تبعت خطاهم بتقديم حل لك يعتمد على فكرة الفلترة ، ومع هذا تأتي الآن بتوضيح غير الذي في طلبك الأول . وهذا ما يسبب مشكلة في حصول الأخوة على حلول تساعدهم معتقدين أن من يقرأ حروفهم قد يسمع أفكارهم التي فكروا بها أثناء الطلب . متأملاً منك ارفاق الجداول والاستعلام والنموذج الذي تريد الحصول فيه على ترقيم متسلسل حسب الفلترة التي تريدها . 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.