bahsettiğiniz bu yeni talebinize yönelik olarak,aşağıdaki bilgi yeterlidir.
eğer formu veritabanı görselinde kullanmak isterseniz;aşağıda yer alan kodları,
formun Güncelleştirme Öncesinde Olay Yordamı içerisine dahil ettiğiniz takdirde,yine gerekli uyarıları veya işleyişi sağlayacaktır.bilginize.
Kod:
If IsNull(Me.borcm) And IsNull(Me.alacakm) Then
'eğer BORÇ / ALACAK değerinden ikisi de boş geçilecek olursa
'belirecek uyarı mesajını göstermek için
Me.Undo
MsgBox ("borç / alacak bilgilerini BOŞ BIRAKMAYINIZ")
Me.borcm.SetFocus
Exit Sub
Else
If Me.borcm > 0 And Me.alacakm > 0 Then
'eğer BORÇ / ALACAK değerinden ikisine de bilgi girişi yapılırsa
'bunu engelleyip,SADECE birine bilgi girişinin yapılmasını sağlamaya yönelik
'belirecek uyarı mesajını göstermek için
Me.Undo
MsgBox ("borç / alacak bilgilerinden SADECE birini doldurunuz"), vbCritical, "UYARI"
Me.borcm.SetFocus
Exit Sub
Else
'aşağıdaki mesaj bildirimi,içeriğinde bahsi geçtiği üzere,sadece;
'işleyişi görmek açısından oluşturulmuştur.
'siz,bunun yerine,BORÇ ya da ALACAK değerlerinden herhangi birinin girilmesi sonrasında
'hangi işlemleri yapmasını istiyorsanız,buradaki alan içerisine
'o taleplerinize yönelik diğer işlemleri içerecek kodları yazınız
MsgBox ("diğer işlemleri yapabilirsiniz") & vbCr & "mesaj satırı yerine" & _
vbCr & "hangi işlemleri yapmasını istiyorsanız" & vbCr & "o işlemleri yaptırınız" & _
vbCr & "burada sadece sonucu görmek için" & vbCr & "mesaj gösterimi denenmiştir"
End If
End Ifsaygılar.
