[hqom]

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

عندي لست فيوو1 في محتويات واسماء مثلاً 


محمد عبدالله تاريخ الاضافة 2018\05\27

كريم عبدالله تاريخ الاضافة 2018\05\30

اريد كود مثلاً تاريخ الحاسوب هو ( 2018\05\27 ) 

يضهرلي فقط التواريخ الموجودة في لست فيو 1

وكود ثاني يضهري التواريخ خلال شهر واحد يعني يضهرلي شهر ( 5 ) فقط يعني يتم البحث على تاريخ ( 2018\05 )

يعني جرد شهري يعرضلي الاسماء المضافة خلال هذا الشهر فقط 

وطبعاً الكود يشتغل على  الاشهر الباقية 

تحياتي لكم اخوتي الاعزاء
المشروع بالمرفقات

[mrnooo2000]

هذا هو كودك بعد التعديل 

كود :

   Private Sub Retrieve2(sql As String)
       'تعبئة الليست فيو2
       ListView1.Items.Clear()
       cmd = New OleDbCommand(sql, con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
               Dim num As String = "" : If Not row.IsNull(1) Then num = row(1)
               Dim date1 As String = "" : If Not row.IsNull(2) Then date1 = row(2)
               Populate2(id, num, date1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Retrieve2("Select * FROM Table1")
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Retrieve2("Select * FROM Table1 Where data1 = #" & Today.Date & "#")
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Retrieve2("Select * FROM Table1 Where Month(data1) = 5")
   End Sub

[hqom]

(27-05-18, 03:49 PM)mrnooo2000 كتب : هذا هو كودك بعد التعديل 

كود :

   Private Sub Retrieve2(sql As String)
       'تعبئة الليست فيو2
       ListView1.Items.Clear()
       cmd = New OleDbCommand(sql, con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
               Dim num As String = "" : If Not row.IsNull(1) Then num = row(1)
               Dim date1 As String = "" : If Not row.IsNull(2) Then date1 = row(2)
               Populate2(id, num, date1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Retrieve2("Select * FROM Table1")
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Retrieve2("Select * FROM Table1 Where data1 = #" & Today.Date & "#")
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Retrieve2("Select * FROM Table1 Where Month(data1) = 5")
   End Sub

طيب صديقي الكود هنا فقط على شهر الـ 5 لكن انا اريده كل شهر  لو عملت جرد يظهرلي فقط الاسماء المضافة خلال الشهر الموجود في الجهاز

هذا الكود تم تحديد شهر الـ 5 صح 

كود :

   Retrieve2("Select * FROM Table1 Where Month(data1) = 5")

[mrnooo2000]

أضف تكست للنموذج و ليكن اسمه txtmonth و يتم ادحال الشهر المطلوب به 

كود :

Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(txtmonth.text))

أو يمكنك ادخل الشهر عن طريق صندوق ادخال 

كود :

           Dim reslt As String = InputBox("الشهر المطلوب هو", "حدد الشهر", Today.Date.Month, Me.Left, Me.Top)
        If reslt.Trim.Length = 0 Then Exit Sub
        Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(reslt.Trim))

[hqom]

(27-05-18, 04:06 PM)mrnooo2000 كتب : أضف تكست للنموذج و ليكن اسمه txtmonth و يتم ادحال الشهر المطلوب به 

كود :

Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(txtmonth.text))

أو يمكنك ادخل الشهر عن طريق صندوق ادخال 

كود :

           Dim reslt As String = InputBox("الشهر المطلوب هو", "حدد الشهر", Today.Date.Month, Me.Left, Me.Top)
        If reslt.Trim.Length = 0 Then Exit Sub
        Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(reslt.Trim))

تمام بارك الله بك اخي الغالي