Veri Tabanı Boş İse - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Veri Tabanı Boş İse (/konu-veri-tabani-bos-ise.html) |
Veri Tabanı Boş İse - zaferlacin - 13/01/2019 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 Cvp: Veri Tabanı Boş İse - berduş - 13/01/2019 Kod:
If DCount("*", "tablo2") = 0 Then 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 hem de liste ismi yanlış (13/01/2019, 20:52)zaferlacin yazdı: Me.Liste5.Requery doğrusu Kod:
Me.Liste1.Requery Cvp: Veri Tabanı Boş İse - berduş - 13/01/2019 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.... Cvp: Veri Tabanı Boş İse - ozguryasin - 13/01/2019 Kod:
if rs.eof=true then goto 1453
Cvp: Veri Tabanı Boş İse - berduş - 13/01/2019 @ozguryasin hocam dao.recordset ile sizin belirttiğiniz adodb.recordset arasındaki fark nedir hangisini ne zaman tercih etmeliyiz? Cvp: Veri Tabanı Boş İse - zaferlacin - 13/01/2019 özgüryasin hocam else without if hatası geliyor ilk else |