Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme.

Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - 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ığı: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. (/konu-form-iliskilendirmede-sinirlilik-iki-formda-ayni-veriyi-gosterme.html)

Sayfalar: 1 2 3

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - antoryum - 18/07/2018

O sorun da çözüldü : ) Teşekkürler

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - antoryum - 30/07/2018

Merhaba Ozan bey.
Bazı metin kutusu verilerini birleşik giriş kutusuna çevirdim. Bu sebeple diğer formdaki eş değer veriler değişmez oldu. Bunu nasıl düzeltebilirim ?

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - ozanakkaya - 30/07/2018

Merhaba,

Son örneğinizdeki butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.

Dim accesstr_kod As Integer



If IsNull(Me.IS_NO) Or Me.IS_NO = "" Then



    MsgBox ("Detay Bilgisi Görebilmeniz İçin Veri Girişi Yapmalısınız")



Exit Sub



End If



strsql = "SELECT * FROM IS_BILGISI_TABLO "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    

    

     With rstkayit

        .Find "[islem_id]=" & Me.Metin3

            If Not rstkayit.EOF Then

            MsgBox ("var, güncelle")

                .Fields("islem_id") = Me.Metin3

                .Fields("motor") = Me.motor

                .Fields("guc") = Me.guc

                .Fields("devir") = Me.DEVIR_DOLU

                .Fields("devir") = Me.DEVIR_BOS

                .Fields("sanziman") = Me.TRANSMISSION

                .Fields("pervane_cap") = Me.pervane_cap

                .Fields("pervane_pitch") = Me.PITCH

                .Fields("sag_sol") = Me.SAG_SOL

                .Fields("kanat_sayisi") = Me.ADET

                .Fields("surat") = Me.surat

                .Fields("pervane_modeli") = Me.MODEL

                .Fields("oran") = Me.oran

                .Update

             Else

             MsgBox ("yok ekle")

                .AddNew

                .Fields("islem_id") = Me.Metin3

                .Fields("motor") = Me.motor

                .Fields("guc") = Me.guc

                .Fields("devir") = Me.DEVIR_DOLU

                .Fields("devir") = Me.DEVIR_BOS

                .Fields("sanziman") = Me.TRANSMISSION

                .Fields("pervane_cap") = Me.pervane_cap

                .Fields("pervane_pitch") = Me.PITCH

                .Fields("sag_sol") = Me.SAG_SOL

                .Fields("kanat_sayisi") = Me.ADET

                .Fields("surat") = Me.surat

                .Fields("pervane_modeli") = Me.MODEL

                .Fields("oran") = Me.oran

                 .Update

             End If

        End With

    

    

    

   



DoCmd.OpenForm "IS_BILGISI_FORM", acNormal, , "[islem_id]= " & Me.Metin3, , acWindowNormal

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - antoryum - 30/07/2018

Teşekkürler Ozan hocam. Kayıt güncellemede sorun yok. Butona bastığım zaman eğer kayıt yok ise "yok ekle" diye bir uyarı mesajı çıkıyor. Kayıt varsa "var,güncelle" yazıyor. Sanırım bunlar benim ödevim oluyorlar Img-grin

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - ozanakkaya - 31/07/2018

Merhaba, kod içerisine test amaçlı mesaj kutusu eklemiştim. Bu msgboxları kaldırabilirsiniz.

Cvp: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme. - antoryum - 07/08/2018

Teşekkürler Ozan hocam. Sorun çözüldü.