السلام عليكم
لدي قائمة بها
اسم المشترك وقيمة الاشتراك وسنة الاشتراك
اريد التعديل على كود لاستعلام لجلب الاسم واخر سنة اشتراك
مثال على ذلك 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
لدي قائمة بها
اسم المشترك وقيمة الاشتراك وسنة الاشتراك
اريد التعديل على كود لاستعلام لجلب الاسم واخر سنة اشتراك
مثال على ذلك 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
