if veritabanım boş ise ////buraya ne yazmalıyım ki yada kodlarda başka hata varmıdır teşekkür ederim
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
Kod:
If DCount("*", "tablo2") = 0 Then
kodunu dener misiniz?
yalnız gönderdiğiniz dosyada hem sorgu yanlış
(13/01/2019, 20:52)zaferlacin yazdı: DoCmd.OpenQuery "SQLTablo1Ekle"
doğrusu
Kod:
DoCmd.OpenQuery SQLTablo2Ekle
olacaktı
hem de liste ismi yanlış
(13/01/2019, 20:52)zaferlacin yazdı: Me.Liste5.Requery
doğrusu
olacak
ve emin değilim ama recordseti bu hali ile kullanamazsınız
önceden tanımlamış olmanız gerek
mesela
dim rs as dao.recordset
dim txtSQL as string
txtsql="" //// buraya sorgunuzun içeriği yazılacak
set rs=currentdb.openrecordset("txtSQL")
vs vs....
Kod:
if rs.eof=true then goto 1453
ayrıca kodlarınızın sonuna 1453 yazar iseniz tabloda veya sorgunuzda satır yok ise işlemi sonlandırır. hata almazsınız.
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
@
ozguryasin hocam
dao.recordset ile sizin belirttiğiniz
adodb.recordset arasındaki fark nedir
hangisini ne zaman tercih etmeliyiz?
özgüryasin hocam else without if hatası geliyor
ilk else