AUTO NUMERACAO
Como Faço para que toda vez que eu der um click em CmdNovo ele Verifica qual é a Ultima Numeração no Banco de Dados e Soma +1 e mostrar no TxtApolice :
Exemplo
91.00001
CmdNovo
91.00002
Salvo
CmdNovo
91.00003
Não Salvo
CmdNovo
91.00003
Exemplo
91.00001
CmdNovo
91.00002
Salvo
CmdNovo
91.00003
Não Salvo
CmdNovo
91.00003
veja
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=21918&varSubPagina=1&varFiltro=filtro
http://www.vbmania.com.br/vbmforum.php?varMethod=Abrir&varID=21918&varSubPagina=1&varFiltro=filtro
select max(Codigo+1) from Tb_Duplicata
Até mais...
Até mais...
Dim area As Workspace 'abre um espaço na tabela para inclusão
Dim sql As String 'string o comando sql
Dim banco As Database 'define o banco de dados
Dim tabela As Recordset 'define a tabela cad_funcionario
Set area = DBEngine.Workspaces(0) 'seta a area como espaço na tabela
Set banco = area.OpenDatabase(App.Path & "\banco.mdb", False, False) 'abre o banco de dados
sql = "select max(matricula)from cad_funcionario" 'string sql da tabela
Set tabela = banco.OpenRecordset(sql) 'abre a tabela
DBEngine.Idle dbFreeLocks
If Not tabela.EOF Then 'se a tabela não estiver vazia
If Not IsNull(tabela(0)) Then 'se o campo matricula não estiver vazio
TxtMatricula.Text = Format$(Val(tabela(0)) + 1, "0000") 'adiciona uma matricula a mais na ultima matricula
Else 'caso contrario
TxtMatricula.Text = "0001" 'atribui o códgo 0001 para a caixa de texto matricula
End If 'termina a primeira instrução
End If 'termina a segunda instrução
banco.Close 'fecha o banco de dados
Espero que ajude
Dim sql As String 'string o comando sql
Dim banco As Database 'define o banco de dados
Dim tabela As Recordset 'define a tabela cad_funcionario
Set area = DBEngine.Workspaces(0) 'seta a area como espaço na tabela
Set banco = area.OpenDatabase(App.Path & "\banco.mdb", False, False) 'abre o banco de dados
sql = "select max(matricula)from cad_funcionario" 'string sql da tabela
Set tabela = banco.OpenRecordset(sql) 'abre a tabela
DBEngine.Idle dbFreeLocks
If Not tabela.EOF Then 'se a tabela não estiver vazia
If Not IsNull(tabela(0)) Then 'se o campo matricula não estiver vazio
TxtMatricula.Text = Format$(Val(tabela(0)) + 1, "0000") 'adiciona uma matricula a mais na ultima matricula
Else 'caso contrario
TxtMatricula.Text = "0001" 'atribui o códgo 0001 para a caixa de texto matricula
End If 'termina a primeira instrução
End If 'termina a segunda instrução
banco.Close 'fecha o banco de dados
Espero que ajude
Se vc usa o Acces como banco de dados, basta colocar o campo como AutoNumeração e em formato coloca dessa forma 00.00000
Fica mais fácil e não da margem pra erro.
Um abraço
Fica mais fácil e não da margem pra erro.
Um abraço
Tópico encerrado , respostas não são mais permitidas