COMO FACO PARA VERIFICAR SE A TB DO BD ESTA VAZIA

UNIAO 01/04/2005 10:11:59
#76123 Resposta escolhida

if Prov.Recordcount = 0 then
msgbox "Banco de Dados vazio", vbinformation, "Sistema"
else
banco.Execute("Delete NomeTabela")
end if

USUARIO.EXCLUIDOS 01/04/2005 10:12:12
#76124

Usando o Data

While DEstoque.Recordset.EOF = False
DEstoque.Recordset.Delete
DEstoque.Recordset.MoveNext
Wend

TROVAM 01/04/2005 17:41:36
#76278

'Para usar essa rotina vc tem q fazer referência ao DAO
Sub VerificaDB()
dim Db as Database
dim Rd as recordset
dim Sql as string

set db = opendatabase("c:\BD\Teste.mdb")
sql = "select * from [Prov]"
set rd = db.openrecordset(sql)

if rd.eof then
msgbox "Tabela vazia!"
else
sql = "delete * from [Prov]"
db.execute(sql)
endif

rd.close
db.close
End Sub

Até mais...