+- 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 - ozanakkaya - 30/07/2018
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 = FalseCvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 30/07/2018
Sayın Ozan bey,
Emeğiniz için sonsuz tşk.
Konu çözülmüştür.
Saygılarımla.