• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

البحث في المنتدى

Showing results for tags 'loop'.

  • البحث بالتاقات

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • البحث بكاتب الموضوع

تم إيجاد 3 نتيجة

  1. الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة . حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف  وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة . ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي : Private Sub تدقيق21_Click() Dim m m = 0 Do While m < DateDiff("yyyy", DMin("[المباشرة]", "البيانات الوظيفية"), Date) DoCmd.GoToRecord , , acNewRec [السبب].SetFocus [السبب] = "علاوة سنوية دورية" [المباشرة] = DateSerial(DatePart("yyyy", DMin("[المباشرة]", "البيانات الوظيفية")) + 1, 1, 1) m = m + 1 Loop End Sub تاريخ المباشرة وهو بداية الخدمة . ولكن العلاوات السنوية يقوم بزيادة سنة ويقوم بتكرار هذه السنة دون الزيادة للسنة الثالثة والربابعة وهكذا الشكل التالي الأستعلام   لاحظ العلاوات السنوية مكررة وهذه هي المشكلة المطلوب السنوات المتسلسلة المتتالية 1434 و من ثم 1435 و 1436 و 1437 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير    
  2.  private void btnedite_Click(object sender, EventArgs e)         {             try             {                                        cmd.CommandType = CommandType.Text;                     cmd.Connection = sqlcon;                                          cmd.CommandText = "update  TBL_AREACUSTOMERS set area_name= @f1 ,  area_note [email protected] where [email protected] ";                     cmd.Parameters.Add("@f1", SqlDbType.VarChar, 300).Value = txtname.Text;                     cmd.Parameters.Add("@f2", SqlDbType.VarChar, 300).Value = txtnote.Text;                     cmd.Parameters.Add("@id", SqlDbType.Int).Value = txtid.Text; ;                     sqlcon.Open();                     cmd.ExecuteNonQuery();                     sqlcon.Close();                       dt3.Clear();                     da.Fill(dt3);                     txtid.Clear();                     txtname.Clear();                     txtnote.Clear();                     txtid.Focus();                     MessageBox.Show("تم التعديل");                                                 }             catch { }
  3. السلام عليكم و رحمة الله و بركاته و الصلاة و السلام على سيدنا محمد و على آله و صحبه أجمعين معكم محمد الزوهري oxygen ghost في درس عن تقنية نادر تناولها أو ربما استعمالها و هي : استخدام الحلقة for مع اسناد أكتر من عداد و أكتر من شرط منطقي أولا عدد الشروط و العدادات الممكن استعماله داخل الحلقة ليس محدودا متال توضيحي :   هنا عرفنا عدادين i و j مهدناهما بالقيم 1 و 2 على التوالي تنفد تعليمات الحلقة طالما i أصغر من 10و j أصغر من 12 مع زيادة i بواحد و j ب 2 في كل دورة أتمنى أن تكون قد اتضحت الفكر و إلى القاء أدعو لي بالتوفيق في دراستي