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)))
- عند نسخ الكود ولصقه داخل كود المثال الذي أرفقته أنت ، قم بالتنقل أو تحريك السجلات وذلك بالضغط على الأسهم في أداة ال Adodc1 سيتم وضع تاريخ الترقيه القادمه في الText3 ولكن من غير حفظه في قاعدة البيانات .
- إذا كان هذا غير ماتريده ، فياريت أن توضح أكثر عن ماتريده بالضبط .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
- وبالنسبة للحفظ التلقائي لأداة adodc1 دون الضغط على زر الحفظ , فبما أنك مسوي ربط لجميع التكستات بحقول الجدول , فضع أمر الحفظ في حدث الLostFocus لكل أداة موجودة على الفورم لكي عند إنتقال التركيز من أي أداة يتم الحفظ , مايلي أمر الحفظ في أداة الText1 وأت طبقها على باقي الأداوت في الفورم :
كود :
Private Sub Text1_LostFocus()
Adodc1.Recordset.Update
End Sub
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
14-09-13, 09:09 AM (آخر تعديل لهذه المشاركة : 14-09-13, 09:11 AM {2} بواسطة VB_Coder.)
السلام عليكم
- إذا كنت تريد الحفظ فقط من زر الحفظ فيجب عليك أن لا تجعل التكستات مربوطه مباشرة بأداة الAdodc1 أمسح مايوجد في خاصية ال DataField والخاصية الDataSource لكل التكستات والكومبو لكي تفك الإرتباط , ثم أكتب كود الحفظ بالكود كما هو موضح بالمثال المعدل , وإيضاً التنقل بين السجلات ضع أزرار للتنقل بين السجلات وضع أكواد التنقل فيها كما هو موضح بالمثال , ثم قم بإخفاء أداة ال Adodc1 لعدم الحاجه لعرضها .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
- عندي مشكلة في تحميل المرفقات من المنتدى , كنت أريد تحميل المثال الأخير لأعدل عليه , لأنه لم المثال بحوزتي قبل ثلاث ساعات من الآن , والآن المثال لدي وعدلت عليه بما طلبت .
- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next