[k_medhat]

لقد جربت جملة الاستعلام دون وجود dtpicker1 اي بدون الاستعلام عن السنة واشتغل معايه زي الفل انما عند وضع الاستعلام بالسنة لا يعمل ارجو من لديه الخبرة معرفة اين الخطأ plzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

Sub DocVication()
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\HRDatabase.mdb"
    conn.CursorLocation = adUseClient
    conn.Open
    Dim sql As String
 
    sql = " SELECT SUM(DocRecommand) AS TotalVication, COUNT(DocRecommand) AS CountDoc FROM DocTable WHERE [FileNumber] = '" + FrmP.Text3.Text + "' and YEAR[DocEnter] = #" & Year(DTPicker2.Value) & "#"
 
 
    comm.ActiveConnection = conn
    comm.CommandText = sql
    comm.CommandType = adCmdText
    rst.CursorType = adOpenStatic
    rst.CursorLocation = adUseClient
    rst.LockType = adLockOptimistic
    rst.Open comm
  
          If rst.Fields("TotalVication") <> vbNull Then
            Text7.Text = rst.Fields("TotalVication")
            Text6.Text = rst.Fields("CountDoc")
        Else
            Text7.Text = 0
            Text6.Text = 0
            
    End If
        conn.Close