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



accesstr_kod = Nz(DCount("Kimlik", "IS_BILGISI_TABLO", "[islem_id]= " & Nz(Me.IS_NO, 0)), 0)



If accesstr_kod > 0 Then



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



Else



strsql = "SELECT * FROM IS_BILGISI_TABLO "

    Set rstkayit = New ADODB.Recordset

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

   

 With rstkayit



            If Not rstkayit.EOF Then



                .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.IS_NO, , acWindowNormal



End If

Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.