Skip to main content

AccessTr.neT


Birden Fazla Alana Aynı Giriş Yapıldığında Uyarı Verilebilir Mi?

Birden Fazla Alana Aynı Giriş Yapıldığında Uyarı Verilebilir Mi?

#13
Ofis 2010 da olan 2003'de olmuyor mu?
Cevapla
#14
Merhaba, doğru mu anladım bilmiyorum ama "02_Magdursanık Altform" isimli forma kod ekledim. ALİ GEL isimli şahsı tekrar eklemeyi deneyiniz.
.rar Avukat_2 .rar (Dosya Boyutu: 153,56 KB | İndirme Sayısı: 6)
Cevapla
#15
Aynı kişinin (Ali Gel) farklı avukatı olabilir, aynı kişinin farklı mahkemesi olabilir. Bunlardan birini değiştirip Ali Gel ismini yazdığımda da "Bu kayıt daha önceden girilmiş" uyarısını veriyor. Vermemeli...
________________

Dosya no - Müdafi - Mahkemesavcilik aynı olabilir ancak magdursanık alanı da aynı olduğunda uyarı vermeli ve kayıt yapılamamalı...

Bunlardan herhangi biri aynı olduğunda hata veriyor...
Halbuki Dosya no - Müdafi ve Mahkemesavcilik aynı olabilir. 
mağdursanık da bunlarla birlikte yanı olursa hata vermeli. 

----

Aynı isimden başka bir kişi de olabilir.
Yani iki tane Ayşe Koş olabilir. Ancak Dosya numarası VE Müdafi VE Mahkemesavcilik da aynı olursa hata vermeli.
Cevapla
#16
Merhaba,
Son açıklamanıza göre düzenleme yaptım. Umarım anlamışımdır.
.rar Avukat_2 _sld.rar (Dosya Boyutu: 156,73 KB | İndirme Sayısı: 6)
Cevapla
#17
Hocam;

1-Yeni bir kayıt yaptığımda da, her durumda da "Bu kayıt daha önce girilmiş, farklı bir isim yazınız" uyarısı veriyor. 
2-Uyarı verse de mükerrer kayıt yapılabiliyor.
3-Sadece Dosya no yu değiştiriyorum ve tüm diğer bilgileri aynı yaptığım zaman da uyarı veriyor. Kaydı da yapıyor. 

Teşekkür ederim çok uğraştınız...
Cevapla
#18
Merhaba,

Sorunuzun içeriğinde form isimlerini belirtmediğiniz için bahsi geçen işlem "KAYIT GİRİŞ DENEME" isimli forma yapıldı.

Sizin bu formdaki mhkm isimli metin kutusunun çıkıldığında olayındaki kodda

Dim stLinkCriteria As String

kodunun hemen altına

DoCmd.RunCommand acCmdSaveRecord

kodu eklemeniz gerekiyor.

Bu formu test ediniz, çalışıyorsa kodu veri girişi yaptığınız forma ekleyiniz.

Private Sub mhkm_Exit(Cancel As Integer)
On Error GoTo Err_mhkm_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   DoCmd.RunCommand acCmdSaveRecord

   stDocName = "01_anatablo"
   
   stLinkCriteria = "[Sırano]=" & Me![Sırano]
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   
   Forms![01_anatablo]!mtn_mudafi = Me.Müdafi
   Forms![01_anatablo]!mtn_dosyano = Me.Dosyano
   Forms![01_anatablo]!mtn_mahkeme = Me.Mahkemesavcilik
   
Exit_mhkm_Click:
   Exit Sub

Err_mhkm_Click:
   MsgBox Err.Description
   Resume Exit_mhkm_Click
   
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