Kubt metin kutusunun çıkıldığında olayına:
Kod:
Private Sub Kubt_Exit(Cancel As Integer)
If Me.Kubt <= Me.Tarih1 Then
MsgBox "Kalıp Üretim Başlangıç Tarihi, Tasarım Geliştirme İstek Form Tarihinden küçük veya tarihine eşit olamaz... ", vbInformation, "Dikkat..."
Me.Tarih1.SetFocus
End If
End SubKod:
Private Sub Kubit_Exit(Cancel As Integer)
If Me.Kubit <= Me.Kubt Or Me.Kubit <= Me.Tarih1 Then
MsgBox "Kalıp Üretim Bitiş Tarihi, Kalıp Üretim Başlangıç Tarihinden ve Tasarım Geliştirme İstek Form Tarihinden küçük veya tarihine eşit olamaz... ", vbInformation, "Dikkat..."
Me.Kubt.SetFocus
End If
End SubKolay gelsin...
