30/07/2018, 10:27
Küpe No alanına çift tıkladığınızda formun ana formda alt form olarak açılmasını istiyorsan aşağıdaki kodu kullanmalısın.
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
Forms![frm_Ana_Giris]![frm_Tedavi].Visible = True
Forms![frm_Ana_Giris]![frm_Tedavi].Form.Filter = "[KUPENO]='" & Me.mtn_KUPENO & "'"
Forms![frm_Ana_Giris]![frm_Tedavi].Form.FilterOn = True
Forms![frm_Ana_Giris]![frm_Tedavi].SetFocus
Forms![frm_Ana_Giris]![frm_MüsteriKayit].Visible = False