29/07/2018, 22:47
Çift Tıklama İle Veriye Dayalı Form Açmak
29/07/2018, 22:59
ozanakkaya
Ana formdaki alt formun adı frm_MusteriKayit mı?
29/07/2018, 23:09
fascioğlu
Hayır hocam
HastaKayit
HastaKayit
29/07/2018, 23:55
ozanakkaya
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.
Forms!frm_Ana_Giris!Frm_MusteriKayit!form.mtn_HASTASAHIBI
yazıyorsunuz? Frm_MusteriKayit yerine alt formunuzun adını yazın.
30/07/2018, 00:18
fascioğlu
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.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.
30/07/2018, 04:52
ozanakkaya
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.
Kodun tamamının da aşağıdaki gibi olması gerekiyor.
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].Formozanakkaya 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