[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
وفوق كل ذو علم عليم
في البداية أحمد الله على أني لست ممن لا يتراجعون عن الخطأ او ممن لا يتقبلون نقدا أو رأيا افضل او نصيحة او حلا ولست ممن لا يقبل مشاركة الآخرين في حل مسألة أشارك فيها...
مرة أخرى الرجل الصالح والطيب  المجهول يتدخل ويدلي بخبرته الغنية والثرة لكن هذه المرة قام بإرسال الكود لي بدون ان يضع المشاركة هنا 
فعلا الكود الذي أورده اقوى وأصح واسرع من الكود الذي وضعته أنا حسب معرفتي 
كودي يشبه جهاز روسي ضخم يؤدي عملية 
اما كوده فهو يشبه جهاز غربي بحجم 5% من حجم الجهاز الروسي ويؤدي نفس العملية وبسرعة أضعاف مضاعفة  
بصراحة لم استطع إيجاد استعلام صحيح كما أورده هو .. بسبب قلة معرفتي بالاستعلامات والدوال الممكن استخدامها في الاستعلامات 

كود :

"SELECT MONTH(datee),SUM(mouney) FROM Table1 WHERE YEAR(datee)=@y GROUP BY MONTH(datee)"

 الاستعلام اعلاه أعرفه عدا هذه الجزئية MONTH(datee) - YEAR(datee) والمتعلقة بالشهر والسنة
لذلك لم اوفق في الكود مثل كوده
وحتى تعم الفائدة للجميع هذا هو الكود الذي أرسله لي وهو يعمل مع الاكسس والـ SqlServer

كود :

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
  Dim cmd As New SqlCommand("SELECT MONTH(datee),SUM(mouney) FROM Table1 WHERE YEAR(datee)=@y GROUP BY MONTH(datee)", con)
  cmd.Parameters.AddWithValue("@y", ComboBox1.Text)
  Dim da As New SqlDataAdapter(cmd)
  Dim dt As New DataTable
  da.Fill(dt)
  TextBox1.Text = 0
  TextBox2.Text = 0
  TextBox3.Text = 0
  TextBox4.Text = 0
  TextBox5.Text = 0
  TextBox6.Text = 0
  TextBox7.Text = 0
  TextBox8.Text = 0
  TextBox9.Text = 0
  TextBox10.Text = 0
  TextBox11.Text = 0
  TextBox12.Text = 0
  For Each r As DataRow In dt.Rows
      If r.Item(0) = 1 Then TextBox1.Text = r.Item(1)
      If r.Item(0) = 2 Then TextBox2.Text = r.Item(1)
      If r.Item(0) = 3 Then TextBox3.Text = r.Item(1)
      If r.Item(0) = 4 Then TextBox4.Text = r.Item(1)
      If r.Item(0) = 5 Then TextBox5.Text = r.Item(1)
      If r.Item(0) = 6 Then TextBox6.Text = r.Item(1)
      If r.Item(0) = 7 Then TextBox7.Text = r.Item(1)
      If r.Item(0) = 8 Then TextBox8.Text = r.Item(1)
      If r.Item(0) = 9 Then TextBox9.Text = r.Item(1)
      If r.Item(0) = 10 Then TextBox10.Text = r.Item(1)
      If r.Item(0) = 11 Then TextBox11.Text = r.Item(1)
      If r.Item(0) = 12 Then TextBox12.Text = r.Item(1)
  Next
End Sub

مرة أخرى لا يسعني الا الدعاء له بالعمر الطويل والصحة والعافية  والرزق الوفير