هل هناك كود في قاعدة البيانات لعرض المواد المتكرارة

السلام عليكم ورحمه الله

بص يا عم الحزين اول حاجه لو انت عاوز تعمل تحديد لكل السجلات المتكرره او تاخد نسخه واحده من كل نوع فاليك هذا الكود

  select distinct name from mono

وبكده حيجبلك كل الاسماء من الجدول مونو مع عدم التكرار

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

وده مثال سريع علي الي بقوله

  Dim s As String
	Dim i As Integer
	i = 0
	Dim mono As Recordset
	mono.MoveFirst

	s = mono("name")
	Do While Not mono.EOF
		If s = mono("name") Then i = i + 1
		mono.MoveNext
	Loop

ييوجد في برنامج الاكسس في الاستعلامات عند عمل استعلام جديدد هنالك معالج لاظهار السجلات المكررة حيث يساعدك هذا المعالج في عمل المطلوب وبعد ذلك نسخ كود الاستعلام الى الفيجوال بيسك وعرضه في Grid

شكراً جزيلا يا اخ mono4hak سوف اقوم بتجربة الكود وهقولك على النتيجه

وايضا شكرا ليك يا اخtarekvb انا اعلم ان هناك استعلام في الاكسس ولكن من الصعب تحويلة لكود في الفيجوال أتمنى كود الاخ مانو ينفع وشكرا ليكم جميعاً (كل عام وانتم بخير)

الكود الاول شغال تمام يا اخي

الكود الثانى عندى مشكلة في سرد النتائج تحت بعضها في دى بي جريد احتاج الى المساعدة مع العلم أن الحقل اسمة DISCRIPTION

والجدول اسمه ITEM

أكرر احتاج الى المساعدة