12-09-13, 09:57 PM
السلام عليكم
- أضف هذا الكود في كود المثال :
- تحياتي .
- أضف هذا الكود في كود المثال :
كود :
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