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