erro de registro 1+1


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: erro de registro 1+1

Rochª

RIO DE JANEIRO
RJ - BRASIL

Postada em 01/10/2004 10:27 hs

Edson,

Na tabela CADASTRO não existe o campo INDCODIGO, por isso o erro. Não sei qual o campo que deve ser o codigo (chave) da tabela, coloquei o primeiro que normalmente é. Ficou assim

    Set Tbcadastro = BancoDeDados.OpenRecordset("Select max(bd_Ordem_Ser) as indcodigo From cadastro")
    If Tbcadastro.EOF Then
        txt_Ordem_Ser = 1
    Else
        txt_Ordem_Ser = Tbcadastro.Fields("IndCodigo") + 1
    End If

Assim ele vai gerar o maximo e colocar como nome de INDCODIGO. Desta forma não sera necessario alterar todo o programa para colocar o nome bd_Ordem_Ser.

Veja se ajuda.

__________________________________________________________________________

Qualquer coisa post

Rochª

Edson

SÃO PAULO
SP - BRASIL

Postada em 01/10/2004 11:52 hs

dar um erro 3027 não é possivel atualizar objeto somente leitura.

já olhei é ele não ta com somente leitura

erra na linha "Tbcadastro.AddNew"

Vila
não registrado

Postada em 01/10/2004 17:43 hs

Se for pagar o último código e acrescentar mais um, vc. pode fazer assim:

Form1.Text1.Text = "SELECT MAX(codigo) FROM teste2"

Set rs = db.OpenRecordset(Form1.Text1.Text)

If Not rs.EOF Then

If Not IsNull(rs(0)) Then

Form1.Text1.Text = Format$(Val(rs(0) + 1), "00000")

Else

Form1.Text1.Text = "00001"

End If

Aqui funcionou certinho

Vila

Edson

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 01/10/2004 18:08 hs

a dica do rocha e do vila, ele está criando +1 registro só que agora ele da um erro de

"ñ e possivel atualiza objeto somente leitura" nesta comando

Private Sub incluir_Click()
    novo.Enabled = False
    incluir.Enabled = False
    gravar.Enabled = True
    alterar.Enabled = False
    cancelar.Enabled = True
    consulta.Enabled = False
    Tbcadastro.AddNew      'nesta linha

txt_Ordem_Ser.Enabled = False

End Sub
eu vou começo o projeto denovo, devo de cometo bolo

obrigado todos vc e me deculpa por ser petelho

tenho um bom fim de semana a todos vc, ah não se esqueça que domingos e dia de volta.

Página(s): 3/3 « ANTERIOR

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR