Sayın hocam,
Görünmüyor hocam

Saygılar.

Ana formdaki alt formun adı frm_MusteriKayit mı?

Hayır hocam
HastaKayit

Merhaba. HastaKayit ise niye koda

Forms!frm_Ana_Giris!Frm_MusteriKayit!form.mtn_HASTASAHIBI

yazıyorsunuz? Frm_MusteriKayit yerine alt formunuzun adını yazın.

Sayın Hocam,
1.msj.açıklamasını yapmışım,

frm_Ana_Giris adlı Giriş Form üzerinde çalışan Müşteri Kayit formunda Hasta Kayıt alt formu var.

Müşteri Kayıt formunda "Hastasahibi" ve "TCKİMLİKNO" alanlarının,
HastaKayıt alt formunda  ise "Küpeno,Cinsi,Cinsiyeti ve Grub" alanları bulunmakta,
Aynı alanlar,
Tedavi formunda da bulunmakta,
Müşteri Kayıt ve HastaKayıt formlardaki verilerin Tedavi formuna aktarmak için,  Küpe Noya göre Tedavi formunu açtırmak.
Saygılar.

1. mesaja yazdınız, ancak ben nasıl anlatabilirim bilmiyorum. 

Alt form adı ne ise Onu yazacaksınız ki Access alt formu bulacak alt formdaki metin kutusunu bulup veriyi getirecek. 

Forms!anaform!altform.FORM.metinkutusu

Form büyük harfler ile yazmamın sebebi hatanızı eksik kodu görebilmeniz. Ben yazdıktan sonraki hiç bir mesajınıza FORM yok. 

Forms!frm_Ana_Giris!HastaKayit!form.mtn_HASTASAHIBI

Alt formun adı HastaKayit ise kod bu Hasta Kayıt ise [Hasta Kayıt] yazmanız gerekli.


Alt formunuzun adı ne "frm_MusteriKayit" ne de "HastaKayit". Alt formunuzun adı "frm_MüsteriKayit". Bu durumda kodun aşağıdaki gibi olması gerekiyor.

Forms![frm_Ana_Giris]![frm_MüsteriKayit].Form![mtn_HASTASAHIBI]

(29/07/2018, 20:07)ozanakkaya yazdı: Forms!anaform!altform.FORM.metinkutusu

(29/07/2018, 21:26)ozanakkaya yazdı: Forms!frm_Ana_Giris!frm_MusteriKayit.Form.mtn_TCKIMLIKNO

(29/07/2018, 23:55)ozanakkaya yazdı: Forms!frm_Ana_Giris!Frm_MusteriKayit!form.mtn_HASTASAHIBI

yazıyorsunuz? Frm_MusteriKayit yerine alt formunuzun adını yazın.

Kodun tamamının da aşağıdaki gibi olması gerekiyor.

Dim VarMi As Integer

Dim AccessTrneT_HastaSahibi As String

Dim AccessTrneT_TCNO As String



Dim AccessTrneT_FormAdi As String

Dim AccessTrneT_Kriter As String



AccessTrneT_FormAdi = "frm_Tedavi"

    

AccessTrneT_HastaSahibi = Forms![frm_Ana_Giris]![frm_MüsteriKayit].Form![mtn_HASTASAHIBI]

AccessTrneT_TCNO = Forms![frm_Ana_Giris]![frm_MüsteriKayit].Form![mtn_TCKIMLIKNO]





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 & "', '" & Me.mtn_KUPENO & "', '" & Me.mtn_CINSI & "', '" & Me.mtn_CINSIYETI & "', '" & Me.mtn_GRUB & "')"





    DoCmd.SetWarnings True

End If



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



DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter