08-02-17, 03:06 AM
ضع هذا الكود
Private Sub DTPicker1_Change()
If DTPicker1 > Date Then
Text1 = 0
Else
Text1 = 1
End If
End Sub
سيتاخر قليلا ولكنه يعمل بالاخير
Private Sub DTPicker1_Change()
If DTPicker1 > Date Then
Text1 = 0
Else
Text1 = 1
End If
End Sub
سيتاخر قليلا ولكنه يعمل بالاخير
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم