Hocam haklısınız ama ben Büyük yazıyorum yazmasınada otomatik olarak değişiyor,
Son hali ekte
Private Sub mtn_KUPENO_DblClick(Cancel As Integer)
Dim VarMi As Integer
Dim AccessTrneT_HastaSahibi As String
Dim AccessTrneT_TCNO As String
Dim AccessTrneT_KUPENO As String
Dim AccessTrneT_CINSI As String
Dim AccessTrneT_CINSIYETI As String
Dim AccessTrneT_GRUB As String


Dim AccessTrneT_FormAdi As String
Dim AccessTrneT_Kriter As String

AccessTrneT_FormAdi = "frm_Tedavi"
    
AccessTrneT_HastaSahibi = Forms!frm_MusteriKayit.Form.mtn_HASTASAHIBI
AccessTrneT_TCNO = Forms!frm_Ana_Giris!frm_MusteriKayit.Form.mtn_TCKIMLIKNO
AccessTrneT_KUPENO = Me.mtn_KUPENO
AccessTrneT_CINSI = Me.mtn_CINSI
AccessTrneT_CINSIYETI = Me.mtn_CINSIYETI
AccessTrneT_KUPENO = Me.mtn_GRUB

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,CINSI,CINSIYETI,GRUB) VALUES ('" & Date & "', '" & AccessTrneT_HastaSahibi & "', '" & AccessTrneT_TCNO & "', '" & AccessTrneT_KUPENO & "', '" & AccessTrneT_CINSI & "', '" & AccessTrneT_CINSIYETI & "', '" & AccessTrneT_GRUB & "')"


    DoCmd.SetWarnings True
End If

AccessTrneT_Kriter = "[KUPENO]=" & "'" & Me![mtn_KUPENO] & "'"
DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter