AccessTr.neT

Ofis 2010 da olan 2003'de olmuyor mu?

Merhaba, doğru mu anladım bilmiyorum ama "02_Magdursanık Altform" isimli forma kod ekledim. ALİ GEL isimli şahsı tekrar eklemeyi deneyiniz.

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.

Merhaba,
Son açıklamanıza göre düzenleme yaptım. Umarım anlamışımdır.

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...

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