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.