Çift Tıklama İle Veriye Dayalı Form Açmak

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

Sayın Ozan bey,
Emeğiniz için sonsuz tşk.
Konu çözülmüştür.
Saygılarımla.