23-11-15, 10:32 AM
لقد جربت جملة الاستعلام دون وجود 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
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