AccessTr.neT

Tam Versiyon: Çift Tıklama İle Veriye Dayalı Form Açmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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
Sayfalar: 1 2 3 4