COMO CRIAR UM CAMPO COM DATA E AUTONUMERACAO VB 6
ex: orçamento nº 2010.06.005, sendo q o número final tem q ser diferente a cada orçamento, e toda vez q mudar o ano e o mês, os dois primeiros números mudem automático.
Agradeço a ajuda.
armazena a data numa variável....e transforma ela numa string....e depois tu cria uma função q pegue os últimos 3 caracteres do últimom registro...e dai tu junta estas duas string...
eu ñ sei muito de programação...mas acho que a lógica é essa...o que os colegas mais experientes acham???
abraços a todos...
Crie o textbox, onde aparecerá o código (txtCod) enabled = false e visible = true
Vc deve abrir o Banco de Dados no form_load....
Sub AutoNumeração ()
Dim MA AS Recordset
If MA.RecordCount = 0 Then
txtSeq.Text = Val(txtSeq.Text) + 1
txtSeq.Text = Format$(txtSeq, [Ô]000000[Ô])
txtCod.Text = txtSeq.Text
Else
MA.MoveLast
txtSeq.Text = Val(MA!Codigo) + 1
txtSeq.Text = Format$(txtSeq, [Ô]000000[Ô])
txtCod.Text = txtSeq.Text
End If
End Sub
Na função do Botão adicionar vc coloca
CALL AutoNumeracao
aqui tem um exemplo legal
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=2183
Preste atenção neste código fonte, pois ele tem uma tabela de sequencia (em seu banco de dados)... achei interessante.
Caso tenha ajudado encerre e pontue-me
Os colegas já postaram dicas interessantes sobre o problema citado no tópico.
E aÃ, conseguiu resolver?
Senão, poste o código atual e o status do problema.
Private Sub CommandButton1_Click()
Dim Ano As String
Dim Mes As String
Dim CodNew As String
On Error GoTo TrataErro
Ano = Format(Date, [Ô]yyyy[Ô])
Mes = Format(date, [Ô]mm[Ô])
Codnew = Val(Right$(txtcodigo.Text, 3))
TxtOrcamento.Text = Ano & [Ô].[Ô] & Mes & [Ô].[Ô] & Format(CodNew + 1, [Ô]000[Ô])
TrataErro:
MsgBox [Ô]Ocorreu um erro no arquivo [Ô]
Resume Next
End Sub
Espero que ajude
Citação::
crie um TextBox (txtSeq) onde estará com a propriedade enabled = false e visible = false tb.
Crie o textbox, onde aparecerá o código (txtCod) enabled = false e visible = true
Vc deve abrir o Banco de Dados no form_load....
Sub AutoNumeração ()
Dim MA AS Recordset
If MA.RecordCount = 0 Then
txtSeq.Text = Val(txtSeq.Text) + 1
txtSeq.Text = Format$(txtSeq, [Ô]000000[Ô])
txtCod.Text = txtSeq.Text
Else
MA.MoveLast
txtSeq.Text = Val(MA!Codigo) + 1
txtSeq.Text = Format$(txtSeq, [Ô]000000[Ô])
txtCod.Text = txtSeq.Text
End If
End Sub
Na função do Botão adicionar vc coloca
CALL AutoNumeracao
aqui tem um exemplo legal
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=2183
Preste atenção neste código fonte, pois ele tem uma tabela de sequencia (em seu banco de dados)... achei interessante.
Caso tenha ajudado encerre e pontue-me
Oh adrianom obrigado pela dica ai cara. E esse exemplo q vc me mandou tem muitas coisas q posso copiar tbm, rsrs. Se alguém tiver mais modelos de programas prontos para mandar ai, eu agradeço bastante, pois ainda faltam muitas telas pra eu terminar, inclusive a de notas fiscais.
Valeu