Tedavi formunuzun kayıt kaynağı Müşteri tablosu olarak belirlenmiş ve yüklendiğinde olayında yeni kayıt kodu var.
Tedavi formunun kayıt kaynağı tedavi tablosu olması gerekli ve yüklendiğinde olayındaki yeni kayıt kodu silinmeli.

frm_MusteriKayit isimli formda bulunan "Hasta Kayıt" isimli alt formdaki "mtn_KUPENO" metin kutusunun çift tıklandığında olayına

Dim VarMi As Integer

Dim AccessTrneT_HastaSahibi As String

Dim AccessTrneT_TCNO As String

Dim AccessTrneT_KUPENO As String

Dim AccessTrneT_FormAdi As String

Dim AccessTrneT_Kriter As String



AccessTrneT_FormAdi = "frm_Tedavi"

    

AccessTrneT_HastaSahibi = Forms!Frm_MusteriKayit!mtn_HASTASAHIBI

AccessTrneT_TCNO = Forms!Frm_MusteriKayit!mtn_TCKIMLIKNO

AccessTrneT_KUPENO = Me.mtn_KUPENO



VarMi = DCount("MUSID", "tbl_Tedavi", "[KUPENO]='" & Me.mtn_KUPENO & "'")



If VarMi = 0 Then

    DoCmd.SetWarnings False

    DoCmd.RunSQL "INSERT INTO tbl_Tedavi (TEDAVITARIHI, HASTASAHIBI, TCKIMLIKNO, KUPENO) VALUES ('" & Date & "', '" & AccessTrneT_HastaSahibi & "', '" & AccessTrneT_TCNO & "', '" & AccessTrneT_KUPENO & "')"

    DoCmd.SetWarnings True

End If



AccessTrneT_Kriter = "[KUPENO]=" & "'" & Me![mtn_KUPENO] & "'"

DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter

Kodu eklerseniz, tbl_tedavi tablosunda küpeno nun olup olmadığına bakar,yok ise TEDAVITARIHI, HASTASAHIBI, TCKIMLIKNO, KUPENO verilerini tbl_tedavi tablosuna aktarır, daha sonra ilgili kaydı açtırır.

Öncelikle tedavi formunuzun kayıt kaynağını düzeltin.

Ayrıca, kodlar içerisinde frm_Ana_Giris mevzusu dönüyor, ancak siz bununla ilgili herhangi bir bilgi vermiyorsunuz. Bu işlemler frm_Ana_Giris isimli formun içerisindeki altformda yapılacak ise önceden konu hakkında bilgi vermeniz gerekli.

Sonraki cevabınız muhtemelen "Olmadı" olacaktır.