Alt rutin derken bunu nasıl oluşturabiliyoruz. Bu uygulamayı birkaç yerde daha kullanmam gerekecek çünkü.
Bir de SözleşmeTarihi kısmına kodu yazdığımda ;
Onay 42 kısmı için compile:expected: end of statement mesajını alıyorum.
Kodu aşağıdaki gibi yazıyorum:
Private Sub SözleşmeBitişTarihi_Exit(Cancel As Integer)
If IsNull(SözleşmeBitişTarihi) Or SözleşmeBitişTarihi = "" Then
If Metin45 = "Var" Then
MsgBox ("Kiralık Makine Varsa Sözleşme Tarihini Boş Geçemezsiniz")Onay42.SetFocus Exit Sub Ebd If End If
End Sub
#7
