#1
#2
#3
program.rar
(Dosya Boyutu: 43,93 KB | İndirme Sayısı: 18)
#4
Private Sub Kubt_Exit(Cancel As Integer)
Metin51.Value = DLookup("Last(Kubt)", "[KalipGenelBilgiFormu]")
If Me.Kubt.Value < Metin51.Value Then
MsgBox ("Uyarı Mesajı")
Me.Kubt = ""
End If
End Sub
program.rar
(Dosya Boyutu: 43,93 KB | İndirme Sayısı: 20)
#5
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 SubPrivate 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
program_tdsharun.rar
(Dosya Boyutu: 29,69 KB | İndirme Sayısı: 19)
#6
