تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] المساعده في مثال تاريخ استحقاق الترقية
#1
Question 
السلام عليكم

امل المساعده في التعديل على المثال المرفق

المطلوب

يوجد تاريخ الترقية على الرتبة الحالية

ابي يحسب لي تاريخ استحقاق الترقية التي بعدها

بمدة سنتين او ثلاث او اربع او خمس حسب مدة الرتبه

امل المساعده

جزاكم الله الف خير

المثال مرفق
الرد
تم الشكر بواسطة:
#2
السلام عليكم

- أضف هذا الكود في كود المثال :

كود :
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

If (adReason = adRsnMoveFirst _
   Or adReason = adRsnMoveLast _
   Or adReason = adRsnMoveNext _
   Or adReason = adRsnMovePrevious) _
   And Trim$(Text2.Text) <> "" Then
  
   If Trim$(Combo1.Text) = "جندي" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
      
   ElseIf Trim$(Combo1.Text) = "جندي أول" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "عريف" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "وكيل رقيب" Then
      Text3.Text = DateAdd("yyyy", 3, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رقيب" Then
      Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رقيب أول" Then
      Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رئيس رقباء" Then
      Text3.Text = DateAdd("yyyy", 5, CDate(Trim$(Text2.Text)))
  
   End If

End If

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: allayl , محمد ئوزبك
#3
السلام عليكم اخي VB_Coder

تم وضع الكود لم يحدث شي امل التعديل على المثال
الرد
تم الشكر بواسطة:
#4
السلام عليكم

- عند نسخ الكود ولصقه داخل كود المثال الذي أرفقته أنت ، قم بالتنقل أو تحريك السجلات وذلك بالضغط على الأسهم في أداة ال Adodc1 سيتم وضع تاريخ الترقيه القادمه في الText3 ولكن من غير حفظه في قاعدة البيانات .

- إذا كان هذا غير ماتريده ، فياريت أن توضح أكثر عن ماتريده بالضبط .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: allayl
#5
شكرآ لك اخي الكريم

بس لو يكون تنفيذ الكود في Combo1 كان هو المطلوب

امل المساعده

==========

ملاحظة : مشكلة دائم تواجهني مع الاداة Adodc1 هي الحفظ التلقائي بمجرد

التنقل بين اداوت برنامجي دون الضغط على زر حفظ

و عند الخروج من الفروم بدون الضغط على زر حفظ
الرد
تم الشكر بواسطة:
#6
السلام عليكم

- إذا أردت الكود يكون مربوط بالكومبو1 , إستخدم حدث الChange للكومبو1 , كما يلي, إنسخ هذا لكود وألصقه في كود المثال :

كود :
Private Sub Combo1_Change()
  
If Trim$(Combo1.Text) = "جندي" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
      
ElseIf Trim$(Combo1.Text) = "جندي أول" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "عريف" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "وكيل رقيب" Then
   Text3.Text = DateAdd("yyyy", 3, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رقيب" Then
   Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رقيب أول" Then
   Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رئيس رقباء" Then
   Text3.Text = DateAdd("yyyy", 5, CDate(Trim$(Text2.Text)))
  
End If

End Sub

- وبالنسبة للحفظ التلقائي لأداة adodc1 دون الضغط على زر الحفظ , فبما أنك مسوي ربط لجميع التكستات بحقول الجدول , فضع أمر الحفظ في حدث الLostFocus لكل أداة موجودة على الفورم لكي عند إنتقال التركيز من أي أداة يتم الحفظ , مايلي أمر الحفظ في أداة الText1 وأت طبقها على باقي الأداوت في الفورم :

كود :
Private Sub Text1_LostFocus()
Adodc1.Recordset.Update
End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: allayl
#7
اخي الكريم

انا اعاني منها دون وضع الكود الذي ذكرته

انا ابغى طريقة لا يتم الحفظ الا بالضغط على زر الحفظ فقط

بارك الله فيك و جزاك الفردوس الاعلى
الرد
تم الشكر بواسطة:
#8
السلام عليكم

- إذا كنت تريد الحفظ فقط من زر الحفظ فيجب عليك أن لا تجعل التكستات مربوطه مباشرة بأداة الAdodc1 أمسح مايوجد في خاصية ال DataField والخاصية الDataSource لكل التكستات والكومبو لكي تفك الإرتباط , ثم أكتب كود الحفظ بالكود كما هو موضح بالمثال المعدل , وإيضاً التنقل بين السجلات ضع أزرار للتنقل بين السجلات وضع أكواد التنقل فيها كما هو موضح بالمثال , ثم قم بإخفاء أداة ال Adodc1 لعدم الحاجه لعرضها .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: ناجي إبراهيم , allayl
#9
بارك الله فيك اخي الكريم

و هل يتم استخدام هذه الطريقة في

زر الاضافه

زر الحذف

زر البحث

======

اذا كان يوجد عندك مثال شامل على الاداة Adodc1 امل ارفاقه ...

.... بارك الله فيك و جزاك الفردوس الاعلى
الرد
تم الشكر بواسطة:
#10
السلام عليكم

- عندي مشكلة في تحميل المرفقات من المنتدى , كنت أريد تحميل المثال الأخير لأعدل عليه , لأنه لم المثال بحوزتي قبل ثلاث ساعات من الآن , والآن المثال لدي وعدلت عليه بما طلبت .

- تحياتي .


الملفات المرفقة
.zip   مثال استحقاق الترقية-4.zip (الحجم : 12.06 ك ب / التحميلات : 397)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 13 2,317 21-05-18, 01:41 AM
آخر رد: abdelkader
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 204 03-05-18, 02:09 PM
آخر رد: mhareek
  من لديه مثال عن طباعه الصفوف المختاره من الفلكس جريد الي الاكتيف ريبورت scsi7000 4 144 13-04-18, 10:14 PM
آخر رد: mhareek
  استفسار بخصوص عمل تاريخ صلاحية للبرنامج mhareek 10 325 19-03-18, 08:08 PM
آخر رد: mhareek
  السلام عليكم اريد مثال اعمل كلمة سر لبرنامجي واعدلها في الاكسس بارك الله فيكم محمد جبريل 5 233 11-03-18, 10:48 AM
آخر رد: محمد جبريل
  تعديل على مثال رصد درجات الطلبة مصمم هاوي 11 152 19-02-18, 03:41 AM
آخر رد: مصمم هاوي
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 2 271 03-02-18, 01:41 PM
آخر رد: anoname
  استعلام عن تاريخ في حقل في برنامجي محمد حمد محمد 21 199 31-01-18, 05:33 PM
آخر رد: Amir_alzubidy
  طلب تعديل على مثال خاص بالليست فيو w123eg 1 95 20-01-18, 01:23 AM
آخر رد: w123eg
  طلب مثال لنقل طالب منقطع عن طريق CheckBox مصمم هاوي 5 164 17-01-18, 10:18 PM
آخر رد: Amir_alzubidy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم