AccessTr.neT

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

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 ?

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

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

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

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