AccessTr.neT

Araç zimmetlerini takip ettiğim veritabanımda
Alt formda İadeTarihi alanımız boş ise yeni satıra kayıt ekleme izni vermesin ve MsgBox ile uyarsın istiyorum ama işin içinden çıkamadım.

Alt formun İade Tarihi alanının gerekli özelliğini Evet yaptığımda yapılan Zimmeti kapatmamı istiyor. Araç ilgili birimden garaja veya başka bir birime geçeceği zaman ilk zimmeti kapatıp yeni kayıt açıyorum. Bir plakaya ait açık zimmet varken (İade tarihi alanının boş ise) yeni zimmet açılmasını engellemek için ne yapmam gerekiyor?

Sayın iscinar;
İsediğiniz Ekte yapılmıştır.
Kolay gelsin.

Sayın iscinar;
Sorununuz çözüldü ise tenezzülen bir cevap yazınız.

(20/06/2011, 16:21)Kur@l yazdı: [ -> ]Sayın iscinar;
Sorununuz çözüldü ise tenezzülen bir cevap yazınız.

İlginiz için teşekkürler
Ancak iş yerinde dosyayı indirdim daha bakamadan dışarı çıkmam icab etti nasip olursa şimdi evden bakıp cevap yazarım. tekrar teşekkür ediyorum

Sn. Kur@l
Bir araç için bakarsak tam istediğim gibi. Ancak bir aracın zimmeti açıksa diğer araçlara da zimmet izni vermiyor

Sayın iscinar;
Kodu bu şekilde değiştirin işlem tamam denemesi yapılmıştır.
Kolay Gelsin.

Private Sub Form_BeforeInsert(Cancel As Integer)

If NewRecord Then

    If IsNull(DLast("[İade Tarihi]", "[Zimmet_T]", "[plaka no] ='" & Forms!Araclar_Zimmet_F.Metin91.Value & "'")) = True And DCount("[plaka no]", "[Zimmet_T]", "[plaka no] ='" & Forms!Araclar_Zimmet_F.Metin91.Value & "'") > 0 Then

Cancel = True

Me.Undo

Exit Sub



    End If

End If

End Sub