+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Altforma yeni kayıt şartı koyabilirmiyiz? (/konu-altforma-yeni-kayit-sarti-koyabilirmiyiz.html)
Sayfalar:
1
2
Altforma yeni kayıt şartı koyabilirmiyiz? - iscinar - 20/06/2011
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?
Cvp: Altforma yeni kayıt şartı koyabilirmiyiz? - Kur@l - 20/06/2011
Sayın iscinar;
İsediğiniz Ekte yapılmıştır.
Kolay gelsin.
Cvp: Altforma yeni kayıt şartı koyabilirmiyiz? - Kur@l - 20/06/2011
Sayın iscinar;
Sorununuz çözüldü ise tenezzülen bir cevap yazınız.
Cvp: Altforma yeni kayıt şartı koyabilirmiyiz? - iscinar - 20/06/2011
(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
Cvp: Altforma yeni kayıt şartı koyabilirmiyiz? - iscinar - 20/06/2011
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
Cvp: Altforma yeni kayıt şartı koyabilirmiyiz? - Kur@l - 20/06/2011
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