Tüm arkadaşlarıma iyi akşamlar dilerim. Aşağıda gönderdiğim Vb kodunda formdaki kriterlere göre ilgili tabloda kayıt bulup güncelleme yapıyorum. Sorun şu Eğer bu kriterlerden birine uygun bir kayıt yoka güncellemeyi pas geçip tabloda yeni bir kayda gidip kayıt yapabilirmiyiz. Yadımlarınız için teşekkür ederim. Saygılarımla.
Kodumuz;

Private Sub L7_DblClick(Cancel As Integer)

Dim Kriter As String

If Len(Me.birimkodu) > 0 Then

Kriter = Kriter & "tbl_brmkodu LIKE '%" & Me.birimkodu & "%' AND "

End If

If Len(Me.aktiftarih) > 0 Then

Kriter = Kriter & "tbl_tarih LIKE '%" & Me.aktiftarih & "%' AND "

End If

If Len(Me.islmkodu) > 0 Then

Kriter = Kriter & "tbl_islmkodu LIKE '%" & Me.islmkodu & "%' AND "

End If

If Len(Me.islmaltadı) > 0 Then

Kriter = Kriter & "tbl_islmaltadı LIKE '%" & Me.islmaltadı & "%' AND "

End If

If Len(Kriter) > 0 Then

Kriter = " WHERE " & Left(Kriter, Len(Kriter) - 4)

End If



'Bu kriterlere uygun kayıt varsa güncellemeyi yapıyor

'Eğer bu kriterlere uygun kayıt yoksa yeni kayda gidip bilgi kaydnı yapsın



strSQl = "SELECT * FROM tbl_olaylar " & Kriter & ";"

Set rstkayit = New ADODB.Recordset

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

With rstkayit

.Update

.Fields("tbl_brmkodu") = Forms![frm_trhdizini].Form![birimkodu]

.Fields("tbl_tarih") = Forms![frm_trhdizini].Form![aktiftarih]

.Fields("tbl_islmkodu") = Me.[islmkodu]

.Fields("tbl_kö") = Me.[sayı1]

.Fields("tbl_ke") = Me.[sayı1]

.Update

End With

End Sub