منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة (/showthread.php?tid=13913)

اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - k_medhat - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - Ahmed_Mansoor - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - k_medhat - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - k_medhat - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - administrator - 23-11-15

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

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - alims - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - k_medhat - 23-11-15

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - abulayth - 23-11-15

السلام عليكم

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

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

RE: اين المشكلة في هذا الكود لاظهار نتيجة سنة محددة - k_medhat - 23-11-15

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