dim rs as new adodb.recordset 'rs adında bağlantı oluşturacağımızı belirtiyoruz
rs.open "Tabloadi", currentproject.connection, adopenkeyset, adlockoptimistic ' bağlantıyı kuruyoruz
if rs.eof=true then goto 1453 'tablo içine bakıyoruz. tablo içi boş ise 1453 numara ile bizi isteiğimiz yere göürüyor.
'Tablo içi boş değil ise alttaki kodları çalıştırıyor.
DoCmd.SetWarnings False
DoCmd.OpenQuery "SQLTablo1Ekle"
DoCmd.SetWarnings True
Me.Liste5.Requery
Me.Recordset.MoveFirst
else
Me.Recordset.MoveFirst
rs.FindFirst "[odmtrh] Like '" & Me.Metin51 & "'"
If Not rs.NoMatch Then
Me.Bookmark = rs.Bookmark
MsgBox ("kayıt var")
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "SQLTablo1Ekle"
DoCmd.SetWarnings True
Me.Liste5.Requery
1453
Son Düzenleme: 13/01/2019, 22:13, Düzenleyen: zaferlacin.
