(29/07/2018, 17:55)ozanakkaya yazdı: AccessTrneT_HastaSahibi = Forms!Frm_MusteriKayit!mtn_HASTASAHIBI

Hocam Kodda yukarıdaki hatayı veriyor,MusteriKayıt formu bulunamadı diyor,
Kodu aşağıdaki gibi
AccessTrneT_HastaSahibi = Forms!frm_Ana_Giris!Frm_MusteriKayit!mtn_HASTASAHIBI
düzenledim aynı hatayı veriyor,ayrıca tedavi formuna,CINSİ,CINSİYETİ VE GRUB'u aktarmıyor.
Saygılarımla.

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

(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

Bir önceki mesajımda yazdığım örnek kodda arada büyük harfler ile FORM yazıyor. Sizin kodda yazıyor mu??

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

Forms!frm_MusteriKayit.Form.mtn_HASTASAHIBI

Bu kod hatalı, alt form isminin doğru olduğunu versayarsak hemen altındaki kod doğru.

Çift tıklama olayından kodun tamamını sil.

Msgbox (Forms!frm_Ana_Giris!frm_MusteriKayit.Form.mtn_TCKIMLIKNO)

Kodu ekle. Tcnin mesaj kutusunda görünüp görünmediğine bak.