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
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.
Sayfalar: 1 2 3 4