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
If fonksiyonu ve kullanıcı zorunlu veri girişi
Sayın sally;
Kodu buradan aynen kopyalayın.
Bazen bizim yapmak istediklerimizle ilgili accessin hazır fonksiyonları olmayabilir. Veya aynı işlemi (sizin programda olduğu gibi) bir kaç kez yapmak zorunda kalabiliriz. İşte bunun için kodla özel fonksiyonlar veya alt rutinler yazabiliriz.
Kod sayfasına geçin private sub ......(adına ne diyecekseniz) yazıp entere basın
hemen altına Access end sub ekleyerek size araya yazmanız için hazırlar.
Kodu buradan aynen kopyalayın.
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
End If
End If
End Sub
Bazen bizim yapmak istediklerimizle ilgili accessin hazır fonksiyonları olmayabilir. Veya aynı işlemi (sizin programda olduğu gibi) bir kaç kez yapmak zorunda kalabiliriz. İşte bunun için kodla özel fonksiyonlar veya alt rutinler yazabiliriz.
Kod sayfasına geçin private sub ......(adına ne diyecekseniz) yazıp entere basın
hemen altına Access end sub ekleyerek size araya yazmanız için hazırlar.
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Teşekkürler.
Konuyu Okuyanlar: 2 Ziyaretçi