[momiana1]

السلام عليكم

لدي قائمة بها
اسم المشترك وقيمة الاشتراك وسنة الاشتراك

اريد التعديل على كود لاستعلام لجلب الاسم واخر سنة اشتراك

مثال على ذلك invoice
name ........     ID  .........   price.......   year
2022 ....... 25 ......... Mohammed   ...... 001
2022 .........25 ........ Ali ....... 002
2023 ........ 25......... Ahmed ...... 003
2023 ......... 25 ....... Mohammed ..... 001
2023 ......... 25 ........ Ali ....... 002
2024 ........ 25 ......... Mohammed ..... 001

النتيجة المطلوبة
2024 ...... 25 ....... Mohammed ...... 001
2023 ....... 25 ...... Ali ........ 002
2023 ....... 25 ...... Ahmed ....... 003

كود :

Try
               SQLstr = "SELECT MAX(year)FROM list WHERE ID LIKE '@ID'"
               If Me.BindingContext(DataSet1, "list").Count = 0 Then
                   MsgBox("لا توجد نتائج  , تأكد من وجود إيصالات مخزنة بالمنظومة ")
                   Exit Sub
               End If
           Catch ex As Exception

           End Try