Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Veri Tabanı Boş İse

zaferlacin
zaferlacin
Access Cevaplanmış Soruları
14
2375

Veri Tabanı Boş İse

Çözüldü #1
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 56
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
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
.rar Veri yoksa.rar (Dosya Boyutu: 31 KB | İndirme Sayısı: 2)
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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
Cevapla
#3
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
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....
Cevapla
#4
ozguryasin
Uzman
ozguryasin
www Bul
Uzman
Adı Soyadı: Öz.... Ya....
Yaşı: 42
Konum: Bursa
Ofis Versiyonu: Ofis 2016 32 Bit
Son Oturumu: 07/07/2024,04:49
Yorumları: 1.176
Konuları: 43
Kayıt Tarihi: 23/09/2009
Teşekkür Puanı: 616
Mesleğiniz: Yazılım
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:29
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
@ozguryasin  hocam 
dao.recordset ile sizin belirttiğiniz adodb.recordset  arasındaki  fark nedir
hangisini ne zaman tercih etmeliyiz?
Cevapla
#6
zaferlacin
Aktif Üye
zaferlacin
Bul
Aktif Üye
Adı Soyadı: Za.... La....
Yaşı: 56
Konum: Balıkesir
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 28/11/2022,23:34
Yorumları: 182
Konuları: 46
Kayıt Tarihi: 11/08/2013
Teşekkür Puanı: 0
Mesleğiniz: Emekli
özgüryasin hocam else without if  hatası geliyor
ilk else
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da