+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çift Tıklama İle Veriye Dayalı Form Açmak (/konu-cift-tiklama-ile-veriye-dayali-form-acmak.html)
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 29/07/2018
Sayın hocam,
Görünmüyor hocam
Saygılar.
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 29/07/2018
Ana formdaki alt formun adı frm_MusteriKayit mı?
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 29/07/2018
Hayır hocam
HastaKayit
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 29/07/2018
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.
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 30/07/2018
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.
Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 30/07/2018
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].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