عمل ترقيم متسلسل في استعلام الاكسس

[ghassan1959]

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

[ابوخليل]

على اعتبار اسم الجدول tbl1 وهذا الجدول يحتوي على ترقيم تلقائي اسمه id

ادرج ضمن الاستعلام الحقل id

والصق في حقل جديد في الاستعلام هذا السطر :

urAoutoNm: DCount("ID";"tbl1";"ID <=" & [ID])

  

[Foksh]

وعليكم السلام ورحمة الله وبركاته ,,

وهذه مشاركة مع ومعلمي الحبيب @ابوخليل أيضاً . إذا أردت الحصول على ترقيم تسلسلي منتظم بغض النظر عن الفلاتر أو عوامل التصفية داخل الاستعلام سيتوجب عليك استخدام اسلوب الاستعلام المتداخل أو الفرعي ( استعلام داخل استعلام ) وهنا الحاجة لإرسالك ملف  .

 

هذا من وجهة نظري والله أعلم

 

[ghassan1959]

الاستاذ الفاضل ابو خليل

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

[Moosak]

32 دقائق مضت, ghassan1959 said:

هل من الممكن ارسال الملف مع التقدير والاحترام

أخي العزيز غسان  @ghassan1959 🙂 .. قم أنت بإرسال ملفك وفيه الجدول والاستعلام المطلوب ترقيمه بحيث يكون فيه كم من البيانات 🙂 

[ghassan1959]

شكرا استاذي

حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال

واكون شاكر لكم جهودكم مع الشكر والتقدير

[Foksh]

3 دقائق مضت, ghassan1959 said:

حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال

 

لا حاجة لإرسال المشروع كاملاً .. فقط الاستعلام والجداول الخاصة به ( بدون النماذج أو العناصر التي ليست لها علاقة في المطلوب ) .

[ghassan1959]

السلام عليكم

هذا هو الملف

شكي وتقديري للجمبعghassan.accdb

[Moosak]

وعليكم السلام أخي غسان .. مع أن الملف بدون بيانات ولكن عبأته لك ببيانات عشوائية .. وطبقت عليه فكرة والدنا العزيز @ابوخليل 🙂 

والدور على معلمنا الحبيب @Foksh ليطبق فكرته 😊👌

ghassan.accdb

[Foksh]

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

[ghassan1959]

السلام عليكم وطيب الله انفاسكم

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

اود ان ابين ما يلي

انا عملت جدول وبه ملف كبير من المعلومات المختلفة

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

ارجو المساعدة مع التقدير

[Barna]

11 دقائق مضت, ghassan1959 said:

واعرف عددها الكلي

اذا كان الهدف ليس تسلسل ولكن عدد فقط استخدم count

[Foksh]

وعليكم السلام ورحمة الله وبركاته أخي الكريم غسان 

بدايةً وبما انك قلت انك عضو سابق في المنتدى فهذا سبب كافي لفهمك أساسيات انشاء موضوع وشروط وسياسة المنتدى ، ففي البداية أتيت بطلب ضمن سطر ونصف فقط ، وعند تزويدك بملف مرفق كان الملف دون اي بيانات ، ومع ذلك تقدم معلمنا الجليل @ابوخليل بتقديم حل يسير لك غير معقد . وتبعه المهندس @Moosak بالتعديل على ملفك وإدراج بيانات فيه - مشكوراً - وقد أضاف الحل الى الملف . ثم تبعت خطاهم بتقديم حل لك يعتمد على فكرة الفلترة ، ومع هذا تأتي الآن بتوضيح غير الذي في طلبك الأول . وهذا ما يسبب مشكلة في حصول الأخوة على حلول تساعدهم معتقدين أن من يقرأ حروفهم قد يسمع أفكارهم التي فكروا بها أثناء الطلب .

 

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