
	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ultimo Registro +1

Milton
não registrado

ENUNCIADA !

Postada em 21/09/2004 00:13 hs

Eu uso DAO e tenho tb "Mercadoria" no Access q tem um campo registro.
Preciso de uma rotina q, quando eu apertar o botao "novo".
pegue o ultimo registro e some +1
Como posso fazer isso

Mateus

AMADORA
PT - PORTUGAL

Postada em 21/09/2004 07:53 hs

Não uso DAO, no entanto o exemplo seguinte(ADO) devidamente adaptado, serve perfeitamente(pelo menos dá para ver o esquema):

Public Function ObterCodigo() As String

Dim strCod As String, intMaxCod As Integer

Set rstMovimentos = New ADODB.Recordset

rstMovimentos.CursorLocation = adUseServer

rstMovimentos.Open "SELECT max(id_movimento)from tMovimentos where mid(tmovimentos.id_movimento,1,4)= '" & inicio & "'", dbDados, adOpenKeyset, adLockReadOnly, adCmdText

If IsNull(rstMovimentos.Fields(0)) Then

ant = inicio & "000000"

ObterCodigo = ant + 1

Else

ant = rstMovimentos.Fields(0).Value

ObterCodigo = ant + 1

End If

Set rstMovimentos = Nothing

João Mateus

Martini

PAROBÉ
RS - BRASIL

ENUNCIADA !

Postada em 21/09/2004 13:15 hs

eu faço diferente, para cada tabela que o índice primário é sequencial, eu tenha uma tabela de sequenciais, onde eu gravo o ultimo registro de cada uma destas tabelas e quando eu vou incluir um registro novo eu atualizo esta tabela, isso porque vários usuarios pode incluir ao mesmo tempo, sem necessariamente gravar o registro.

Exemplo: imagine que o ultimo registro de uma tabela seja 10, se o usuario A mandar inlcuir e vc for buscar na propria tabela para ver qual o ultimo registro, vai retornar o 10 e enquanto o usuario A nao salvar ficara o 10 com ultimo registro, caso o usuario B tente gravar um novo registro vai retornar o mesmo numero, por isso eu uso outra tabela

Página(s): 1/1

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

VOLTAR