Veri Tabanı Boş İse

1 2 3
13/01/2019, 20:52

zaferlacin

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
13/01/2019, 21:17

berduş

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
Kod:
Me.Liste1.Requery

olacak
13/01/2019, 21:25

berduş

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....
13/01/2019, 21:29

ozguryasin

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
13/01/2019, 21:37

berduş

@ozguryasin  hocam 
dao.recordset ile sizin belirttiğiniz adodb.recordset  arasındaki  fark nedir
hangisini ne zaman tercih etmeliyiz?
13/01/2019, 21:59

zaferlacin

özgüryasin hocam else without if  hatası geliyor
ilk else
1 2 3