تقييم الموضوع :
  • 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 ك ب / التحميلات : 463)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  [vb6.0] هل يوجد مثال لاعداد جداول الاوقات المدرسي 2003amin 0 190 15-08-23, 01:11 PM
آخر رد: 2003amin
  محتاج مثال لتحويل (QR barcode) الي نص scsi7000 2 318 04-08-23, 09:19 AM
آخر رد: scsi7000
  [كود] اريد المساعده mohamed memoo 0 370 01-12-22, 07:23 PM
آخر رد: mohamed memoo
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt
  [vb6.0] من لديه طريقه مثال او كود لارسال ملف من vb6 الي WhatsApp scsi7000 2 1,693 21-11-21, 05:45 PM
آخر رد: mona82
Question [سؤال] امل المساعده في مثال التعامل مع المخزون allayl 10 4,365 05-11-21, 05:52 PM
آخر رد: Abdellah
Question [vb6.0] كيف انشي لبرنامجي المرفق تصفح سجلات مثال الذي في الصوره ؟؟ Microformt 3 1,351 24-05-21, 10:01 AM
آخر رد: Ahmed_Mansoor
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 1,454 19-01-21, 06:22 PM
آخر رد: amro1965
  تاريخ أول / أخر تاريخ فى الشهر فى سنة محددة aboezzat84 0 889 02-01-21, 04:45 AM
آخر رد: aboezzat84

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


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