منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لقد جربت جملة الاستعلام دون وجود 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

أهلا أخي الكريم ، قم بإزالة علامتي الـ # الموجوده في جملة الإستعلام وجرب .

أزلت علامة # ومازال يوجد رسالة الخطأ
syntax error (missing operator) in query expression '[FileNumber] = '334' and YEAR[DocYear] =2015'.

يا جماعة الخير
ايه الخطأ في الكود اللي فوق .... ياريت حد يفيدني

(23-11-15, 05:52 PM)k_medhat كتب : [ -> ]يا جماعة الخير
ايه الخطأ في الكود اللي فوق .... ياريت حد يفيدني

ارفق المشروع لكي يتم التعديل عليه

المفروض اخى واضع علامة الاقواس علشان تفرق بين الكلام يعنى مثلا حط قوس على السنة و التكست بتعها جرب و قولى

[attachment=8599]تم ارفاق الملف ارجو الاطلاع عليه والتعديل والأهم معرفتي بالتعديل وكمان غيري يعرفه عشان نستفاد مش نعدل وخلاص

السلام عليكم

تم التعديل والمشكلة كانت في الاقواس

يعطيك العافية

شكرا جزيلا لك ...
وحتى تكون فائدة للجميع الصح هو ان يكون كود البحث عن السنة أو الشهر أو اليوم في حقول التاريخ أن يوضع بقوس بهذا الشكل
Year([fileds])