(29/07/2018, 20:07)ozanakkaya yazdı: Önceki mesajımda da belirttiğim gibi. Ana form mevzusunu şimdi söylüyorsunuz. Müşteri formu yerine ana form içerisinde müşteri alt formu deseniz kodu ona göre yazacağım. 

Ana form içerisinde alt formda kullanılacak ise kodun 


Forms!anaform!altform.FORM.metinkutusu

Şeklinde olması gerekli.
Ayrıca kod içerisindeki ekleme sorgusu sadece 4 alanı aktarır. Diğer alanların aktarılması için insert into koduna sizin ekleme yapmanız gerekli.

Kodu aşağıdaki gibi düzenledim,ama yine hata veriyor.
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_FormAdi As String
Dim AccessTrneT_Kriter As String

AccessTrneT_FormAdi = "frm_Tedavi"
    
AccessTrneT_HastaSahibi = Forms!frm_Ana_Giris!frm_MusteriKayit!mtn_HASTASAHIBI
AccessTrneT_TCNO = Forms!frm_Ana_Giris!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
End Sub