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 Sub
Kod:
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 Sub
Kolay gelsin...