PROBLEMA COM EOF E BOF
eu entendi o problema, de fato era na query q eu mandava trazer apenas quando o verificador for 0
mas tem alguma forma de verificar se o recordset esta vazio para prevenir que de esse erro de bof ou eof antes?
mas tem alguma forma de verificar se o recordset esta vazio para prevenir que de esse erro de bof ou eof antes?
sim, igual vc fez no primeiro if.
if not rim.eof then ---> essa linha verifica se a recordset está vazia. se retornar True está vazia, senao é pq trouxe registros
EOF - quando não há mais registros a frente da recordset ou seja no movenext
BOF - quando não há mais registros para tras da recordset ou seja moveprevious
if not rim.eof then ---> essa linha verifica se a recordset está vazia. se retornar True está vazia, senao é pq trouxe registros
EOF - quando não há mais registros a frente da recordset ou seja no movenext
BOF - quando não há mais registros para tras da recordset ou seja moveprevious
blz, valeu!!!
consegui aqui... obrigadão mesmo...
só mais uma duvida, tem como eu colocar algum comando para verificar se um campo existe sem dar erro?
consegui aqui... obrigadão mesmo...
só mais uma duvida, tem como eu colocar algum comando para verificar se um campo existe sem dar erro?
nao entendi. q tipo de campo? de uma tabela?
sim...
tipo, pra quando o programa iniciar, verificar no banco do access se um campo está presente, se não estiver, criar
tipo, pra quando o programa iniciar, verificar no banco do access se um campo está presente, se não estiver, criar
bem vc pode ter um vetor com os nomes das tabelas e dos campos.
ex.:
tabela Produtos
vetProds(0) = [Ô]Chave[Ô]
vetProds(1) = [Ô]Descricao[Ô]
etc...
dai vc faz o seguinte
dimTabela as TableDef
dim campo as field
set tabela = db.tabledefs([Ô]Produtos[Ô])
for each campo in tabela.fields
for i = 0 to ubound(vetProds)
if ucase(vetProds(i)) = ucase(campo.name) then
tem_Campo = True
end if
next
if tem_campo = false then
Tabela.CreateField(vetProds(i), Tipo, 255) [ô][Ô]tipo[Ô] tipo do campo se é numérico, texto etc...
end if
next
obs.
esses exemplos que dei é usando o vb com o access e usando DAO. mas acredito q deve ser + ou - pos ai usando outras formas
espero ter ajudado
ex.:
tabela Produtos
vetProds(0) = [Ô]Chave[Ô]
vetProds(1) = [Ô]Descricao[Ô]
etc...
dai vc faz o seguinte
dimTabela as TableDef
dim campo as field
set tabela = db.tabledefs([Ô]Produtos[Ô])
for each campo in tabela.fields
for i = 0 to ubound(vetProds)
if ucase(vetProds(i)) = ucase(campo.name) then
tem_Campo = True
end if
next
if tem_campo = false then
Tabela.CreateField(vetProds(i), Tipo, 255) [ô][Ô]tipo[Ô] tipo do campo se é numérico, texto etc...
end if
next
obs.
esses exemplos que dei é usando o vb com o access e usando DAO. mas acredito q deve ser + ou - pos ai usando outras formas
espero ter ajudado
blz velho, me ajudaram muito
muito obrigado pela atenção e pela força!
muito obrigado pela atenção e pela força!
Tópico encerrado , respostas não são mais permitidas