Çift Tıklama İle Veriye Dayalı Form Açmak - Baskı Önizleme +- 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 - fascioğlu - 29/07/2018 (29/07/2018, 17:55)ozanakkaya yazdı: AccessTrneT_HastaSahibi = Forms!Frm_MusteriKayit!mtn_HASTASAHIBIHocam Kodda yukarıdaki hatayı veriyor,MusteriKayıt formu bulunamadı diyor, Kodu aşağıdaki gibi AccessTrneT_HastaSahibi = Forms!frm_Ana_Giris!Frm_MusteriKayit!mtn_HASTASAHIBI düzenledim aynı hatayı veriyor,ayrıca tedavi formuna,CINSİ,CINSİYETİ VE GRUB'u aktarmıyor. Saygılarımla. Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 29/07/2018 Önceki mesajımda da belirttiğim gibi. Ana form mevzusunu şimdi söylüyorsunuz. Müşteri formu yerine ana form içerisinde müşteri alt formu deseniz kodu ona göre yazacağım. Ana form içerisinde alt formda kullanılacak ise kodun Forms!anaform!altform.FORM.metinkutusu Şeklinde olması gerekli. Ayrıca kod içerisindeki ekleme sorgusu sadece 4 alanı aktarır. Diğer alanların aktarılması için insert into koduna sizin ekleme yapmanız gerekli. Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 29/07/2018 (29/07/2018, 20:07)ozanakkaya yazdı: Önceki mesajımda da belirttiğim gibi. Ana form mevzusunu şimdi söylüyorsunuz. Müşteri formu yerine ana form içerisinde müşteri alt formu deseniz kodu ona göre yazacağım.Kodu aşağıdaki gibi düzenledim,ama yine hata veriyor. Private Sub mtn_KUPENO_DblClick(Cancel As Integer) Dim VarMi As Integer Dim AccessTrneT_HastaSahibi As String Dim AccessTrneT_TCNO As String Dim AccessTrneT_KUPENO As String Dim AccessTrneT_FormAdi As String Dim AccessTrneT_Kriter As String AccessTrneT_FormAdi = "frm_Tedavi" AccessTrneT_HastaSahibi = Forms!frm_Ana_Giris!frm_MusteriKayit!mtn_HASTASAHIBI AccessTrneT_TCNO = Forms!frm_Ana_Giris!frm_MusteriKayit!mtn_TCKIMLIKNO AccessTrneT_KUPENO = Me.mtn_KUPENO 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) VALUES ('" & Date & "', '" & AccessTrneT_HastaSahibi & "', '" & AccessTrneT_TCNO & "', '" & AccessTrneT_KUPENO & "')" DoCmd.SetWarnings True End If AccessTrneT_Kriter = "[KUPENO]=" & "'" & Me![mtn_KUPENO] & "'" DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter End Sub Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 29/07/2018 Bir önceki mesajımda yazdığım örnek kodda arada büyük harfler ile FORM yazıyor. Sizin kodda yazıyor mu?? Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - fascioğlu - 29/07/2018 Hocam haklısınız ama ben Büyük yazıyorum yazmasınada otomatik olarak değişiyor, Son hali ekte Private Sub mtn_KUPENO_DblClick(Cancel As Integer) Dim VarMi As Integer Dim AccessTrneT_HastaSahibi As String Dim AccessTrneT_TCNO As String Dim AccessTrneT_KUPENO As String Dim AccessTrneT_CINSI As String Dim AccessTrneT_CINSIYETI As String Dim AccessTrneT_GRUB As String Dim AccessTrneT_FormAdi As String Dim AccessTrneT_Kriter As String AccessTrneT_FormAdi = "frm_Tedavi" AccessTrneT_HastaSahibi = Forms!frm_MusteriKayit.Form.mtn_HASTASAHIBI AccessTrneT_TCNO = Forms!frm_Ana_Giris!frm_MusteriKayit.Form.mtn_TCKIMLIKNO AccessTrneT_KUPENO = Me.mtn_KUPENO AccessTrneT_CINSI = Me.mtn_CINSI AccessTrneT_CINSIYETI = Me.mtn_CINSIYETI AccessTrneT_KUPENO = Me.mtn_GRUB 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 & "', '" & AccessTrneT_KUPENO & "', '" & AccessTrneT_CINSI & "', '" & AccessTrneT_CINSIYETI & "', '" & AccessTrneT_GRUB & "')" DoCmd.SetWarnings True End If AccessTrneT_Kriter = "[KUPENO]=" & "'" & Me![mtn_KUPENO] & "'" DoCmd.OpenForm AccessTrneT_FormAdi, , , AccessTrneT_Kriter Cvp: Çift Tıklama İle Veriye Dayalı Form Açmak - ozanakkaya - 29/07/2018 Forms!frm_MusteriKayit.Form.mtn_HASTASAHIBI Bu kod hatalı, alt form isminin doğru olduğunu versayarsak hemen altındaki kod doğru. Çift tıklama olayından kodun tamamını sil. Msgbox (Forms!frm_Ana_Giris!frm_MusteriKayit.Form.mtn_TCKIMLIKNO) Kodu ekle. Tcnin mesaj kutusunda görünüp görünmediğine bak. |