ghassan1959 قام بنشر بالامس في 11:09 مشاركة قام بنشر بالامس في 11:09 السلام عليكم اساتذتي ... انا مشترك قديم في الموقع ولكن لاسباب انقطعت لفترة طويلة محتاج مساعدتكم في عمل استعلام بالاكسس تكون الخانة الاول ارقام متسلسلة للمعلومات المعروضة ولكم فائق الشكر ويا ريت بالتفصيل .. اسم الجدول . قوانين رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر بالامس في 12:08 مشاركة قام بنشر بالامس في 12:08 على اعتبار اسم الجدول tbl1 وهذا الجدول يحتوي على ترقيم تلقائي اسمه id ادرج ضمن الاستعلام الحقل id والصق في حقل جديد في الاستعلام هذا السطر : urAoutoNm: DCount("ID";"tbl1";"ID <=" & [ID]) 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر منذ 23 ساعات مشاركة قام بنشر منذ 23 ساعات وعليكم السلام ورحمة الله وبركاته ,, وهذه مشاركة مع ومعلمي الحبيب @ابوخليل أيضاً . إذا أردت الحصول على ترقيم تسلسلي منتظم بغض النظر عن الفلاتر أو عوامل التصفية داخل الاستعلام سيتوجب عليك استخدام اسلوب الاستعلام المتداخل أو الفرعي ( استعلام داخل استعلام ) وهنا الحاجة لإرسالك ملف . هذا من وجهة نظري والله أعلم 1 رابط هذا التعليق شارك More sharing options...
ghassan1959 قام بنشر منذ 21 ساعات الكاتب مشاركة قام بنشر منذ 21 ساعات الاستاذ الفاضل ابو خليل شكرا لحضرتك على الردجربت عدة مرات ولم انجح في ذلك .. هل من الممكن ارسال الملف مع التقدير والاحترام رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر منذ 20 ساعات مشاركة قام بنشر منذ 20 ساعات 32 دقائق مضت, ghassan1959 said: هل من الممكن ارسال الملف مع التقدير والاحترام أخي العزيز غسان @ghassan1959 🙂 .. قم أنت بإرسال ملفك وفيه الجدول والاستعلام المطلوب ترقيمه بحيث يكون فيه كم من البيانات 🙂 1 رابط هذا التعليق شارك More sharing options...
ghassan1959 قام بنشر منذ 20 ساعات الكاتب مشاركة قام بنشر منذ 20 ساعات شكرا استاذي حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال واكون شاكر لكم جهودكم مع الشكر والتقدير رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر منذ 20 ساعات مشاركة قام بنشر منذ 20 ساعات 3 دقائق مضت, ghassan1959 said: حاولت ارسال الملف بس حجم الملف كبير ولم يتم الارسال لا حاجة لإرسال المشروع كاملاً .. فقط الاستعلام والجداول الخاصة به ( بدون النماذج أو العناصر التي ليست لها علاقة في المطلوب ) . رابط هذا التعليق شارك More sharing options...
ghassan1959 قام بنشر منذ 15 ساعات الكاتب مشاركة قام بنشر منذ 15 ساعات السلام عليكم هذا هو الملف شكي وتقديري للجمبعghassan.accdb رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر منذ 6 ساعات مشاركة قام بنشر منذ 6 ساعات وعليكم السلام أخي غسان .. مع أن الملف بدون بيانات ولكن عبأته لك ببيانات عشوائية .. وطبقت عليه فكرة والدنا العزيز @ابوخليل 🙂 والدور على معلمنا الحبيب @Foksh ليطبق فكرته 😊👌 ghassan.accdb 2 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر منذ 22 دقائق مشاركة قام بنشر منذ 22 دقائق 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان