Skip to main content

AccessTr.neT


Altforma yeni kayıt şartı koyabilirmiyiz?

Altforma yeni kayıt şartı koyabilirmiyiz?

Çözüldü #1
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?
.zip Araç Zimmet.zip (Dosya Boyutu: 80,22 KB | İndirme Sayısı: 10)
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #2
Sayın iscinar;
İsediğiniz Ekte yapılmıştır.
Kolay gelsin.
.zip [email protected] (Dosya Boyutu: 84,14 KB | İndirme Sayısı: 42)
Cevapla
Çözüldü #3
Sayın iscinar;
Sorununuz çözüldü ise tenezzülen bir cevap yazınız.
Cevapla
Çözüldü #4
(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
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #5
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
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #6
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

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task