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
