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.