ERRO, BOF OU EOF VERDADEIROS

USUARIO.EXCLUIDOS 21/09/2010 12:02:57
#353495
Boa Tarde, Pessoal do forum.

To com o seguinte problema, ao cadastra um novo produto, no banco de dados access, ta o seguinte erro:

BOF OU EOF SÃO VERDADIROS, OU O REGISTRO ATUAL FOI EXCLUIDO. A OPERAÇÃO SOLICITADA PELO APLICATIVO REQUER UM REGISTRO ATUAL.

O codigo do Botão Adicionar segue logo abaixo.

If txtProdCodBarras.Text = [Ô][Ô] Or txtProdDesc.Text = [Ô][Ô] Then
MsgBox [Ô]Verifique se os Campos Código de Barras; Descrição do Produto e Preço de Venda estão preenchidos.[Ô], [Ô]vbCritical[Ô], [Ô]SOFGSL[Ô]
Exit Sub
End If

Dim rs As New ADODB.Recordset
rs.Open [Ô]tblProduto[Ô], con, adOpenDynamic, adLockPessimistic
rs.Filter = [Ô]CodigoBarras=[Ô] & txtProdCodBarras.Text & [Ô][Ô]

If rs.EOF Then
rs!CodigoBarras = txtProdCodBarras.Text
rs!Referencia = txtProdRef.Text
rs!Produto = txtProdDesc.Text
rs!Secao = txtProdSecao.Text
rs!Grupo = txtProdGrupo.Text
rs!Tabela = txtProdTabela.Text
rs!Localizacao = txtProdLocal.Text
rs!pesavel = txtProdPesavel
rs!validade = txtProdValid
rs!lote = txtProdLote.Text
rs!Unidade = txtProdUnidade.Text
rs!Fabricante = txtProdFabricante.Text
rs!Fornecedor = txtProdFornecedor.Text
rs!EstMinimo = txtProdEstMinimo.Text
rs!Estoque = txtProdEstAtual.Text
rs!PrCusto = txtProdPrecoCusto
rs!Comissao = txtProdComissao.Text
rs!Lucro = txtProdLucro
rs!PrVenda = txtProdPrecoVenda
rs!Promocao = txtProdPromo
rs!PrPromocao = txtProdVlrProm
rs!FimPromocao = txtProdFimProm
rs!Tributacao = txtProdSitTribut.Text
rs.Update
MsgBox [Ô]Dados Salvo com Sucesso![Ô], vbInformation
End If


Lembrando que tem alguns campos que usa o componente (CTLENTRADA)
FUTURA 21/09/2010 12:27:15
#353496 Resposta escolhida
amigo, não é o melhor padrão pra se usar, mas ai no caso, qdo vc coloca:

if rs.eof then -----> tem q colocar o new.
rs.addnew
endif
e depois continua.
rs!CodigoBarras = txtProdCodBarras.Text
rs!Referencia = txtProdRef.Text
rs!Produto = txtProdDesc.Text

pois rs.eof é verdadeiro e vc não esta criando um novo registro vazio pra receber os dados.
USUARIO.EXCLUIDOS 21/09/2010 19:23:00
#353538
Boa noite amigo, Futuro..

Rapaz exato, falto o rs.AddNew, não percebi ae quando começou esse erro, fiquei meio cego, sem perceber o erro, hoje foi daqueles dias, com muitos clientes pedindo suporte.

abraço
Tópico encerrado , respostas não são mais permitidas
Voltar